Примеры на Pascal (часть 3)

Пример нахождения НОД двух натуральных чисел

  1. простой способ:

Program nod;

Var A, B, C: Integer;

Begin

Repeat

write (‘Введите число А: ’);

read (A);

if A<1 then writeln (‘ошибка, число < 1 !’);

Until A>=1;

Repeat

write (‘Введите число B: ’);

read (B);

if B<1 then writeln (‘ошибка, число < 1 !’);

Until B>=1;

Repeat if A<B then

Begin

C:=A;

A:=B;

B:=C;

End;

A:=A mod B

Until A:=0;

Writeln (‘НОД= ’, B);

End.

  1. пример нахождения с процедурой

Program NODPROC;

Var A, B, C: Integer;

Procedure vvod (x: Char; Var Y: Integer);

Begin

Repeat

Write (‘Введите число ’,x, ‘: ’);

Read (Y);

If Y<1 then Writeln (‘Ошибка, число < 1 !’);

Until Y>1;

End;

Begin

Vvod (‘A’, A);

Vvod (‘B’, B);

Repeat if A
Begin

C:=A;

A:=B;

B:=C;

End;

A:=A mod B

Until A:=0;

Writeln (‘НОД= ’, B);

End.

. массив и его виды
. массив и его виды
Комментирование и размещение ссылок запрещено.