Экономика
Упрощение логических выражений. 10 класс.
Добрый день, очень прошу вас помочь. У меня выходит тройка по информатике, я попросил дополнительное задание, что бы исправить свою оценку. Но дело в том, что я не понимаю, как это решать и у меня совсем нет времени для того, что бы разобраться в этом самому, так как это нужно будет сдать уже завтра. Просто это мой новый класс и в моей предыдущей школе у меня вообще не было информатики. Для меня это всё, как параллельная вселенная... Пожалуйста, помогите. Был бы очень вам признателен. Могу, также, помочь вам, в благодарность, если вы в этом нуждаетесь. Проблемы с русским языком или с английским? Обществознание? Экономика? В общем, я чистый гуманитарий. Если что, обращайтесь. И сочинение вам напишу и всё сделаю, только помогите мне с этим, пожалуйста...
Задача: В типизированном файле поменять местами две записи.
То есть дан номер маршрута Marshrut.NK.N, количество остановок до метро Marshrut.NK.K. Надо найти маршрут 11 и поменять его местами со след записью. Вот часть кода именной этой процедуры, помогите с сортировкой т.к. та, которая написана ниже не робит.
var
Marshrut, y: TMarshrut;
Vidtransporta: TVidtransporta;
fr: file of TMarshrut;
n, kol, k: integer;
FileName:string[80];
begin
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N = '11') then
begin
writeln('Маршрут: ',Marshrut.NK.N,
' Количество остановок до метро: ',Marshrut.NK.K);
inc(kol);
k:=FilePos(fr)-1;
y:=FilePos(fr);
seek (fr, 0);
write (fr, y);
seek (fr, 1);
write (fr, k);
write('В файле изменена запись номер', k+1);
write(fr, Marshrut);
end;
end;
if kol=0 then
writeln('Данные, соответствующие запросу, не найдены');
CloseFile(fr);
write('Press ENTER'); readln;
end;
