Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 14.12.2019
Сообщений: 8
1

Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся после 1970 года

12.01.2020, 22:57. Показов 796. Ответов 1
Метки нет (Все метки)

Задание:
Запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся после 1970 года.

Что изменить, чтобы все условия соблюдались?

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 PR35;
USES CRT;
TYPE  STUDENT=RECORD
      SURNAME,DATE,MONTH,YEAR:STRING; 
      G:85..95; N:1..4;  END;
      MAS=ARRAY[1..5] OF STUDENT;
VAR  S:MAS; I:INTEGER; C:CHAR;
BEGIN 
CLRSCR; 
 FOR I:=1 TO 5 DO 
  WITH S[I] DO BEGIN
  WRITELN('  ДАННЫЕ ПРО  ',I,'-ОГО СТУДЕНТА:');
  WRITELN('            ФАМИЛИЯ?:'); READLN(SURNAME);
  WRITELN('              ЧИСЛО?:'); READLN(DATE);
  WRITELN('              МЕСЯЦ?:'); READLN(MONTH);
  WRITELN('                ГОД?:'); READLN(YEAR);
  END; 
  WRITELN('===конец ввода====');
  C:=READKEY;  
  CLRSCR;
  WRITELN(' ':5,'список всех студентов:');
  FOR I:=1 TO 5
  DO
   WITH S[I] DO
   WRITELN(' ', SURNAME:10,DATE:10,MONTH:5,YEAR:3,'-');
   WRITELN(' ':5,'список студентов');
END.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2020, 22:57
Ответы с готовыми решениями:

Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся летом
запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите...

Написать программу, которая вводит информацию и печатает самое распространенное женское имя
Прошу помощи, болит голова х) Задача: На основе таблицы, содержащей следующую информацию о группе...

Написать программу, которая вводит информацию и печатает ФИО людей выше 170 см
Помогите пожалуйста, очень прошу. Определить комбинированный тип для представления следующих...

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
16 В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных:...

1
Эксперт Pascal/Delphi
6750 / 4529 / 4797
Регистрация: 05.06.2014
Сообщений: 22,351
13.01.2020, 09:40 2
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
program PR35;
 
USES CRT;
 
const
  n = 2;
 
type
  STUDENT = RECORD
    SURNAME, DATE, MONTH, YEAR: STRING; 
    G: 85..95;N: 1..4;  END;
  MAS = ARRAY[1..5] OF STUDENT;
 
var
  S: MAS;
  I: INTEGER;
  C: CHAR;
 
begin
  CLRSCR; 
  for I := 1 TO n DO 
    with S[I] DO 
    begin
      WRITELN('  ДАННЫЕ ПРО  ', I, '-ОГО СТУДЕНТА:');
      WRITELN('            ФАМИЛИЯ?:');READLN(SURNAME);
      WRITELN('              ЧИСЛО?:');READLN(DATE);
      WRITELN('              МЕСЯЦ?:');READLN(MONTH);
      WRITELN('                ГОД?:');READLN(YEAR);
    end; 
  WRITELN('===конец ввода====');
  CLRSCR;
  WRITELN(' ':5, 'список всех студентов:');
  for I := 1 TO n DO
    with S[I] DO
      if s[i].YEAR > '1970' then
      begin
        WRITELN(' ', SURNAME:10, DATE:10, MONTH:5, YEAR:3, '-');
      end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2020, 09:40

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
Задание )В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия...

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных:...

Написть программу которая вводит номер некоторого года и печатает его название по старояпонскому календарю
В старословянском календаре был принян 12-летний цикл Годы внутри цикла носили название животных:...

Написать программу, которая вводит дату некоторого дня года и печатает название соответствующего знака Зодиака
Известно, что астрологи делят год на 12 периодов и каждому из них ставят в соответствие один из...


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

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

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