program funkcja;

var

S: REAL=-0;

I: INTEGER;

Z: INTEGER = 1;

CONST

N: INTEGER = 200;

begin

FOR I:=1 TO N DO S:=S+(1/I);

BEGIN

S:=S+Z+(1/I);

Z:=-Z;

END;

WRITELN(S:8:6);

READLN;

end.

program calka;

var

XP: EXTENDED = 0;

XK: EXTENDED = 2*3.1415926;

DX: EXTENDED = 0.1;

BEGIN

REPEAT

WRITELN(XP,' ',SIN(XP):6:2);

XP:=XP+DX ;

UNTIL

XP>=XK;

READLN;

END.

program funkcja;

var

S: REAL=-0;

I: INTEGER;

Z: INTEGER = 1;

CONST

N: INTEGER = 200;

begin

FOR I:=1 TO N DO S:=S+(1/I);

BEGIN

S:=S+Z+(1/I);

Z:=-Z;

END;

WRITELN(S:8:6);

READLN;

end.

program calka;

var

XP: EXTENDED = 0;

XK: EXTENDED = 2*3.1415926;

DX: EXTENDED = 0.1;

BEGIN

REPEAT

WRITELN(XP,' ',SIN(XP):6:2);

XP:=XP+DX ;

UNTIL

XP>=XK;

READLN;

END.

PROGRAM MIEJSCEZEROWE;

VAR

XP: REAL = 0;

XK: REAL = 50;

XM: REAL;

YP,YK,YM: REAL;

I:INTEGER = 0;

CONST

ACC: REAL = 0.001;

BEGIN

REPEAT

XM:=XP+0.5*(XK-XP);

YP:=XP*XP-2;

YK:=YK*YK-2;

YM:=XM*XM-2;

IF (YP*YM)>0 THEN

XP:=XM

ELSE XK:=XM;

INT(I);

UNTIL (XK-XP)<ACC;

WRITELN(XP,' ',YP);

WRITELN(XK,' ',YK);

WRITELN(I);

READLN;

END.

FUNKCJE W PSCALU

RANDOMIZE

RANDOMOD 0 DO 1 CHYBA??

RANDOM(N) OD ZERA WŁACZNIE DO N

12:34 2007-11-18 PRACA DOMOWA !!!!

ALGORYTMY MONTE-CARLO

METODA NA WYZNACZANIELICZBY (PI

rodzaje zmiennych PęTLI

1) for x:=pocz TO końc DO instrukcji;

DOWNTO

2) REPET

instrukcja;

until warunek logiczny;

3) WHILE warunek DO instrukcja;

program trojkat;

uses crt;

var a,b,c,i,n:byte;

begin i:=0;

n:=10

clrscr;

writeln ('podaj boki trojkata');

readln (a,b,c);

while a+b>c and a+c>b and b+c>a

end.

albo:

var

a,b,c: byte;

procedure licz;

begin

writeln('Podaj długości krótszych boków: ');

readln(a, cool.gif;

write('Podaj długość najdłuższego boku: ');

readlnŠ;

if (a+b>c)

then

write('Można zbudować trójkąt',#10,#10)

else

write('Nie można zbudować trójkąta',#10,#10)

end;

begin

licz;

licz;

licz;

licz;

licz;

licz;

licz;

licz;

licz;

licz;

readln;

end.

rodzaje zmiennych PęTLI

1) for x:=pocz TO końc DO instrukcji;

DOWNTO

2) REPET

instrukcja;

until warunek logiczny;

program PIERWIATKI;

var

A,B,C: REAL;

DELTA: REAL;

X1,X2: REAL;

BEGIN

WRITELN('PODAJ WSPÓŁCZYNNIKI');

READLN(A,B,C);

DELTA:=(B*B)-(4*A*C);

IF DELTA<0 THEN WRITELN('BRAK');

IF DELTA=0 THEN BEGIN

X1:=-B/(2*A);

WRITELN('X=',X1);

END;

IF DELTA>0 THEN BEGIN

X1:=(-B-SQRT(DELTA))/(2*A);

X2:=(-B+SQRT(DELTA))/(2*A);

WRITELN('X1=',X1,'X2=',X2);

END;

READLN;

END.

---