Задача про ціни

Заданий файл цін товарів. Створити новий файл, у якому ціни будуть збільшені на 20%.

 

Program stvorennja_fajlu_cin;

Uses crt;

Var f1,f2:file of real;

cina:real;i:integer;

Begin clrscr;

Assign(f1,’d:/ciny1’);assign(f2,’d:/ciny2’);

Rewrite(f1);

For i:=1 to 10 do

Begin

Readln(cina); write(f1,cina);

End;

Close(f1);

Reset(f1);rewrite(f2);

While not(eof(f1)) do

Begin

Read(f1,cina); cina:=cina+cina*0.2;

Write(f2,cina);writeln(cina:3:2);

End;

End;

Close(f1);close(f2);

Readln; end.

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

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

Прізвище

Ім'я

По батькові

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

Номер школи

Клас

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

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

Program stvorennja_fajlu_danyh;

Uses crt;

Var f1:text; f2:file of string;

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

Begin clrscr;

Assign(f1,’d:/uchni’);assign(f2,’d:/variant1.txt’);

Reset(f1);rewrite(f2);

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);write(f2,rn);

Writeln(pr,’ – ‘,rn);

End;

End;

Close(f1);close(f2);

Readln; end.

 

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

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

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

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

4.  Скріншот результату виконання програми.

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

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

 

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

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

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

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

             

	Варіант
Бас Ю	2
Борисова А	3
Герасимів О	4
Гнатик Р	5
Дьяченко С	2
Жінчин І	3
Картузова Д	4
Книш Б	5
Ковальський Я	2
Курило Н	3
Литвин О	4
Носаль Л	5
Павлюк Ю	2
Пилип’як В	3
Сердюк О	4
Шеремета Т	5