DSC00470

program równanie; uses crc;

var

q,w,e:intcger;

proceduro równa(var a.b.crintegcr); var

x,xl,x2,x3,delta:real; bcgin

dclta:«b*b-4*a*c; if dclta-0 then begin x:--b/a:

write)n('Równanie ma 1 pierwiastek xO-',x:5:2); end;

if delta>0 then bcgin

xl:-f-b-$qrt(delta))/(2*a); x2:-(-b*sqrt(dclta!))/(2*a);

writeln(’Równanie ma 2 pierwiastki xl-',xl:S:2);

writeln('x2«',x2:S:2);

end;

if delta<0 then

writein('Równanie nie ma pierwiastka');

end:

begin

clrscr;

writeln(’Program oblicza równanie kwadratowe axE2+bx+c«0')

write('Podaj liczbę q-');

readln(q);

write('Podaj liczbę w-');

£L'Yv*.(!ovy]Q_ł

[    fi k i

program najmniejszaww;

uses crt;

var

a,b:integer; nww:real;

procedurę sprawdzian(x,y:integer;var nwwl:real) var

nwd,c,d:integer;

begin while xoy do

if x>y then

x:-x-y

else

y:=y-x;

nwd:«x;

nwwl:-(c*d)/nwd writeln(’Prógram oblicza nww2 1. naturalnych')

i cau i ii,

mitel. ,v_U„j «- j, readln(a); write(*Podaj b-'); readln(b);

sprawdzian (a .b.nww);

writeln('NWW liczb ^l,a,' i ',b.' wynosi ffww - *,nww:0:0);

readln;

end.

I

i :

program silnia; uses crt; var

n:intcger;

function sil(w:integer):integer; var

s,k:intcgor;

begin

s:**l:

for k:-l to w do

s:-s*k;

sil

end;

begin

clrscr;

writeln('Program oblicza n silnia’); write(’podaj n«’); readln(n):

write('Sil ni a wynosi ’,sil(n>); repeat until keypressed; end.

mx iQ    |

^ !„i_rp    r r rrrrr

\yy    “ y©c)RQ!j2 ?a-i>l\C..

. i :

1

obiorU^A Kfó-ya    CvQ 9uCSt g fe/nn-^oMo

+e^o 4Cno -k^u . CeSia, ⁱiZi^e^o(^0_r

rwvo^Xó<io*?C ^ć^t^^cb'-^AAA'as^^eąo

.c    do^iec\o

• •