помогите

[Nik10 0]

надо сделать блок схемы а то в понедельник экзамен

1)PROGRAM lab1;

VAR a, b, x, I, y, k: REAL;

BEGIN

WRITE('vvedite a, x, b');

READLN(x,a,b);

y:=(2*(a+2*b))/(Sqrt(sqr(a)+2*sqr(b))+a-4*sqr(a*b))+(3*sqr(x)+k)/(sqr(1.7*x+7)-ln(x));

WRITELN ('y=',y);

END.

2)PROGRAM lab2;

VAR y,x :real;

BEGIN

WRITE('VVEDITE x=');

READLN(x);

IF x<=0

THEN y:=sqrt(x)-1

ELSE y:=-1*x;

WRITELN('y:=',y);

END.

3)PROGRAM lab3;

VAR x1, x2, x3,y,z: REAL;

BEGIN

WRITE('VVEDITE x1,x2=');

READLN(x1,x2,x3);

IF x1>10

THEN

BEGIN

y:=abs(x2)+1.5*x3;

z:=sqrt(sqr(x2)+sqr(x3));

END

ELSE

IF(x1<=10) and (x2<5)

THEN

BEGIN

z:=ln(abs(x1))+x2;

y:=z;

END

ELSE

BEGIN

z:=5;

y:=z;

END;

WRITELN('y',y,'z=',z);

END.

4)PROGRAM lab4;

VAR s:REAL;

n:INTEGER;

BEGIN

s:=0;

n:=1;

REPEAT

s:=s+1/((2*n-1)*(2*n-1));

n:=n+1;

until 1/((2*n-1)*(2*n+1))>0.001;

WRITELN(s);

END.

5)PROGRAM lab5;

VAR

a,b: array [1..100] of INTEGER;

i,n:INTEGER;

BEGIN

WRITE ('VVEDITE RAZMERNOST MASSIVA=');

READLN(n);

FOR i:=1 to n do

BEGIN

WRITE ('VVEDITE a[',i,']=');

READLN (a);

END;

b[1]:=-1*a[1];

for i:=2 to n do

BEGIN

IF (i mod 2)= 0

THEN b:=a

ELSE b:=-1*a;

END;

FOR i:=1 to n do

WRITELN('b[',i,']=',b);

END.

6)PROGRAM lab6;

VAR s,n,i,k,y,j:integer;

a: array [1..100,1..100] of INTEGER;

BEGIN

WRITE('n=');

WRITE('VVEDITE i,k=');

READLN(i,k);

FOR y:=1 to 100 do;

FOR j:=1 to 100 do;

BEGIN

WRITELN('VVEDITE a[',y,',',j,']=');

READLN (a[y,j]);

END;

s:=0;

FOR j:=1 to n do;

s:=s+a[i,j]*a[i,j];

WRITELN('s=',s);

END.

за помощь отблагодарю хорошо!!в итоге 6 схем должно быть

Изменено 5 июня 2010 пользователем Nik10

[creker 0]

Читай http://ru.wikipedia.org/wiki/Блок-схема

 

У тебя уже все перед глазами. Осталось найти правильный четырехугольник и скопировать в него кусок кода.

 

Ну и есть проги, которые делают все сами http://www.google.ru/search?hl=ru&sour...A+&gs_rfai=

Изменено 5 июня 2010 пользователем creker

[SpaceCadet 0]

"До завтро", ни за что ^_^