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

Автор: Kirk

Kirk — Tue, 18 Apr 2017 04:30:23 +0000

В ответ на Anton. :D

Автор: Anton

Anton — Tue, 18 Apr 2017 03:19:35 +0000

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

Автор: Kirk

Kirk — Sat, 15 Apr 2017 04:51:15 +0000

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

Anton — Wed, 13 Jan 2016 04:25:14 +0000

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

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

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

Автор: olegst1975

olegst1975 — Tue, 12 Jan 2016 22:46:46 +0000

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

[crayon-69d4952070aca533818055 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-69d4952070aca533818055 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]