"Кроха": примеры решения задач для ДЕПАК

PROGRAM линейная1;      PROGRAM линейная2;       PROGRAM линейная3;
VAR a,x,y:INTEGER;      VAR n,a,b,c:INTEGER;     VAR n,p,f:INTEGER;
BEGIN a:=2;x:=3;        BEGIN n:=5;              BEGIN n:=99;{Nкв. - 1!}
y:=a*a;y:=y*x;{y=a*a*x} a:=n div 4;              p:=n div 20;f:=20*p;
y:=y*y;y:=y*y; {y=y^4}  b:=4*a;n:=n-b;           p:=p+1;{подъезд}
writeln(a,x,y);halt     b:=n div 2;              f:=n-f;f:=f div 4;
END.                    c:=2*b;c:=n-c;           f:=f+1;{этаж}
                        writeln(a,b,c);halt      n:=n+1;{квартира}
Задача: y=a^8*x^4       END.                     writeln(n,p,f);halt
Ответ:  20736                                    END.
                        Задача: двоичное пред-   Задача: по номеру квар-
                        ставление числа 0<=N<8.  тиры N вычислить подъезд
                        Ответ: A=1, B=0, C=1.    P и этаж F (вводить N-1)
                                                 Ответ: N=100, P=5, F=5.


PROGRAM разветвл.1;     PROGRAM разветвл.2;      PROGRAM разветвл.3;
VAR a,b,m:INTEGER;      VAR a,b,c,m:INTEGER;     VAR a,b,d,o:INTEGER;
BEGIN a:=5;b:=7;        BEGIN a:=5;b:=9;c:=1;    BEGIN a:=5;b:=14;
if a>=b then m:=a       m:=a;                    if b>=a then
        else m:=b;      if b>=m then m:=b;       begin d:=a;a:=b;b:=d
writeln(a,b,m);halt     if c>=m then m:=c;       end; {поменяли A и B}
END.                    writeln(m,m,m);halt      d:=a div b;
                        END.                     o:=b*d;o:=a-o; {остаток}
Задача: M=max(A,B)                               writeln(a,d,o);halt
Ответ:  7.              Задача: M=max(A,B,C)     END.
                        Ответ:  9.               Задача: заданы A и B.
                                                 Большее разделить на
                                                 меньшее и найти остаток.
                                                 Ответ: A=14, D=2, O=4.


PROGRAM циклическая1;   PROGRAM циклическая2;    PROGRAM циклическая3;
VAR n,y,w:INTEGER;      VAR n,y,w:INTEGER;       VAR n,y,w:INTEGER;
BEGIN n:=4;             BEGIN n:=4;              BEGIN n:=4;
w:=1;y:=1;              w:=1;y:=1;               y:=1;
while w<=n do           repeat y:=3*y;w:=w+1     for w:=1 to n do y:=3*y;
      begin y:=3*y;     until w>n;               writeln(n,y,y);halt
            w:=w+1      writeln(n,y,y);halt      END.
      end;              END.
writeln(n,y,y);halt                              Задача: Y=3^N.
END.                    Задача: Y=3^N.           Ответ:  81.
                        Ответ:  81.
Задача: Y=3^N.
Ответ:  81.


PROGRAM циклическая4;   PROGRAM циклическая5;    PROGRAM циклическая6;
VAR x,y:INTEGER;        VAR n,s,i:INTEGER;       VAR x,s,k:INTEGER;
BEGIN x:=0;y:=1;        BEGIN n:=100;s:=0;       BEGIN x:=2;
repeat                  for i:=1 to n do s:=s+i; s:=5;
x:=x+1;y:=2*y;          writeln(n,s,s);halt      for k:=s-1 downto 1 do
until y>5000;           END.                         begin s:=s*x;s:=s+k
{1/2 от 10000}                                       end;
writeln(x,x,y);halt     Задача: Сумма первых N   writeln(k,s,s);halt
END.                    натуральных чисел.       END.
                        Ответ:  5050.
Задача: Найти Xmax, для                          Задача: схема Горнера
которого 2^X<10000.                              s=1+x(2+x(3+x(4+x*5)))
Ответ:  X=13, Y=8192.                            Ответ:  129.