Виконання символьних операцій з многочленами

Додаток

Вихідні тексти програм

Файл kurs.pas

program kurs;

{$M 65520,0,655360}

Uses Crt, bibl;

label 1;

{початок програми}

var i, m, menu:integer;

n:array [1..20] of integer;

a:maspoli; c, c1:poli;

nb:integer; b:poli;

na:integer; ba:poli;

roz1, roz2:integer;

begin

{створення кiльцевого нуля zero i кiльцевої одиницi od}

for i:=0 to 100 do begin zero[i]:=0.00; od[i]:=0 end;

od[0]:=1;

while true do begin

clrscr;

TextBackground(LightMagenta);

TextColor(Yellow);

roz1:=25; roz2:=10;

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Сума m многочленiв 1');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Добуток m многочленiв 2');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Многочлен в степенi m 3');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Многочлен вiд многочлена 4');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Дiлення многочленiв 5');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Диференцiювання многочлена 6');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Iнтегрування многочлена 7');

gotoxy (roz1, roz2);

roz2:=roz2+1;

writeln ('Вихiд 0');

roz2:=roz2+1;

gotoxy (roz1+10, roz2); readln(menu);

if (menu=0) then goto 1;

TextBackground(LightBlue);

TextColor(Yellow);

{*************додавання*************************}

if (menu=1) then

begin

Clrscr;

riv (zero, c);

write ('число многочленiв ');

read(m);

for i:=1 to m do

begin

writeln ('степiнь многочлена ');

read (n[i]);

vvid (n[i], a[i]);

end;

nsuma (a, m, c);

Clrscr;

writeln ('Додавання многочленiв');

write('Доданки');

for i:=1 to m do vyvid (a[i]);

writeln;

write('Результат');

vyvid(c);

repeat until keypressed;

end;

{********************множення******************}

if (menu=2) then

begin

Clrscr;

write ('число многочленiв ');

read(m);

for i:=1 to m do

begin

writeln ('степiнь многочлена ');

read (n[i]);

vvid (n[i], a[i]);

end;

ndobutok (a, m, c);

Clrscr;

writeln ('Множення многочленiв');

write('Множники');

for i:=1 to m do vyvid (a[i]);

writeln;

write('Результат');

vyvid(c);

repeat until keypressed;

end;

{*********************пiднесення многочлена до степеня******}

if (menu=3) then begin

clrscr;

riv (zero, c);

writeln ('пiднесення многочлена до степеня');

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

write ('До якого степеня пiднести ');

read(m);

mpoli (b, m, c);

clrscr;

writeln ('пiднесення многочлена до степеня');

write('многочлен');

vyvid(b);

writeln;

write ('Пiднесений до степеня ', m:2);

vyvid(c);

repeat until keypressed;

end;

{***************знаходження многочлена вiд многочлена******}

if (menu=4) then

begin

riv (zero, c);

clrscr;

writeln ('Знаходження многочлена вiд многочлена ');

writeln ('Внутрiшнiй многочлен');

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

writeln ('Зовнiшнiй многочлен');

writeln ('степiнь многочлена ');

read(na);

vvid (na, ba);

writeln;

clrscr;

writeln ('Многочлен вiд многочлена');

write ('Внутрiшнiй многочлен');

vyvid(b);

writeln;

write ('Зовнiшнiй многочлен');

vyvid(ba);

polipoli (b, ba, c);

writeln;

write('Результат');

vyvid(c);

repeat until keypressed;

end;

{**************************дiлення многочленiв****}

if (menu=5) then

begin

riv (zero, c);

riv (zero, c1);

clrscr;

writeln ('Дiлення многочленiв ');

writeln('Дiлене');

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

writeln ('Дiльник ');

writeln ('степiнь многочлена ');

read(na);

vvid (na, ba);

writeln;

clrscr;

dilen (b, ba, c, c1);

clrscr;

writeln ('Дiлення многочленiв');

write('Дiлене');

vyvid(b);

writeln;

write('Дiльник');

vyvid(ba);

writeln;

write('Частка');

vyvid(c);

writeln;

write('Остача');

vyvid(c1);

repeat until keypressed;

end;

{************диференцiювання многочленiв************}

if (menu=6) then

begin

clrscr;

writeln ('похiдна вiд многочлена');

writeln ('Порядок похiдноi');

read(m);

writeln ('степiнь многочлена ');

read(nb);

vvid (nb, b);

writeln;

riv (b, c);

for i:=1 to m do

dyfer (b, b);

clrscr;

writeln ('знаходження похiдної вiд многочлена');

write('многоч

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать