Нахождение нод 2-х многочленов по Алгоритму Евклида - Turbo Pascal
Формулировка задачи:
Добрый день. Задали написать программу, нахождения Наибольшего общего делителя 2-х полиномов(многочленов) по Алгоритму Евклида. Может быть у кого-то есть такая программа? Помогите пожалуйста
Код к задаче: «Нахождение нод 2-х многочленов по Алгоритму Евклида - Turbo Pascal»
label 1,2;
var n,m:integer;
begin
write('Vvedite n=');read(n);write('Vvedite m=');read(m);
1:if n=m then begin writeln(N,' yavlayetsa NOD');goto 2;end;
if n>m then begin n:=n-m;goto 1;end;
if n<m then begin m:=m-n;goto 1;end;
2:readln;readln;readln;end.
13 голосов, оценка 4.462 из 5
СОХРАНИТЬ ССЫЛКУ
