DSCN1074
Zad3.
Określić postać funkcji wyznaczanej przedstawionym programem: program zadanie2;
uses crt; var a,f:real; k,m:integer;
begin ,
drscr;
writeln ('podaj argument a i zakres funkcji m');
readln(a,m);
for k.-l to m do
if (k div 2)*2**k then
f:-f+(2*k*EXP(2*a)/sqrt(l+sqr(k)*k)
else
fc-f-<2*k*EXP(2*a))/sqrt(l+sqr(k)*k);
writeln Cf=%f+3:0:5);
readln;
end.
m
Narysować schemat blokowy prezentujący algorytm z zadania 3.
Wyszukiwarka
Podobne podstrony:
6 Wiele wcięć równocześnieWcięcia określają strukturę funkcji oraz całego programu: #OKREŚLENIE ZARZĄDZANIA I FUNKCJE ZARZĄDZANIA PRZEDSIĘBIORSTWEM Zarządzanie przedsiębiorstwem tostr 5W6/7Aproksymacja wielomianowa i trygonometryczna Funkcje ^ określają postać funkcji aproksymująstr 5W6/7Aproksymacja wielomianowa i trygonometryczna Funkcje ó j określają postać funkcjiCompile program sprawdzian; uses crt; war opcja,wynik,i:integer; function poletro jkataO: integer; wEdit Search Run Cońuile Debug To o Ig_ [■]- — silnia, pas program sprawdzian; uses crt; warDSC00444 program Pole_Trapezu; uses crt; var a,b,h:integer; P:real; begin clrscr; writeln( ProgramDSC00448 loavio>«; aAcp li; BLsB ^ * * * program równani e_kwadratowe; uses crt; var a,b,c:integeDSC00459 v»łOv.vl vvC j ^o f; e^p^-^w PROGRAM obliczenia; usts crt; VAR a,b:inteoer; PROCEDURĘDSC00470 program równanie; uses crc; var q,w,e:intcger; proceduro równa(var a.b.crintegcr);DSC00473 • X program t71: uses crt; const n-10; ta§?ica-array[l..n]of integer;graf1 program Grafika; uses CRT, Graph; var driver,mode: integer; begin driver := DETECT; (wykrDrzewa BST program BST; uses crt; type wsk = Awezel; wezel = record d: integer; 1, r: wsk; end;więcej podobnych podstron