Записи Опции

[ZeroQ]

Данные о студентах содержат фамилию и набор из трёх оценок об экзаменах. Требуется занести данные в массив записей с клавиатуры, упорядочить фамилии по алфавиту и вывести список, содержащий фамилию и среднюю оценку на экзаменах.

В целом я всё сделал тока не знаю как вынуть из строки числа и посчитать среднне арифметическое)))))

[klem4]

тока не знаю как вынуть из строки числа и посчитать среднне арифметическое)))))

Так данные о студенте у тебя хранятся в строке или в переменной типа Record ? Такая задача и куча подобных ей решались много раз, воспользуйся поиском "записи", "record", "база данных", "студент*"

+ Записи. Record.

[Caranthir]

под рукой было:
если

type
 student=record
 name:string;
...
  marks:record
   inf,math,phiz:integer;
  end;
end;

то тогда так:

 for i:=0 to n-1 do
with students[i],marks do
 begin
 s:=(inf+math+phiz)/3;
 if s<>0 then 
  writeln(name);
 end;

Сообщение отредактировано: Caranthir - 18.03.2007 19:41