Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 31
1

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

12.01.2014, 18:02. Просмотров 2283. Ответов 13
Метки нет (Все метки)


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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2014, 18:02
Ответы с готовыми решениями:

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

Распечатать анкетные данные студентов, участвующих в олимпиаде по информатике и получивших не менее 30 баллов
152. Распечатать анкетные данные студентов, участвующих в олимпиаде по информатике и получивших не...

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
13
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
12.01.2014, 18:16 2
Цитата Сообщение от Не лодырь Посмотреть сообщение
Pascal
1
ocenki: 1..5;(alg, ist, evm);
Неправильно описано поле. Непонятно что тут вообще должно быть.
И тут
Цитата Сообщение от Не лодырь Посмотреть сообщение
Pascal
1
gruppa[i],ocenki
вместо запятой должна быть точка.
1
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 31
12.01.2014, 18:20  [ТС] 3
А как правильно составить это поле?
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
12.01.2014, 18:28 4
Смотря что там должно храниться. Это оценки по трем предметам? Тогда описание структуры можно сделать таким:
Pascal
1
2
3
4
5
6
7
8
9
10
11
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);
Компилятор не позволить запустить такой код. Массив выводится поэлементно.
1
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 31
12.01.2014, 18:35  [ТС] 5
Тоесть нужно создать процедуру?
0
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
890 / 222 / 95
Регистрация: 21.10.2012
Сообщений: 524
12.01.2014, 18:42 10
Цитата Сообщение от Не лодырь Посмотреть сообщение
Эти значения в принципе не важны
Согласен. НО:
Некоторые преподы могут сделать замечание.
Наши, например, точно сделали бы.
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
12.01.2014, 18:46 11
Цитата Сообщение от Не лодырь Посмотреть сообщение
Что нужно сделать в моем случае?
Описание поля fio сменить. Зачем там массив символов?
Pascal
1
fio: string[10];
Тогда не будет такой ошибки.
1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2014, 18:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Составить список учебной группы, включающей 25 человек. Для каждого учащегося указать дату...

Распечатать анкетные данные студентов, получивших за все время обучения одну оценку 4, а все остальные оценки - 5
Добрый вечер уважаемые, интересует такой вопрос по поводу Python а именно вот такое задание ...

Распечатать анкетные данные студентов, имеющих оценку 4 по физике и оценку 5 по высшей математике.
15. Распечатать анкетные данные студентов, имеющих оценку 4 по физике и оценку 5 по высшей...

Вывести на экран анкетные данные студентов, получивших за первый и второй экзамен оценку 5
Отсортировать студентов по оценке по году рождения. Вывести на экран анкетные данные студентов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.