Главная

Фильтрация записей по значению поля

пт, 08/05/2011 - 09:57 — tech
Темы учебника
Записи (Record)
Задача: 

Вывести на экран фамилии студентов, чей балл выше среднего по группе.

Описание переменных: 

arr_studs – группа студентов;
average – средний балл в группе.

Программа на языке Паскаль:  

type
    studs = record
        sname: string[25];
        eval: integer;
    end;
var
    arr_studs: array[1..15] of studs;
    sum: integer;
    average: real;
    i,n: byte;
begin
    write('Количество студентов: ');
    readln(n);
    sum := 0;
    for i:=1 to n do
        with arr_studs[i] do begin
            write(i,'-й студент: ');
            readln(sname);
            write(' Оценка: ');
            readln(eval);
            sum := sum + eval;
        end;
    average := sum / n;
writeln;
    writeln('Студенты с оценкой выше средней:');
    for i:=1 to n do
        if arr_studs[i].eval > average then
            writeln(arr_studs[i].sname);
readln
end.

  • Добавить комментарий

Комментарии

ср, 02/01/2012 - 10:17 — Гость

Помогите, пожалуйста!

Уважаемые программисты!!! Помогите, пожалуйста, с решением задачи.
Написать программу, в которой требуется сформировать файл записей, содержащих информацию о предметах (название, преподаватель). Определить предмет, который ведет преподаватель Иванов.
Уже не знаю, куда обратиться, Если не решу - отчислят из колледжа. Надеюсь на вас!
Заранее спасибо!

  • ответить