DSCN1062

DSCN1062



for lc-1 to n do if(kdłv2)*2-kthen

f:"f*<k*EXP(2*x*x)/(2+*qrt(l+*qr(k)**qr(k)));

elsc

f:-f-<k*EXP(2*x*x))/ (2+sqrt(l+sqr(k)*sqr(k)));

writełn

readln;

cod.

Zad 5,

Narysować schemat blokowy do programu z zadania 4.

Zad 6.

Co zapamięta komputer realizując prezentowany program dla danych wprowadzanych z klawiatury w następującym porządku; 5,4.5.5,10,5,8,6,10.10,7 - (mapka pamięci)

Program zad6;

Var N,L:integer;

Roądln(N);

FOR L:=l TO H do Bogiń

lfritoln( 'boki') ;

Readln( A,B);

P^A*Bj

S?»S+P;

lad;

SP:-S/H ;

Writeln(sp:0:4);

Ind.


Wyszukiwarka

Podobne podstrony:
cp 55 will say—"It is unn.itur.il for mc to do this." Otbers will muttcr—“1 cannot brcathc
DSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX OR
DSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX OR
ALG23 Poznaj C++ w pięć minut! 323 j :=1; for i:—l to 5 do begin writeln(i*j); j:=j+l and; i: =1; wh
A nativity scene 2 COT 10. Make a tunic for Joseph. To do this. take c piece of fabric which is a li
Homer ochrony osobiste USETHERIGHT PPE FOR THE JOB. DO YOU KNOW WHEN AND WHERE TO WEAR PPE?
img171 171 12.1. Parsing ekspansywnych języków grafowych procedurę ExpRec (var rec); begin for i :=
img171 171 12.1. Parsing ekspansywnych języków grafowych procedurę ExpRec (var rec); begin for i :=
obraz0 (84) Analiza algorytmu Algorytm begin for i:= 1 to n do for j := 1 to n do begin end k:= I t
Program sekwencyjny begin for i:=l to n do read(a[k]); sort(1,n); for k:=l to n do
zdj1 (6) Dobre rady Puste linie i odstępy for k:=1to8do for k:= 1 to 8 do Stosowanie sta tych const
ipe 07 How Much Time and How Many Exercises It is much better to do exercises for a short period eac

więcej podobnych podstron