Блок-схема
помогите, пожалуйста, составить блок схемы для данных программ
буду очень признательна!) 1)program zadanie211a; var chisl,znam,x,y:real; begin write('Введите х = '); read(x); chisl:=(8*sqr(x)-6*x+1)*(1/4); znam:=pi/2-arctan(sqrt(2*x+1)); y:=chisl/znam+exp(sin(x)/abs(x)*ln(2)); write('y = ',y); end. 2)program zadanie211b; var x,y,r:real; begin write('Введите R = '); read(r); write('Введите х = '); read(x); if (x <= -r) or (x = r) then y:=0; if (x > -r) and (x < r) then y:=sqrt(sqr(r)-sqr(x)); if x > r then y:=x-r; write('y = ',y); end. 3)program zadanie211v; var x,y,a,b,c:real; begin write('Введите A = '); read(a); write('Введите B = '); read(b); write('Введите C = '); read(c); write('Введите х = '); read(x); if ((a < b) and (x >= a) and (x <= b)) or ((a > b) and (x <= a) and (x >= b)) then y:=a*sqr(x)+b*x+c else 4)program zadanie311a; var chisl,znam,x,y,h:real; i,n,a,b:integer; begin a:=1; b:=2; n:=10; h:=(b-a)/n; for i:=0 to n-1 do begin x:=a+i*h; chisl:=(8*sqr(x)-6*x+1)*(1/4); znam:=pi/2-arctan(sqrt(2*x+1)); y:=chisl/znam+exp(sin(x)/abs(x)*ln(2)); write('y = ',y:2:2,'; '); end; end. 5)program zadanie311b; var s,a:real; i:integer; begin repeat inc(i); a:=sqrt(i+1)-sqrt(i); s:=s+a; until a < 0.001; write('Сумма = ',s); end. |
|
Часовой пояс GMT +4, время: 10:57. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.