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

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

30.12.2014, 16:38. Показов 3466. Ответов 6
Метки нет (Все метки)

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

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

Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2
Распечатать анкетные данные студентов, получивших в последнюю сессию оценки 2. си Исходные...

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

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

6
0 / 0 / 1
Регистрация: 14.10.2014
Сообщений: 76
30.12.2014, 17:56  [ТС] 2
на множества в 1ую сессию все 5ки.rar
Помогите доработать
0
0 / 0 / 1
Регистрация: 14.10.2014
Сообщений: 76
30.12.2014, 18:02  [ТС] 3
У меня прорамма то работает только нужно чтобы в конце выводило учеников всех и сразу и в виде таблицы
Например
____________________________________
| ФИО | гр | дата рождения | и т.д |
|толик |лб-2 |23/22/1990 | |
|____________________________________ |
Помогите додумать Совокупность записей объединить в массив.
0
12 / 12 / 5
Регистрация: 23.12.2012
Сообщений: 42
31.12.2014, 21:49 4
Лучший ответ Сообщение было отмечено _tolik_ как решение

Решение

Как-то так...
Вывести на экран информацию анкетные данные студентов, получивших в первую сессию все оценки 5

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
uses
   crt;
 
const
   n = 3;
 
type
   FName = record                        // Представление полного имени в виде записи
      Name, Surname, SecondName: string;
   end;
   
   student = record
      FullName: FName;                   // ФИО
      Group: byte;                       // Номер группы
      course: 1..4;                      // Курс
      marks: array [1..4]  of byte;      // Оценки
      dd: 1..31;                         // День
      mm: 1..12;                         // Месяц
      yy: integer;                       // Год
      Eyy: 1900..2016;                   // Год поступления
   End;
var
   i: integer;
   s: Student;
   Students: array [0..n-1] of Student;  // Массив студентов
 
begin
   ClrScr;
   for i:= 0 to n-1 do begin
       with s do begin
         Writeln(' * Заполнение данных ', i+1,'-ого учащегося * ');
         Writeln('Имя:');
         readln(Fullname.Name);
         
         Writeln('Фамилия:');
         readln(Fullname.Surname);
         
         Writeln('Отчество:');
         readln(Fullname.SecondName);
         
         Writeln('Группа:');
         readln(Group);
      
         Writeln('Дата рожднния:');
         Write('   День: ');
         readln(dd);
      
         Write('   Месяц: ');
         readln(mm);
      
         Write('   Год: ');
         readln(yy);
      
         Writeln('Курс:');
         readln(course);
         
         Writeln('Оценки:');
         readln(marks[1], marks[2], marks[3], marks[4]);
         c :=chr(0);
      end;
      Students[i]:= s;
      ClrScr;
   end;
   ClrScr;
   writeln('ФИО':30,' | Группа | ', 'Дата рожднния':10,' | ', 'Курс':2,' | Оценки');
   for i:= 0 to n-1 do begin
      s:= Students[i];
      if (s.marks[1] + s.marks[2] + s.marks[3] + s.marks[4]) / 4 >= 5 then
         writeln((s.Fullname.Name + ' ' + s.Fullname.Surname + ' ' + s.Fullname.SecondName):30,' | ',
                 s.Group:6 ,' | ',
                 (inttostr(s.dd) + '/' + inttostr(s.mm) + '/' + inttostr(s.yy)):13,' | ',
                 inttostr(s.course):4 ,' | ',
                 s.marks[1],' ',s.marks[2],' ',s.marks[3],' ',s.marks[4]);
   end;
end.
1
0 / 0 / 1
Регистрация: 14.10.2014
Сообщений: 76
31.12.2014, 22:15  [ТС] 5
ты забыл указать переменную c
Pascal
1
 c:char;
а так спасибо большое
0
12 / 12 / 5
Регистрация: 23.12.2012
Сообщений: 42
01.01.2015, 13:54 6
Не нужна она там)
Я хотел сделать что-то вроде "Нажмите Enter для продолжения...", но не получилось, поэтому выпилил эту часть, а в 59-ю сточку забыл убрать.
1
0 / 0 / 1
Регистрация: 14.10.2014
Сообщений: 76
01.01.2015, 17:45  [ТС] 7
Цитата Сообщение от NimPO Посмотреть сообщение
Не нужна она там)
Я хотел сделать что-то вроде "Нажмите Enter для продолжения...", но не получилось, поэтому выпилил эту часть, а в 59-ю сточку забыл убрать.
А что именно не получилось

Добавлено через 32 секунды
Цитата Сообщение от _tolik_ Посмотреть сообщение
А что именно не получилось
Напиши пример неудачного кода)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.01.2015, 17:45

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

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

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

Распечатать данные студентов, получивших в сессию все оценки "5"
Задача. Вывести информацию о K студентах группы. Информация содержит ФИО студента, год рождения,...

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


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

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

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