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

Вывести анкетные данные студентов, получивших 5 по информатике

19.03.2011, 10:10. Показов 1794. Ответов 1
Метки нет (Все метки)

Составить список группы, включающий 7 человек. Для каждого студента указать дату рождения, год поступления в колледж, крс, итоговые оценки текущего семестра. Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая вводит данную информацию, распечатывает её, а также выводит анкетные данные студентов, получивших 5 по информатике
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2011, 10:10
Ответы с готовыми решениями:

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

Напечатать анкетные данные студентов, получивших две и более 3 в последнюю сессию
напечатать анкетные данные студентов, получивших две и более 3 в последнюю сессию. Добавлено...

Распечатать анкетные данные студентов, получивших одну оценку 3 за все время обучения
Подскажите пожалуйста, где здесь ошибка??? program laba_12_zad_3; type student=record...

Напечатать анкетные данные студентов, получивших две и более "3" в последнюю сессию.
Напечатать анкетные данные студентов, получивших две и более "3" в последнюю сессию.

1
108 / 108 / 91
Регистрация: 08.01.2011
Сообщений: 171
19.03.2011, 12:16 2
Лучший ответ Сообщение было отмечено Kirill-x-zibit как решение

Решение

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
program prog;
uses crt;
const
   Nmax=7;
   n=4;
type st=record
      name:string;
      data:string;
      god_post:integer;
      kypc:integer;
      score:array [1..n] of integer;
     end;
     Tmas=array [1..Nmax] of st;
var
  m:Tmas;
  i,j:byte;
  k:boolean;
  ch:char;
procedure find;
begin
  ClrScr;
  writeln('Ученики получившие 5 по информатике:');
  writeln;
  for i:=1 to Nmax do
    if m[i].score[4]=5 then begin
       k:=true;
       writeln('Ф.И.О: ',m[i].name);
       writeln('Дата рождения: ', m[i].data);
       writeln('Дата поступления: ', m[i].god_post);
       writeln('Номер курса: ', m[i].kypc);
       writeln('Оценки за семестр: ');
       for j:=1 to n do
         case j of
           1:writeln('Математика: ',m[i].score[j]);
           2:writeln('Русский язык: ',m[i].score[j]);
           3:writeln('Физика: ',m[i].score[j]);
           4:writeln('Информатика: ',m[i].score[j]);
         end;
    end;
    if k=false then writeln('Таких нет!');
end;
procedure enter;
begin
  for i:=1 to Nmax do begin
    ClrScr;
    write('Введите Ф.И.О ученика: ');
    readln(m[i].name);
    write('Введите год рождения ученика: ');
    readln(m[i].data);
    write('Введите год поступления ученика в колледж: ');
    readln(m[i].god_post);
    write('Введите номер курса ученика: ');
    readln(m[i].kypc);
    writeln('Оценки за семестр:');
    for j:=1 to n do begin
      case j of
        1:write('Математика: ');
        2:write('Русский язык: ');
        3:write('Физика: ');
        4:write('Информатика: ');
      end;
      readln(m[i].score[j]);
      if not (m[i].score[j] in [1..5]) then begin
        writeln('Ошибка, повторите ввод');
        j:=j-1;
      end;
    end;
  end;
end;
BEGIN
  writeln('===========================');
  writeln('1. Ввод данных    ');
  writeln('2. Поиск (5 по информатике)');
  writeln('===========================');
  ch:=readkey;
  case ch of
    '1':enter;
    '2':find;
  end;
  readln;
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2011, 12:16

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

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

Вывести анкетные данные студентов, которые получили за последнюю сессию все оценки 5
4. В группе 5 человек. Вывести анкетные данные студентов, которые получили за последнюю сессию все...

Вывести анкетные данные студентов у которых совпадает первая буква Фамилии имени и отчества.
Помогите решить задачу, очень надо: 1) Y=c+∑_(k=21)^1 Ak Bk , A=(a1,…,an) 2)Вывести анкетные...

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


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

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

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