Очень нужну

[NikalaZ]

надо сделать блок схемы а то в понедельник экзамен
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[i]);
END;
b[1]:=-1*a[1];
for i:=2 to n do
BEGIN
IF (i mod 2)= 0
THEN b[i]:=a[i]
ELSE b[i]:=-1*a[i];
END;
FOR i:=1 to n do
WRITELN('b[',i,']=',b[i]);
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 схем должно быть

[ROMA2PVT]

Добавь после начала каждой лабы только блок описания переменных.