Вычислительная техника в инженерных расчетах. Черный А.А. - 77 стр.

Begin
{ввод данных}
read(adr1.city,adr1.street, adr2.city,adr2.street);
if (adr1.city=adr2.city) and (adr1.street=adr2.street) then
write(‘город и улица совпадают’);
else(‘город и улица не совпадают ’);
End.
       Во второй программе вычисляется наименьшее общее кратное
двух чисел А и В. Главная программа описывает массив чисел С, вво-
дит исходные данные, затем обращается к функции для вычисления
НОК (наименьшего общего кратного), которая вычисляет нужное зна-
чение, используя формулу:
НОК(А,В)=A*B/ HOD(A,B)
где, обращается к другой функции вычисления НОД (наибольшего об-
щего делителя).
       Program test2(input,output);
Const N = 5;
Var
С: array[1..5] of integer;
A,B:integer;
function HOК (A, В:integer):integer;
begin
HOK:=A*B/ HOD(A,B);
end;
function НОD(А, В:integer):integer;
var
X,Y:integer;
begin
X:= A; Y: = В;
1:IF X = Y THEN HOD:=X;
IF X > Y THEN begin
X:= X – Y;goto 1;
end;
IF Y > X THEN begin
Y:= Y – X;goto 1;
end;
end;
Begin
FOR i= 1 ТО N READ (C[i]);
A:= С ([l])
FOR i = 1 TO N–1 begin B:=С[i + 1];
A:= HOK(A,B);
end;

                                   77