Ответы и объяснения

2013-05-05T19:49:32+04:00

1) W:=(sqrt(abs(m*m+8*n))/  sqr((6.5*y+3*x*y+(7/9)*x+y*y));

 

 

2) c) И92;

     e) 45_A;

 

      i) fg-л23

 

 

3) A:=3.324 -> real

    Z:=14  -> byte

    B:=10351 -> integer  

    K:=-0.2 ->real

    C:=64000 -> word

 

 

4) а) V:=7;

     б) Z:=Z+30;

      в) R:=(x*x+y*y)/2;

 

5) var k,x,b,y:real;

 

 

6) Writeln('Тут напишешь своё имя'); 

 

     Writeln(400); 

 

     Writeln(7.3*(3.2*3.2+8.61));

 

 

 

 7) Переменная с примет значение 3

 

 

8)  var-> раздел описания переменных

      Program-> раздел имени программы

      begin...end -> раздел  операторов

 

      Uses-> раздел  описания  библиотечных модулей

 

9) a) Не хватает скобок и двух одинарных кавычек

     с)  Не хватает двух одинарных кавычек  

 

     d)  Не хватает скобок

 

10) Правильная структура у программы слева (Которая печатает Привет!) 

 

 

11) 1) Program Pr;

        2) Uses Crt;

        3) var a,b,h,p,s:integer;

        4) begin

        5) clrscr;

         6)  a:=6;b:=3;h:=4;  

 

         7) S:=a*h;

         8) P:=2*(a+b);

 

         9)  Writeln('p=',p,'S= ',s);

         10) readln;

         11) end.

 

 

    

12) Исправленная программа  

Program z12;
var a:integer;
       c,b,x:real;
begin
a:=7;b:=3.2;c:=a+b;
writeln('Сумма=',c);
c:=c/2;x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end. 

 

 

Будет напечатанно Сумма=10.2

                                      x=1.9 kvadrat=3.61

 

 

   

 

 13) Program rasst;

        Uses crt;

        var x1,y1,x2,y2,s:real;

        begin

            clrscr; 

           write('Введите координаты точки А: ' );

            readln(x1); readln(y1);  

            write('Введите координаты точки B: ' );

            readln(x2); readln(y2);   

            s:=sqrt((sqr(x2-x1) + sqr(y2-y1)));

            writeln('Расстояние между 2 точками=',s);

         end.