Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Nodman
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 4
1

Распечатать список студентов с рейтингов выше трёх

28.11.2013, 21:31. Просмотров 926. Ответов 1
Метки нет (Все метки)

Ввести сведения о 8 студентах: фамилию, год рождения, рейтинг по предметам: информатика, история, высшая математика. Распечатать список студентов, у которых по всем предметам рейтинг > 3 (Больше трех).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2013, 21:31
Ответы с готовыми решениями:

Распечатать список студентов, фамилии которых начинаются с букв А и Б
комбинированные типы данных. Составить список учебной группы, включающий 15...

Упорядочить список студентов по среднему баллу и распечатать его
Здравствуйте! Задачка: На диске имеется файл данных STUDENT.DAT. В нем...

Распечатать список студентов, упорядоченный по возрастанию их среднего балла
Написать программу обработки записей в соответствии с вариантом задания....

Распечатать список студентов, фамилии которых начинаются на букву А
ввести сведения о 8 студентах: фамилию, год рождения, рейтинг по...

Упорядочить список студентов по году рождения и распечатать его
Упорядочить список студентов по году рождения и распечатать его. (количество...

1
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
28.11.2013, 22:03 2
Лучший ответ Сообщение было отмечено Nodman как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const n=8;
type rec=record
fam:string[15];
god:integer;
inf:integer;
istor:integer;
vishmat:integer;
end;
var
a:array [1..n] of rec;
i,k:integer;
 
begin
clrscr;
k:=0;
 
for i:=1 to n do
begin
writeln('Vvedite info o ',i,' studente:');
write('Familiya : ');
readln(a[i].fam);
write('God Rozhdeniya: ');
readln(a[i].god);
write('Reiting po Infe: ');
readln(a[i].inf);
write('Reiting po Istorii: ');
readln(a[i].istor);
write('Reiting po VishMatu: ');
readln(a[i].vishmat);
if (a[i].inf>3) and (a[i].istor>3) and (a[i].vishmat>3) then k:=k+1;
end;
 
writeln('Po vsem predmetam bolshe treh u ',k,' chelovek...');
for i:=1 to n do
if (a[i].inf>3) and (a[i].istor>3) and (a[i].vishmat>3) then
writeln(a[i].fam);
readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2013, 22:03

Распечатать список студентов в порядке возрастания не имеющих удовлетворительных оценок
Распечатать список студентов в порядке возрастания не имеющих...

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

Напечатать список студентов со средним баллом выше 4 и указать кол-во стипендий на группу.
Даны массивы: F1..F10 - фамилия студента F1..F10 -...


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

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

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