Приклад виконання практичного завдання

Заданий текстовий файл даних за такою структурою:

Прізвище

Ім'я

По батькові

Рік  народження

Номер школи

Клас

Файл має назву uchni.txt. Його слід зберегти на диску D.

Варіант 1. На його основі створити  текстовий файл, у якому записати прізвища та рік народження  учнів зі школи з номером 89.

procedure TForm2.Button1Click(Sender: TObject);

Var f1,f2:textfile;

pr,im,pb,rn,n,kl:string;  k:integer;

Begin

Assignfile(f1,'d:/uchni.txt');assignfile(f2,'d:/variant1.txt');

Reset(f1);rewrite(f2); k:=1;

While not(eof(f1)) do

Begin

Readln(f1,pr); Readln(f1,im); Readln(f1,pb); Readln(f1,rn);

Readln(f1,n); Readln(f1,kl);

If n='89' then

Begin

Write(f2,pr);writeln(f2,rn);

end;

End;  closefile(f1);

closefile(f2);

 

 End;

У звіт розмістити:

1.  Прізвище, номер варіанту.

2.  Умову задачі.

3.  Скріншот програми.

4.  Скріншот створенного файлу з диску D.

Варіанти задач

 

2.  Створити  текстовий файл у якому записати імена та класи  учнів з роком народження 1995.

3.  Створити  текстовий файл, у якому записати імена та прізвища    учнів, у яких клас дорівнює 10.

4.  Створити  текстовий файл, у якому записати імена та по батькові учнів зі школи номер 25.

5. Створити  текстовий файл, у якому записати імена  учнів зі школи номер 89 та класом 10.