Завданя № 1 Складання, введення в ПЕОМ та налагодження програми з використанням текстових файлів.
Завдання № 2 . Складання, введення в ПЕОМ та налагодження програми з використанням типізованих файлів записів
Завдання № 3 Складання, введення в ПЕОМ та налагодження програми з використанням меню
Приклад №1Переписати з текстового файлу f в файл g рядки в перевернутому вигляді, порядок рядків повинний бути зворотним.
Етапи вирішення задачі:
1) Будемо зчитувати файл f порядково і перевертаючи рядка будемо записувати їх в масив, далі створимо файл і заповнимо його рядками з масиву змінюючи порядок рядків на зворотний. 2) Запишемо реалізації кожного блоку на Паскалі.
а) "Зчитуємо рядки з файлу F" assign(f,'input.dat'); reset(f); while not eof(f) do begin readln(f,st); end; б) "Перевертаємо рядки і записуємо їх у масив" st1:=''; for i:= 1 to length(st) do st1:= st[i]+st1; m[k]:=st1; k:=k+1; в) "Записуємо в файл g" assign(g,'output.dat'); rewrite(g); for i:= 1 to k do writeln(g,m[i]); Текст програми: program example; var f,g:text; m:array[1..100] of string; k,i:integer; st,st1:string; begin assign(f,'input.dat'); reset(f); k:=0; while not eof(f) do begin readln(f,st); k:=k+1; st1:=''; for i:= 1 to length(st) do st1:= st[i]+st1; m[k]:=st1; end; assign(g,'output.dat'); rewrite(g); for i:= 1 to k do writeln(g,m[i]); end.
