Конспект лекций по программированию для начинающих. Гладков В.П. - 194 стр.

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

196
while j<2*n do
begin k1 := sqrt(sqr(a[i]-a[j])+sqr(a[i+1]-a[j+1]);
if k<k1
then begin k := k1; i1 := i; j1 := j end;
j := j+2
end
i := i+2
end;
write('Наиболее удалены точки с номерами: ',i1,' и ',
j1,'. С координатами ',i1,':',a[i1],' ',a[i1+1],
j1,':',a[j1],' ',a[j1+1])
end.
Задача 11.58. В записной книжке Незнайки записаны в алфавитном порядке
дни рождения всех жителей Цветочного города. Написать программу,
располагающую эти даты в хронологическом порядке.
Решение. Для представления записной книжки Незнайки будем использовать
два массива. В первом в алфавитном порядке хранятся имена жителей Цветочного
города, во втором - в элементах с соответствующими индексами записаны даты
рождения жителей в виде: 4 цифры года, 2 цифры месяца, 2 цифры дня. Например:
Массив 1 Массив 2
Авоська 19901011
Винтик 19900512
Знайка 19900506
Содержимое массивов в примере
обозначает, что Авоська родился 11 октября
1990 года, Винтик - 12 мая 1990 года, Знайка - 6 мая 1990 года. Для решения задачи
необходимо второй массив рассортировать по возрастанию. При этом местами
нужно менять элементы не только второго массива, но и первого. После такой
сортировки получим:
Массив 1 Массив 2
Знайка 19900506
Винтик 19900512
Авоська 19901011
Составлем программу:
program task11_58;
var n : integer; { количество жителей Цветочного города
}
a : array [1..100] of string; { массив имен }
b : array [1..100] of longint; { массив дат }
{ тип longint содержит восьмизначные целые числа. Разрешен в Turbo
Pascal. Здесь используется для представления дат. }
i,j : integer; { индексы }
r : string; { рабочая переменная }
r1 : longint; { рабочая переменная }
begin
write('Введите количество жителей Цветочного города '); 
                                          196

            while j<2*n do
            begin k1 := sqrt(sqr(a[i]-a[j])+sqr(a[i+1]-a[j+1]);
                    if k

Страницы