Исправьте ошибки в программе. Укажите их количество. ДАЮ МНОГО БАЛЛОВ Program A; Const...

Question

Исправьте ошибки в программе. Укажите их количество. ДАЮ МНОГО БАЛЛОВ Program A; Const X : 50; С : 1000; Var SUM, PR, D : integer; Begin SUM := X+C; Writeln ( SUM ); PR := X*C; Writeln ( PR ); D := X / C; Writeln ( D ); End.

Answer 1

Ответ:

i,n: integer;

 procedure IN1(var a,b:real;n:integer;var y:real);

  var

   p:real;

   i:integer;

     begin

       y:=1;

        for i:=1 to n do

         begin

          p:=exp(b*ln(a));

           y:=p*y;

         end;

     end;

procedure IN2(var a, b:real; n:integer; var y1:real);

 var

  p:real;

  i:integer;

   begin

    y1:=0;

      for i:=1 to n do

       begin

       p:=exp(b*ln(a));

       y1:=y1+p;

      end;

   end;

begin

Объяснение:

Answer 2

Ответ:

Program A;

Const X = 50;

C = 1000;

Var SUM, PR: integer;

D: Real;

Begin

SUM := X+C;

Writeln ( SUM );

PR := X*C;

Writeln ( PR );

D := X / C;

Writeln ( D )

End.

3 ошибки:

1) X : 50;

2) C : 1000;

3) SUM, PR, D : integer;

Ещё есть ; перед end (но это не ошибка).

Объяснение:

В Паскале описание элементов раздела констант (Const) имеет вид:

имя константы = значение;

Тип константы определяется автоматически, т.е. в отличии от раздела описания переменных (Var) не нужно указывать тип данных.

Результат деления всегда действительного типа (real).

Операторы отделяются друг от друга точкой с запятой (;).

Слова begin и end не являются операторами - они служат знаками пунктуации. Слово begin выступает в качестве левой скобки, а end - правой скобки. Так как они сами знаки пунктуации, то точка запятой после begin и перед end не обязательна.