-5

Помогите пожалуйста с Pascal, весь вечер голову ломаю Т.Т

Простите за вымогательство, дорогие пикабушники, Вы моя последняя надежда. Дали мне задачку, да не простую, а с типизированными файлами Паскаля.
Задача:Запись имеет вид: номер читательского билета, автор книги, название, дата заказа. Вывести на экран содержимое файла. Поменять местами первую и последнюю записи в файле. При обмене введите промежуточную переменную типа запись.
Программу то я написала, да беда в том, что не получается у меня поменять эти две строки местами. Первую на последнюю меняет, а вот последнюю на первую никак. Плюсов не прошу, желаю советов и помощи. Код в комментариях оставлю. Спасибо Вам, зарание

Дубликаты не найдены

+2
Дабы начали помогать с подобной задачей, по традиции нужно написать для начала свое решение, даже неправильное, а дальше уже можно и подумать, чем можно помочь :)
раскрыть ветку 2
+1
Что ж, помогли и без этого) по всей видимости, скорее всего просто тупо за тебя решили полностью всё, мои поздравления) обычно не помогает просто так никто)
0
выше есть код, сеть немного барахлит, потому сразу не смогла отправить
+1
Program Lab8;
type
wed = record
num:integer;
avtor:string;
nazv:string;
data:string;
end;
var
spisok:wed;
sp:file of wed;
procedure input;
var i:integer;
spisok:array [1..7] of wed;
begin
rewrite(sp);
for i:=1 to 7 do
begin
write('Номер чит.билета  - ');
readln(spisok[i].num);
write('Автор  - ');
readln(spisok[i].avtor);
write('Название книги - ');
readln(spisok[i].nazv);
write('Дата  - ');
readln(spisok[i].data);
write(sp,spisok[i]);
end;
close(sp);
end;
procedure print;
var j:integer;
begin
reset(sp);
writeln('Список');
while not eof(sp) do
begin
read(sp, spisok);
write(spisok.num,' ',spisok.avtor,' ',spisok.nazv,' ',spisok.data);
writeln;
end;
readln;
close(sp);
end;
begin
assign(sp,'Spisok.DAT');
input; print;
work; print;
readln;
end.
раскрыть ветку 1
0
пора вводить стиль оформления [code].
ну, это как курсив, жирный, зачеркнутый, только код.
0
Через временный файл.
0
Ну во-первых, вы немного не туда зашли, а во-вторых, у вас есть промежуточная запись
tmp:=record[last];
record[last]:=record[1];
record[1]:=tmp;
самое простое
-1
человечество придумало swap, а они пишут велосипеды :( ну я б в классе 9 так же бы решил
раскрыть ветку 1
0
в паскале?
Похожие посты
Похожие посты закончились. Возможно, вас заинтересуют другие посты по тегам: