IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Программа на тему "Записи", Помогите
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


имеется запись типа 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.



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

Сообщение отредактировано: drantez -


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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

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

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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.10.2020 13:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name