Консультация № 129938
31.03.2008, 19:42
0.00 руб.
0 1 1
решите,пожалуйста, эту задачу

Имена и дать рождение студентов, которые живут в Киеве, и фамилии студентов, средний балл которых меньше ”4”.

Обсуждение

давно
Профессор
401888
1232
01.04.2008, 09:15
общий
это ответ
Здравствуйте, Петренко Дмитро !
Решение задачи в приложении. Сделал так, как понял условие. По моему в нем что-то пропущено, типа какие-то оценки, чтобы считать средний балл, а может все нормально. Если что не ругайте, а задайте вопрос на мини-форуме вопроса, обязательно отвечу.
Еще поправьте текстовую часть программы (не код)так как у вас принято, а то у меня некая смесь английского с рязанским.

Приложение:
uses crt;type student=record {запись с полями по условию} fam:string[20]; nam:string[20]; gor:string[20]; dat:string[20]; bal:real; end;var std:array[1..30]of student; {массив записей} n,i:integer;beginclrscr;write(‘Kolicestvo studentov = ‘);readln(n);for i:=1 to n do begin writeln(‘Zapis ‘,i); write(‘familia:‘);readln(std[i].fam); write(‘Imja:‘); readln(std[i].nam); write(‘Gorod:‘);readln(std[i].gor); write(‘Data rogdenia:‘);readln(std[i].dat); write(‘Sredny ball:‘);readln(std[i].bal); end;writeln;writeln(‘Iz Kieva:‘);for i:=1 to n do {выводим данные о тех,кто живет в киеве}if std[i].gor=‘Kiev‘ then begin writeln(std[i].nam,‘ ‘,std[i].dat); end;writeln; {выводим данные о тех, у кого ср.балл <4}writeln(‘Sredny ball<4:‘);for i:=1 to n doif std[i].bal<4 then begin writeln(std[i].fam); end;readlnend.
Форма ответа