Файл типа record: сведения об учениках состоят из имени, фамилии и класса, в котором он учиться

@SerejaArmatura · Регистрация: 24.09.2012

Студворк — интернет-сервис помощи студентам

сведенья об учениках состоят из имени, фамилии и класса, в котором он учиться. задано файл, который вмещяет в себе данные об учениках школы( файл создать самостоятельно). найти и вывести на екран, насколько количество учеников в 8 классе больше чем в 10ом.

@pryda · 18.11.2012, 23:48

Pascal

type school=record
     nam,surnam:string[10];
     cl:byte;
     end;
var c:array of school;
    f:file of school;
    i,count,k8,k10:integer;
begin
assign(f,'class.txt');
rewrite(f);
writeln('Введите количество учеников');
readln(count);
setlength(c,count);
for i:=0 to count-1 do
begin
  write('Введите имя: '); readln(c[i].nam);
  write('Введите фамилию: '); readln(c[i].surnam);
  write('Введите класс: '); readln(c[i].cl);
  write(f,c[i]);
end;
close(f);
reset(f);
k8:=0; k10:=0;
for i:=0 to count-1 do
if c[i].cl=8 then inc(k8)
else if c[i].cl=10 then inc(k10);
close(f);
if k8>k10 then writeln('Учеников больше на ',k8-k10)
else writeln('В 8 классе учеников меньше, чем в 10!');
end.

@SerejaArmatura 0 / 0 / 0 Регистрация: 24.09.2012 Сообщений: 39
		1
	Файл типа record: сведения об учениках состоят из имени, фамилии и класса, в котором он учиться 18.11.2012, 23:15. Показов 2211. Ответов 1 Метки нет (Все метки) сведенья об учениках состоят из имени, фамилии и класса, в котором он учиться. задано файл, который вмещяет в себе данные об учениках школы( файл создать самостоятельно). найти и вывести на екран, насколько количество учеников в 8 классе больше чем в 10ом. 0

Опции темы

Файл типа record: сведения об учениках состоят из имени, фамилии и класса, в котором он учиться

Решение