Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста разобраться
Помогите пожалуйста разобраться
Напишите пожалуйста коментарии к каждой строке программы в понедельник защита а я не могу понять как она работает.
Программа 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.
1 | Автор: AlexanderBry | 2013-06-08, 16:54   |  Репутация: [ + 0 ]
какая из?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-06-09, 23:37   |  Репутация: [ + 211 ]
ОЭМГЭ!! кто вообще это писал? И какие задачи пытались решить?!
Первая задача кажется мне бредом!
Вторая разрешает матрицу только 20*20! (дальше смотреть даже не стала).
В третьей не имею представления, что вычислится, тк даже начальные значения не определены!!
3 | Автор: МарьЯ | 2013-06-14, 21:44   |  Репутация: [ + 2 ]
вторая - матрица 20*20! другие кажется полный бред!

Нужна помощь? Сюда - wix-forum.ucoz.ru
4 | Автор: antonblik | 2013-07-31, 11:26   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста разобраться
Страница 1 из 11
Поиск: