Решаем задачи Абрамян на Паскале. Proc 46

Proc46. Описать функцию NOD2($$A$$, $$B$$) целого типа, находящую наибольший общий делитель (НОД) двух целых положительных чисел $$A$$ и $$B$$, используя алгоритм Евклида: НОД($$A$$, $$B$$) = НОД($$B$$, $$A mod B$$), если $$B \neq 0$$; НОД($$A$$, $$0$$) = $$A$$. С помощью этой функции найти наибольшие общие делители пар $$(A, B), (A, C), (A, D),$$ если даны числа $$A, B, C, D$$.

Решение:

program Proc46;

Function NOD2(A,B:Integer):Integer;
begin
   while (A<>0) and (B<>0) do
   begin
    if a>b then A:=(a mod b)
    else B:=(B mod A);
   end;
   NOD2:=A+B;
end;

var
  A, B, C, D: integer;

begin
   Write('A :');
   Readln(A);
   Write('B :');
   Readln(B);
   Write('C :');
   Readln(C);
   Write('D :');
   Readln(D);
   Writeln(NOD2(A,B));
   Writeln(NOD2(A,C));
   Writeln(NOD2(A,D));
end.

program Proc46;

Function NOD2(A,B:Integer):Integer;

begin

while (A<>0) and (B<>0) do

begin

if a>b then A:=(a mod b)

else B:=(B mod A);

end;

NOD2:=A+B;

end;

var

A, B, C, D: integer;

begin

Write('A :');

Readln(A);

Write('B :');

Readln(B);

Write('C :');

Readln(C);

Write('D :');

Readln(D);

Writeln(NOD2(A,B));

Writeln(NOD2(A,C));

Writeln(NOD2(A,D));

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Комментарии 5

Наверное тоже самое

[crayon-67411eaf66ee7153998762 inline="true" ]
Function NOD2(A,B:Integer):Integer;
begin   
    while a*b<>0 do if a>b then a:=a mod b else b:=b mod a;
    NOD2:=a+b; 
end;

[crayon-67411eaf66ee7153998762 inline="true" ]

Function NOD2(A,B:Integer):Integer;

begin

while a*b<>0 do if a>b then a:=a mod b else b:=b mod a;

NOD2:=a+b;

end;

[/crayon]

Ответить

Anton

13.01.2016 в 08:25

Угу очень похоже… вот только с a*b<>0 не всё однозначно… это весело, в учебных примерах, что бы показать что иногда сложные логические штуки можно решить не только логикой.

Но это ест намного больше ресурсов чем булевые операции… например как у меня (A<>0) and (B<>0). к тому же в некоторых языках программирования есть специальные функции для сравнения с нулём, что ещё убыстряет процесс…

Так что в жизни лучше так не делать… 🙂

Ответить

Program p46;

Function gcd2(a,b:integer):integer;
Var
 i,n: integer;
Begin
 i:=0;
 While (i<a) or (i<b) do
  Begin
   inc(i);
   If ((a mod i)=0) and ((b mod i)=0) then n:=i;
  End;
 gcd2:=n;
End;

Var
 a,b,c,d: integer;

Begin
 Write('A=');
 readln(a);
 Write('B=');
 Readln(b);
 Write('C=');
 Readln(c);
 Write('D=');
 Readln(d);
 Writeln('A,B=',gcd2(a,b));
 Writeln('A,C=',gcd2(a,c));
 Writeln('A,D=',gcd2(a,d));
End.

Program p46;

Function gcd2(a,b:integer):integer;

Var

i,n: integer;

Begin

i:=0;

While (i<a) or (i<b) do

Begin

inc(i);

If ((a mod i)=0) and ((b mod i)=0) then n:=i;

End;

gcd2:=n;

End;

Var

a,b,c,d: integer;

Begin

Write('A=');

readln(a);

Write('B=');

Readln(b);

Write('C=');

Readln(c);

Write('D=');

Readln(d);

Writeln('A,B=',gcd2(a,b));

Writeln('A,C=',gcd2(a,c));

Writeln('A,D=',gcd2(a,d));

End.

Ответить

Anton

18.04.2017 в 07:19

Это конечно работает 🙂
Но в задании даже описан алгоритм поиска НОД. И Евклид не просто так это придумал. Данный алгоритм намного быстрее перебора. 🙂

Ответить
- Kirk
  
  18.04.2017 в 08:30
  
  😀
  
  Ответить

Решаем задачи Абрамян на Паскале. Proc 46

Комментарии:

Комментарии 5

Добавить комментарий Отменить ответ