Нахождение нод 2-х многочленов по Алгоритму Евклида - Turbo Pascal

Формулировка задачи:

Добрый день. Задали написать программу, нахождения Наибольшего общего делителя 2-х полиномов(многочленов) по Алгоритму Евклида. Может быть у кого-то есть такая программа? Помогите пожалуйста

Код к задаче: «Нахождение нод 2-х многочленов по Алгоритму Евклида - Turbo Pascal»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.462 из 5


СДЕЛАЙТЕ РЕПОСТ