Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения

@Не лодырь · Регистрация: 21.12.2013

Подскажите пожалуйста, где здесь ошибка???

Pascal

program laba_12_zad_3;
     
type
student=record
fio: array[1..10] of char;
god_roj:1965..1975;
godpost:1985..1995;
ocenki: 1..5;(alg, ist, evm);
end;
var  
gruppa:array[1..5] of student;
s1:student;
i,j:integer;
begin
with s1 do begin
for i:=1 to  5 do begin
for j:=1 to 10 do read(fio[j]);
readln(god_roj,godpost);
with ocenki do readln (alg, ist, evm);
gruppa[i]:=s1;
end;
end;
writeln('список двоечников');
for  i:=1 to 5 do with gruppa[i],ocenki  do
if ((alg=2)  and (ist=2) and (evm=2)) then
writeln(fio,god_roj,godpost);
end.

ВАСИЛЕВС · 12.01.2014, 18:16

Сообщение от Не лодырь

Pascal

1	ocenki: 1..5;(alg, ist, evm);

Неправильно описано поле. Непонятно что тут вообще должно быть.
И тут

Сообщение от Не лодырь

Pascal

1	gruppa[i],ocenki

вместо запятой должна быть точка.

@Не лодырь · 12.01.2014, 18:20 **[ТС]**

А как правильно составить это поле?

ВАСИЛЕВС · 12.01.2014, 18:28

Смотря что там должно храниться. Это оценки по трем предметам? Тогда описание структуры можно сделать таким:

Pascal

type
 grades = record
  alg, ist, evm: 1..5;
 end;
 
student=record
fio: array[1..10] of char;
god_roj:1965..1975;
godpost:1985..1995;
ocenki: grades;
end;

Только что заметил, что Вы выводите массив.

Сообщение от Не лодырь

writeln(fio,god_roj,godpost);

Компилятор не позволить запустить такой код. Массив выводится поэлементно.

@Не лодырь · 12.01.2014, 18:35 **[ТС]**

Тоесть нужно создать процедуру?

@markiza-inc · 12.01.2014, 18:36

Сообщение от Не лодырь

god_roj:1965..1975;
godpost:1985..1995;

У Вас в этих строках заложена "Дискриминация".
Т.к., не все, рожденные в 1965,1966,1967 годах могут поступить в институт сразу после школы.

@Не лодырь · 12.01.2014, 18:38 **[ТС]**

Спасибо конечно)) Эти значения в принципе не важны, важно правильно написать программу

ВАСИЛЕВС · 12.01.2014, 18:40

Сообщение от Не лодырь

Тоесть нужно создать процедуру?

Это уже зависит от задания. Если надо вывести массив, то надо массив выводить в цикле поэлементно.

@Не лодырь · 12.01.2014, 18:41 **[ТС]**

Мне нужно вывести данные в строковом виде данных. Что нужно сделать в моем случае???

@markiza-inc · 12.01.2014, 18:42

Сообщение от Не лодырь

Эти значения в принципе не важны

Согласен. НО:
Некоторые преподы могут сделать замечание.
Наши, например, точно сделали бы.

ВАСИЛЕВС · 12.01.2014, 18:46

Сообщение от Не лодырь

Что нужно сделать в моем случае?

Описание поля fio сменить. Зачем там массив символов?

Pascal

1	fio: string[10];

Тогда не будет такой ошибки.

@Не лодырь · 12.01.2014, 18:51 **[ТС]**

А вот эти данные (alg, ist, evm), их нужно присвоить???

ВАСИЛЕВС · 12.01.2014, 18:54

Остальное вроде остается как и было.

@Не лодырь · 12.01.2014, 18:57 **[ТС]**

Не выходит, выдает ошибку

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:20 [ТС]	3
	А как правильно составить это поле? 0

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:35 [ТС]	5
	Тоесть нужно создать процедуру? 0

@markiza-inc 890 / 222 / 95 Регистрация: 21.10.2012 Сообщений: 524
	12.01.2014, 18:36	6
	Сообщение от Не лодырь god_roj:1965..1975; godpost:1985..1995; У Вас в этих строках заложена "Дискриминация". Т.к., не все, рожденные в 1965,1966,1967 годах могут поступить в институт сразу после школы. 0

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:38 [ТС]	7
	Спасибо конечно)) Эти значения в принципе не важны, важно правильно написать программу 0

ВАСИЛЕВС 560 / 483 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	12.01.2014, 18:40	8
	Сообщение от Не лодырь Тоесть нужно создать процедуру? Это уже зависит от задания. Если надо вывести массив, то надо массив выводить в цикле поэлементно. 1

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:41 [ТС]	9
	Мне нужно вывести данные в строковом виде данных. Что нужно сделать в моем случае??? 0

@markiza-inc 890 / 222 / 95 Регистрация: 21.10.2012 Сообщений: 524
	12.01.2014, 18:42	10
	Сообщение от Не лодырь Эти значения в принципе не важны Согласен. НО: Некоторые преподы могут сделать замечание. Наши, например, точно сделали бы. 0

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:51 [ТС]	12
	А вот эти данные (alg, ist, evm), их нужно присвоить??? 0

ВАСИЛЕВС 560 / 483 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	12.01.2014, 18:54	13
	Остальное вроде остается как и было. 1

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
	12.01.2014, 18:57 [ТС]	14
	Не выходит, выдает ошибку 0

Опции темы