Версия для печати темы

Автор: drantez 8.01.2011 3:45

имеется запись типа student с полями: ФИО, год рождения, год поступления, оценки за 1, 2, и 3 экзамен (предметы любые). Создать и ввести массив из записей типа student (размер массива произвольный) и выполнить задание согласно варианту: 8. распечатать студентов , фамилия которых начинается с буквы Б и родившихся после определенного месяца

program lab15dr;
uses crt;
type student=record
    srn:string[15];{фамилия}
    yob:integer;{год рождения}
    yor:integer;{год поступления}
    oc1, oc2, oc3:integer;{оценки}
    end;
var stud:array[1..15] of student;
i:integer; x:string[1];
begin
clrscr;
for i:=1 to 3 do begin
writeln (i,')surname:');
read(stud[i].srn);
writeln('Year of birth:');
read(stud[i].yob);
writeln('Year of receipt');
read(stud[i].yor);
writeln('estimation');{оценки}
read(stud[i].oc1,stud[i].oc2, stud[i].oc3);
end;
writeln('enter symbol');
readln;
read(x);
readln;
for i:=1 to 3 do begin
if x=stud[i].srn[1] then writeln ('estimation:', stud[i].oc1,' ', stud[i].oc2,' ', stud[i].oc3)
else
writeln ('no');
end;
readln;
end.

Проблема собственно вот в чем: не показывает фамилию, только оценки. И то криво.


Эскизы прикрепленных изображений

Автор: volvo 16.01.2011 16:56

Проблема - в том, что в твоем компиляторе нет модуля телепатии. Если ты хочешь, чтоб выводило фамилию, надо об этом как минимум сказать программе. Где в твоем коде попытка вывода фамилии?

P.S. Насчет использования Read/ReadLn больше ничего говорить не буду - надоело. Нравится ловить глюки - ловите дальше. Нет в поиск, уже все жевано-пережевано десятки раз.

P.P.S. Слово "no" надо выводить только если ни одна запись не была напечатана, а не каждый раз. Это тоже исправь...