Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 02.03.2021
Сообщений: 27

Массивы. Составить список, содержащий следующую информацию: фамилия, год рождения, профессия, пол

21.05.2021, 13:42. Показов 676. Ответов 1

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

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

Вывести информацию о 10-ти студентах:фамилия,пол,год рождения,год поступления,оценки по шести предметам.
Вывести информацию о 10-ти студентах:фамилия,пол,год рождения,год поступления,оценки по шести предметам. ВЫЧИСЛИТЬ СРЕДНИЙ БАЛ ГРУППЫ И...

Создать файл записного типа, содержащий информацию об учениках Фамилия, Имя, Отчество, Пол, Дата рождения, Курс. Распечатать список учеников, фамилии
Создать файл записного типа, содержащий информацию об учениках Фамилия, Имя, Отчество, Пол, Дата рождения, Курс. Распечатать список...

1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
21.05.2021, 18:39
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
uses crt;
 
const
  n_max = 20;
 
type
  zapis = record
    fam: string[128];
    god: 1900..2021;
    prof: string[128];
    pol: 0..1;
  end;
  arrzap = array[1..n_max] of zapis;
 
var
  j, n, i: integer;
  a: arrzap;
  q: zapis;
 
procedure vvod(var z: arrzap; var k: integer);
var
  i, n: integer;
begin
  Write('Сколько человек в коллективе: ');
  readln(n);
  for i := 1 to n do 
  begin
    Write('Введите фамилию ', i, ' работника: ');
    readln(z[i].fam);
    Write('Введите год рождения (1900..2021) ', i, ' работника: ');
    readln(z[i].god);
    Write('Введите профессию ', i, ' работника: ');
    readln(z[i].prof);
    Write('Введите пол (0 - жен, 1 - муж) ', i, ' работника: ');
    readln(z[i].pol);
  end;
  k := n;
end;
 
procedure vivod(z: arrzap; n: integer);
var
  i: integer;
begin
  Writeln('Список работников: ');
  for i := 1 to n do 
  begin
    write(z[i].fam:32, z[i].god:12, z[i].prof:12);
    if z[i].pol = 0 then
      writeln('жен':6)
    else
      writeln('муж':6);
  end;
end;
 
begin
  clrscr;
  vvod(a, n);;
  vivod(a, n);
  
  for i := 1 to n - 1 do  
    for j := i + 1 to n do
      if a[i].prof > a[j].prof then
      begin
        q := a[i];
        a[i] := a[j];
        a[j] := q;
      end;
 
  Writeln('Список работников, отсортированный по профессии: ');
  vivod(a, n);
  writeln('Фамилии людей мужского пола из списка, год рождения которых находится в интервале 1985-1995: ');
  for I := 1 to n do 
  begin
    if (a[i].god >= 1985) and (a[i].god <= 1990 ) and (a[i].pol = 1) then 
      writeln(a[i].fam);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.05.2021, 18:39
Помогаю со студенческими работами здесь

Составить структуру данных состоящую из полей (Фамилия, год рождения, пол)
3) Составить структуру данных состоящую из полей (Фамилия, год рождения, пол). Заполнить массив 5 записями. Вывести на экран данные: ...

Есть массив, содержащий сведения о спортсменах: фамилия, пол, вид спорта, год рождения, рост. Нужно вывести данные о сам
Нужна помощь с кодом. Есть массив, содержащий сведения о спортсменах: фамилия, пол, вид спорта, год рождения, рост. Нужно вывести данные о...

Составить форму для ввода анкетных данных студента: фамилия, имя, отчество, год рождения, пол, факультет, курс, староста и т.д
Составить форму для ввода анкетных данных студента: фамилия, имя, отчество, год рождения, пол, факультет, курс, староста и т.д.

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

Структура элемента массива работник: фамилия, число, месяц и год рождения, пол
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ─ фамилия самого старшего мужчины; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru