словесный алгоритм

[dragun4ik]

Парни мне надо сделать словесный алгоритм для задач решеных в паскале
Могу положить лаве на счет тела тому кто мне поможет
Задача 1
program Project1;

var
q,dq,f,f1:real;
k:integer;
begin
q:=3.0;
dq:=-0.2;
Writeln('Q = ',q:4:2, ' dq = ',dq:4:2);
f1:=1+0.5*q;
k:=0;
while f1>0 do
begin
f:=sqrt(f1)-1/(abs(q)+1);
write(f:6:2);
inc(k);
q:=q+dq;
f1:=1+0.5*q;
end;
writeln;
writeln('K = ',k);
readln;
end.

Задача 2
program Project1;

var
a,xn,xk,dx,z,summ, pr,x:real;
i:integer;
begin
writeln('Vvedite A, Xn, Xk, dx');
readln(a,xn,xk,dx);
summ:=0;
pr:=1;
i:=0;
x:=xn;
while (x<=xk) do
begin
z:=(ln(a*x)+1)/(a+sqrt(a*x));
write(z:5:2);
summ:=summ+z;
if (z<0) then pr:=pr*z;
if (z<0.5) then inc(i);
x:=x+dx;
end;
writeln;
Writeln('Summa Z = ', summ:4:2);
if pr<>1 then Writeln('proizved Z<0 = ', pr:4:2) else writeln('net Z<0');
Writeln('kol-vo Z<0.5 = ', i:4);
readln;
end.

Задача 3
program Project1;

Var
a:array[1..10,1..10] of real;
i,j:integer;
x:real;
begin
Writeln('Vvedite X');
readln(x);
for i:=1 to 10 do
for j:=1 to 10 do
begin
if (i=1) then a[i,j]:=exp((j)*ln(x));
if (i=9) then a[i,j]:=exp((10-j)*ln(x));
if (j=1) then a[i,j]:=exp((i)*ln(x));
if (j=9) then a[i,j]:=exp((10-i)*ln(x));
if (i<>1) and (i<>9) and (j<>1) and (j<>9) then a[i,j]:=0;
if (i=1) and (j=1) then a[i,j]:=1;
if (i=9) and (j=9) then a[i,j]:=1;
end;

for i:=1 to 9 do
begin
for j:=1 to 9 do
if a[i,j]=0 then write(a[i,j]:8:0) else write(a[i,j]:8:2);
writeln;
end;
readln;
end.

задача 4
program Project1;


var
a:array[1..100,1..100] of integer;
b:array[1..50] of integer;
c:array[1..50] of integer;
i,j,n,m,l,summ:integer;
begin
Writeln('vvedite N,M');
readln(n,m);

for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-random(10)+5;
write(a[i,j]:5);
end;
Writeln;
end;
Writeln('Massive #1');
l:=0; summ:=0;
for j:=1 to m do
begin
for i:=1 to n do
summ:=summ+a[i,j];
inc(l);
b[l]:=summ;
summ:=0;
end;

for i:=1 to l do
write(b[i]:5);

l:=0;
summ:=1;

for i:=1 to n do
begin
for j:=1 to m do
summ:=summ*a[i,j];
inc(l);
c[l]:=summ;
summ:=1;
end;
Writeln;
Writeln('Massive #2');
for i:=1 to l do
write(c[i]:5);

readln;

end.

[dragun4ik]

Люди напишите кто нибудь алгоритм