Напишите пожалуйста коментарии к каждой строке программы в понедельник защита а я не могу понять как она работает.
Программа 1.
Program stroka;
Const NS =['0'..'9'];
Var
i,k,t:Integer;
st:String;
f:Boolean;
BEGIN
Write('S='); Readln(st);
i:=1; f:=True;
While i<=Length(st) Do Begin
If st='' Then f:=True;
If (Not(st in NS))and(st<>' ') Then f:=False;
If (st in NS)and f Then Begin
t:=i; k:=0;
Whilest<>' ' Do Begin
If st in NS Then Inc(k);
Inc(i);
End;
Ifi-k=t Then Begin
Delete(st,t,k+1);
Dec(i,k);
End;
End ElseInc(i);
End;
Writeln(st);
Readln
END.
Программа 2.
Program matritca;
const nmax=20;
const nmin=20;
var a: array[1..nmax,1..nmax] of integer;
i,j,n,m,jmin: byte;
buf: integer;
begin
repeat
write('Введите количество строк ',nmax,', n=');
readln(n);
until n in[nmin..nmax];
repeat
write('Введите количество строк ',nmax,', m=');
readln(m);
until m in[nmin..nmax];
writeln('Дана матрица');
for i:=1 to n do
begin
jmin:=1;
for j:=1 to m do
begin
a[i,j]:=random(199)-99;
write(a[i,j]:4);
if a[i,j]<a[i,jmin]
then jmin:=j;
end;
buf:=a[i,i];
a[i,i]:=a[i,jmin];
a[i,jmin]:=buf;
writeln;
end;
writeln('Матрица после замены');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Задача 3.
Program summa rayda;
Const e=0.00001;
Varn,x,y,f,st,a,i:real;
Begin
repeat
write('Введите x<1: ');
readln(x);
until x<1;
st:=1;f:=1;
Repeat
i:=i+2;
f:=f*i*(i-1);
st:=st*x;
a:=st/f;
y:=y+a;
Until a<e;
writeln('Y = ',y:0:5);
readln;
End.
|
|
|
|
какая из?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ОЭМГЭ!! кто вообще это писал? И какие задачи пытались решить?!
Первая задача кажется мне бредом!
Вторая разрешает матрицу только 20*20! (дальше смотреть даже не стала).
В третьей не имею представления, что вычислится, тк даже начальные значения не определены!!
|
|
|
|
вторая - матрица 20*20! другие кажется полный бред!
Нужна помощь? Сюда - wix-forum.ucoz.ru
|
|
|
|
