Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 09.05.2017
Сообщений: 11

Вывести фамилии учащихся по месяцам рождения

09.05.2017, 19:55. Показов 3563. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан список группы.
Для каждого учащегося указана фамилия, пол, изучаемый язык, дата рождения.
Вывести фамилии учащихся по месяцам рождения.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.05.2017, 19:55
Ответы с готовыми решениями:

Вывести фамилии учащихся по месяцам рождения.
Для каждого учащегося указана фамилия, пол, изучаемый язык, дата рождения. Вывести фамилии учащихся по месяцам рождения.

Записи. Вывести фамилии учащихся по месяцам рождения
Дан список группы. Для каждого учащегося указана фамилия,пол,изучаемый язык,дата рождения. Вывести фамилии учащихся по месяцам рождения.

Вывести на экран фамилии и имена учащихся, сдавших экзамены только на 4 и 5
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество...

6
 Аватар для Zwelenewskiy
129 / 127 / 107
Регистрация: 09.01.2017
Сообщений: 1,651
09.05.2017, 20:17
Или как-то сортировать нужно?
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
type
  Klass = 
  record
    Fam, Lan, Pol, Dat: string;
  end;
 
var
  a: array of Klass;
  i, n: integer;
 
begin
  writeln('Введите кол-во учеников: ');
  readln(n);
  
  SetLength(a, n);
  
  for i := 0 to n - 1 do 
  begin
    writeln('Фамилия ', i + 1, '-го ученика: ');
    readln(a[i].Fam);
    writeln('Пол(М-Ж) ', i + 1, '-го ученика: ');
    readln(a[i].Pol);
    writeln('Язык, изучаемый  ', i + 1, '-м учеником: ');
    readln(a[i].Lan);
    writeln('Дата рождения(гггг.мм.дд.) ', i + 1, '-го ученика: ');
    readln(a[i].Dat);
  end;
 
  writeln;
  
  writeln('Фамилии учащихся по месяцам рождения');
  
  for i := 0 to n - 1 do 
    writeln(a[i].Fam, ' - ', a[i].Dat);
  
  
end.
0
0 / 0 / 0
Регистрация: 09.05.2017
Сообщений: 11
09.05.2017, 23:02  [ТС]
Нет, просто вывести фамилии по месяцам
0
 Аватар для Zwelenewskiy
129 / 127 / 107
Регистрация: 09.01.2017
Сообщений: 1,651
10.05.2017, 08:41
Т.е. так,например: январь: ...., февраль:.... ?
0
0 / 0 / 0
Регистрация: 09.05.2017
Сообщений: 11
10.05.2017, 11:24  [ТС]
Такого вида
Январь: Фамилия1, Фамилия3 ;
Февраль : Фамилия2
0
 Аватар для Zwelenewskiy
129 / 127 / 107
Регистрация: 09.01.2017
Сообщений: 1,651
11.05.2017, 13:57
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
type
  
  Month = (Январь, Февраль, Март, Апрель, Май, Июнь, Июль, Август, Сентябрь, Октябрь, Ноябрь, Декабрь);
  
  Klass = 
  record
    Fam, Lan, Dat, Month: string;
    Pol: char;   
  end;
 
var
  a: array of Klass;
  i, n: integer;
  c: set of string;
  k: Month;
 
BEGIN
  
  c := ['Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь'];
  
  writeln('Введите кол-во учеников: ');
  readln(n);
  
  SetLength(a, n);
  
  for i := 0 to n - 1 do 
  begin
    writeln('Фамилия ', i + 1, '-го ученика: ');
    readln(a[i].Fam);
    writeln('Пол(М-Ж) ', i + 1, '-го ученика: ');
    readln(a[i].Pol);
    writeln('Язык, изучаемый  ', i + 1, '-м учеником: ');
    readln(a[i].Lan);
    writeln('Дата рождения:');
    writeln('Год и день рождения(гггг.дд.) ', i + 1, '-го ученика: ');
    readln(a[i].Dat);
    writeln('Месяц рождения ', i + 1, '-го ученика(прописью): ');
    readln((a[i].Month));
  end;
  
  writeln;
  
  writeln('Фамилии учащихся по месяцам рождения');
  
  for k := Январь to Декабрь do
  begin
    writeln(k, ':');
    for i := 0 to n - 1 do 
      if a[i].Month = k.ToString
        then writeln(i + 1, ')', a[i].Fam, ';');
  end;
  
END.
0
0 / 0 / 0
Регистрация: 09.05.2017
Сообщений: 11
16.05.2017, 23:19  [ТС]
Спасибо большое!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.05.2017, 23:19
Помогаю со студенческими работами здесь

Вывести на экран фамилии имя всех учащихся, сумма оплаты которых, больше 50000
Двумерный массив. в первом столбце заданы фамилий учащихся, во втором имена, в третьем сумма оплаты за год. вывести на экран фамилии имя...

Посчитать количество студентов учащихся на отделениях и вывести их количество и фамилии
Есть небольшая база данных о студентах Фамилия,Пол,Год рождения, группа. Посчитать количество студентов учащихся на отделениях и...

Вывести на экран фамилии и имена тех учеников, у кого сегодня день рождения
1. Дан текстовый файл, в котором хранятся данные об учениках класса: фамилия, имя, отчество, дата рождения (число, месяц и год). Вывести на...

В другой файл добавить фамилии и имена из файла по строкам, вывести время года рождения и количество лет
Здравствуйте! Такая задачка: Есть файл 12345.txt. В нём данные: Иванов Вася 25.07.1988 Петров Петя 12.02.1985 Сидоров Гриша...

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Киев стоит - украинская песня
zorxor 28.01.2026
wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru