Napiszmy program który bedzie traktowal o wielomianach i działa naich na nich.

Przykladowo zadanie 1.

program wielomiany;

uses crt;

var i,j,a,b,n,c,f+ :byte;

delta :real;

{niechaj bedzie to wilomian rzedu 4} const n:=4'

begin

         clrscr;

         writeln('POdaj wartości a b n w równaniu f(x)=ax^n+bx^(n-1)+cx^n-2+..n*d^1');

         writeln('Podaj n');{wpisujemy 4)

         readln(n);

            writeln('Podaj a');

          readln(a);

         writeln('Podaj b');

         readln(b);

         writeln('Podaj c');

         readln(c);

         writeln('Podaj d');

`       readln(d);

         writeln('Podaj f');

`       readln(f);

         F(x)=  ax^4+bx^3+cx^2+4dx^1+f'

{szukamay miejsc zerowych}

F(x)=0 {<>} F'(x)=0=G(x)

F'(x)=4ax^3 + 3bx^2+4d=0 {<>} F'(x)=0 {<>} F"(x)=0;

F''(x)=3*4x^(3-1) + 2*3x^(2-1)+0=0=H(x)

{<>} 

F''(x)=12x^2+6x=0 {<>} F''(x)=6x(2x+1)=0 {<>} 6x=0 {<>} x1=0 lub 2x+1=0 {<>} x2=-0.5

Zanamy juz dwap oerwiestki z 4 dalej mamy:}

{otrzymujemy wielomian kwadratowy}

F(x)

delta:=pierwiastek(4ac)=0 {gdyż c+0}

{x3=(-b/+delta)/2a lub x4=(b+delta)/2a}

x3:=(-6+0)/2*12)=-6/24=-4 x4:=4

zatem mamy 4ry rozwizania naszenia wielomianu 4tego stopnia

Jest właśniei Sobota 2020.06.27 h:7:49 i cd natepuje teraz AD 2022.06.07  Wtorek h:20.26

Na odsłuchu SlumsAtack "dobry rok": A zarz po nim 

RPS (Peja) - Frajerhejt 9.12/DTKJ (prod. Hirass) wymiekam przy tym

dlatego napisze

program dziennik;

uses crt,win;

type nazwisko:=ARRAY(string);

type imie:=ARRAY(string);

type nr:=ARRAY(string);

begin

      writeln('Podaj nazwisko');

      readln(nazwisko);

      writeln('Podaj imie');

      readln(imie);

      writeln('Podaj nr w dzienniku');

      Readln(nr)'

End. 

Nauka jest tym czym dla Czlowieka powietrze - bynajmniej jesli chodzi o mnie

Kiedy sie ucze czuje sie CUDOWNIE

KOCHAM RAPOWAC

KOCHAM KUPOWAC

LUDZKIE mysli i samogloski

WIEM ze JESTEM beztroski

BOSKI

DIABELNIE POczciwy

BOm ma sporo oliwy

W mej glowie same czastki alfa

CHCE BYC podobny do Gandalfa

Miec jego umysl, DOBRO i sporo przyjaciol

Co najmniej ile sklad PKP ma kol

Zwby godnie sobie zyc

Wystarczy od czsu do czasu osbie przycmic

program system

uses crt;

win;

var 

begin

repeat

    system (system)^siódemkowy^(array[0..6]):=0+6=7 :=1?+6?:=7;

     system (system binarny)^dwojkowy^(array[0..1]):0+1:=1+1:=01;

     system (system)^osemkowy^(array[0..7]):=1:7:+8::1?+6?:=8'

 until false

END.

if system<>system

then begin

system(dwojkowy-:=2,x:=0 y:1):+ system((szesnastkowy+0 to : 1f)):=system (dzięsiatny:=+10(system siódemkowy+3):=array^system(dwojkowy=binarny(szesnastkowy=heksagonalny) ++[osemkowy] 2(dziesiatkowy:=array[0..10])

end;

until false;

end.