DSCN1074

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 to
str 5W6/7Aproksymacja wielomianowa i trygonometryczna Funkcje ^ określają postać funkcji aproksymują
str 5W6/7Aproksymacja wielomianowa i trygonometryczna Funkcje ó j określają postać funkcji
Compile program sprawdzian; uses crt; war opcja,wynik,i:integer; function poletro jkataO: integer; w
Edit Search Run Cońuile Debug To o Ig_ [■]- — silnia, pas program sprawdzian; uses crt; war
DSC00444 program Pole_Trapezu; uses crt; var a,b,h:integer; P:real; begin clrscr; writeln( Program
DSC00448 loavio>«; aAcp li; BLsB ^ * * * program równani e_kwadratowe; uses crt; var a,b,c:intege
DSC00459 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; (wykr
Drzewa BST program BST; uses crt; type wsk = Awezel; wezel = record d: integer; 1, r: wsk; end;

więcej podobnych podstron