Главное меню

Вход на сайт

Кто на сайте?

Сейчас один гость и ни одного зарегистрированного пользователя на сайте

В файл записать информацию об абитуриентах, поступающих в университет: фамилия, имя, отчество, домашний адрес, номер телефона, изучаемый язык, сумма баллов, полученных на вступительных экзаменах.
Напечатать список абитуриентов набравших на экзаменах N и более баллов.

Решение

Программа для записи информации в файл

type Abiturient=record
     F:string[30];
     I:string[30];
     O:string[30];
     adres:string[50];
     tel:string[20];
     lang:string[20];
     ball:real;
     end;

var  F:file of Abiturient;
     Abit:array [1..3] of Abiturient;
     i:integer;
begin
writeln('Vvedite svedeniya ob abiturientah');
assign(F,'c:\abit.txt');
rewrite(f);
for i:=1 to 3 do begin
write('Familija:');
readln(Abit[i].f);
write('Imya:');
readln(Abit[i].I);
write('Otchestvo:');
readln(Abit[i].O);
write('Adres:');
readln(Abit[i].adres);
write('Telefon:');
readln(Abit[i].tel);
write('Yazik:');
readln(Abit[i].lang);
write('Ball:');
readln(Abit[i].ball);
write(F,abit[i]);
writeln('----------------');
end;
Close(F);
end.

Программа печати списка

type Abiturient=record
     F:string[30];
     I:string[30];
     O:string[30];
     adres:string[50];
     tel:string[20];
     lang:string[20];
     ball:real;
     end;
     var  f:file of Abiturient;
     abit:array [1..3] of Abiturient;
     i:integer;
     n:integer;

begin
assign(F,'c:\abit.txt');
reset(f);
writeln('');
write('Vibrat abiturientov poluchivshich:');
readln(n);
I:=0;
while not Eof(F) do begin
inc(i);
read(f,abit[i]);
if abit[i].ball>=n then
   begin
   writeln(abit[i].F);
   end;
end;
Close(F);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте