BiW
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Программисты форума помогите найти ошибки в коде.
Записи -- Построить массив записей о студентах. Каждая запись должна содержать фамилию, группу, срок обучения. Рассчитать для каждого студента, сколько месяцев осталось до окончания обучения |
Мы тут группой медитировали над твоим заданием. Если наши чакры правильно сработали и задание было правильно понято, то выглядит это вроде так
Код: program records;
uses crt;
type
Tinfo = record
Family: string[20];
Group: string[5];
Srok: integer;
end;
var
info: array [1..100] of Tinfo;
term: array [1..100] of Integer;
n, i, tmp, err: integer;
begin
clrscr;
write('Введите количество студентов: ');
readln(n);
Writeln('Через пробел введите фамилию студента, его группу и срок обучения в месяцах: ');
for i := 1 to n do
begin
with info[i] do
begin
write('Введите фамилию ',i, ' студента: ');
readln(family);
write('Введите группу ',i, ' студента: ');
readln(group);
write('Введите срок обучения ',i, ' студента: ');
readln(srok);
end;
end;
for i := 1 to n do
begin
with info[i] do
begin
val(copy(group,1,1),tmp,err);
if err = 0 then
term[i] := srok - tmp * 12;
end;
end;
for i := 1 to n do
begin
writeln('Для студента ',info[i].family,' осталось учиться ',term[i],' месяцев');
end;
readln;
end.
|
Так вроде работает. |
Всего записей: 110 | Зарегистр. 30-07-2008 | Отправлено: 18:41 03-02-2010 | Исправлено: BiW, 18:47 03-02-2010 |
|
в буфере клавиатуры после ввода срока у тебя все и колбасило. 
