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

одной улице. Используется переменная типа запись с 4 полями: город,
улица, дом, квартира.
Program test(input,output);
Type
adress=record
city:array [1..16] of char;
street:array [1..16] of char;
number:integer;
flat:integer;
end;
Var
adr1,adr2:adress;
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: = В;




                                   80