Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата



readln(name);

writeln(f2,name);

readln(f1,ansv);

if ansv=name then k:=k+1;

i:=i+1;

end;

writeln(f2,'Всього питань :');

writeln(f2,i);

writeln(f2,'Правильних питань :');

writeln(f2,k);

close(f1);

close(f2);

end.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ:

Вміст файлу протоколу:

Бригіда e02

толстой

поет

да

Всього питань :

3

Правильних питань :

2

Задача 2:

program typefiles;

uses

crt;

const

kolocenok=2;

type

abiturient=record

fio:string;

marks:array [1..kolocenok] of integer;

end;

var

ser,i,j,k:integer;

abit: array [1..40] of abiturient;

temp: abiturient;

begin

clrscr;

write('Введiть кiлькiсть абiтурiентiв: ');

readln(k);

for i:=1 to k do begin

writeln('абiтурiент ',i,':');

write('im`я: ');

readln(temp.fio);

Рекомендуем скачать другие рефераты по теме: сочинение бульба, доклад, информация реферат.

Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки