0 / 0 / 0
Регистрация: 11.06.2015
Сообщений: 2
1

Изменить код, чтобы год рождения тоже выводился в упорядоченный массив

11.06.2015, 21:07. Показов 422. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
uses
  crt;
 
type
  
  tzap = record        {Описание типа для одной записи списка}
    Fio: string[15];
    uch: byte;
    adres: string[10];
  end;
 
var
  god: array[1..100] of word;
  Spis: array[1..100]of tzap;    {Описание списка}
  N, i, j, i_min, min: byte;
 
begin
  Write(' Введите число записей в списке N = ');
  Readln(N);
  Writeln('Введите список по полям - каждое поле с новой строки');
  for i := 1 to N do
    with Spis[i] do
    begin
      Write(' ФИО - 15 символов  ');
      Readln(Fio);
      Write(' Домашний адрес - 10 символов  ');
      Readln(adres);
      Write(' Номер участка - 255 символов  ');
      Readln(uch);
      Write(' Год рождения - от 1910 до 2000  ');
      Readln(god_m[i]);
    end;
    ///Упорядоченный список
  begin
        {принимаем за минимум i-й элемент}
    Min := god_m[i];i_min := i;
    for j := i + 1 to n do
      if god_m[j] < Min then
      begin{найдено меньшее число - запоминаем его и его адрес}
        Min := god_m[i];i_min := j;
      end;
            {Обмен}
    god_m[i_min] := god_m[i];
    god_m[i] := Min;
  end;
  Writeln(' Упорядоченный массив');
  for i := 1 to n do write('Гражданин № ',i,  Spis[i], '  '); 
  readkey;
end.
Нужно чтобы год рождения тоже выводился в упорядоченный массив.
Заранее спасибо за помощь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2015, 21:07
Ответы с готовыми решениями:

Как изменить код чтобы выводился номер дня с начала года?
Насколько я поняла, 24-29 определяет количество дней от текущей даты до введённой. Как можно...

Как изменить код чтобы результат программы выводился отделным текстовым файлом?
n = 15; atext: array of char = ('0','1','2','3','4','5','6','7','8','9'); acode: array of...

Изменить код, чтобы в начале программы выводился запрос для ввода размера стека
Нужно изменить пример так, чтобы в начале работы программы выводился запрос для ввода размера...

Изменить запрос, чтобы еще выводился код абонемента, для которого указана максимальная цена
Помогите пожалуйста!!!!SELECT Абонементы.Код_зала, Max(Абонементы.Цена) AS МАХ,...

1
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.06.2015, 08:33 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
40
41
42
43
44
45
46
47
uses crt;
type
  tzap = record        {Описание типа для одной записи списка}
    Fio: string[15];
    uch: byte;
    adres: string[10];
    god:word;
  end;
var
  Spis: array[1..100]of tzap;    {Описание списка}
  N, i, j: word;
  x: tzap;
 
begin
  Write(' Введите число записей в списке N = ');
  Readln(N);
  Writeln('Введите список по полям - каждое поле с новой строки');
  for i := 1 to N do
  with Spis[i] do
   begin
    Write(' ФИО - 15 символов  ');
    Readln(Fio);
    Write(' Домашний адрес - 10 символов  ');
    Readln(adres);
    Write(' Номер участка - 1-255  ');
    Readln(uch);
    Write(' Год рождения - от 1910 до 2000  ');
    Readln(god);
   end;
 //Упорядоченный список
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if spis[i].god>spis[j].god then
  begin
   x:=spis[i];
   spis[i]:=spis[j];
   spis[j]:=x;
  end; 
 Writeln(' Упорядоченный массив');
 for i := 1 to n do 
  begin
   write('Гражданин № ',i);
   with Spis[i] do
   writeln(fio,' ',adres,' ',uch,' ',god);
  end; 
 readkey;
end.
0
12.06.2015, 08:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2015, 08:33
Помогаю со студенческими работами здесь

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

Нужно изменить программу, нужно тоже самое, только чтобы код программы был другим
unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1...

Составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код
составить код, чтобы когда нажимаешь на клавиатуру, выводился Аски код

Сформировать из двух упорядоченных массивов новый массив, тоже упорядоченный
Даны два одномерных массива, содержащих по N и M элементов, упорядоченных по не убыванию. Написать...

Изменить программу, чтобы выводился весь файл, а не только первая строка
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; struct a { int id; char service; } ; ...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru