Question

В чом ошибка: //fpc 3.0.0 program Fizika; uses crt; var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t :intenger; begin clrscr; writeln('Введите число №1:'); readln (a); writeln('Введите число №2:'); readln (b); writeln ('1) Швидкість'); writeln ('2) Шлях'); writeln ('3) Час '); writeln ('4) Густина '); writeln ('5) Маса '); writeln ('6) Обєм '); writeln ('7) Висота '); writeln ('8) Площа '); writeln ('9) Сила тяжіння'); writeln ('10) Маса '); writeln ('11) Прискорення вільного падіння '); writeln('Введите число от 1 до 11:'); readln (NUM); c:=a/b; d:=c*b; e:=d/c; i:=a/b; f:=i*b; g:=f/i; h:=a/b; j:=a/h; k:=a*b; r:=k/b; t:=k/r; case NUM of 1:writeln ('Швидкість дорівнює:') (c) ('м/с'); 2:writeln ('Шлях дорівнює:') (d) ('м'); 3:writeln ('Час дорівнює:') (e) ('c'); 4:writeln ('Густина дорівнює:') (i) ('кг/м3'); 5:writeln ('Маса дорівнює:') (f) ('кг'); 6:writeln ('Обєм дорівнює:') (g) ('м3'); 7:writeln ('Висота дорівнює:') (h) ('м'); 8:writeln ('Площа дорівнює:') (j) ('м2'); 9:writeln ('Сила тяжіння дорівнює:') (k) ('Н'); 10:writeln ('Маса дорівнює:') (r) ('кг'); 11:writeln ('Прискорення вільного падіння дорівнює:') (t) ('Н/кг'); end; readln end.

Answer 1

program Fizika;

uses crt;

var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;

begin

clrscr;

writeln('Введите число №1:');

readln (a);

writeln('Введите число №2:');

readln (b);

writeln ('1) Швидкість');

writeln ('2) Шлях');

writeln ('3) Час ');

writeln ('4) Густина ');

writeln ('5) Маса ');

writeln ('6) Обєм ');

writeln ('7) Висота ');

writeln ('8) Площа ');

writeln ('9) Сила тяжіння');

writeln ('10) Маса ');

writeln ('11) Прискорення вільного падіння ');

writeln('Введите число от 1 до 11:');

readln (NUM);

c:=a div b;

d:=c*b;

e:=d div c;

i:=a div b;

f:=i*b;

g:=f div i;

h:=a div b;

j:=a div h;

k:=a*b;

r:=k div b;

t:=k div r;

case NUM of

1:writeln ('Швидкість дорівнює:', c, ' м/с');

2:writeln ('Шлях дорівнює:', d, 'м');

3:writeln ('Час дорівнює:', e, 'c');

4:writeln ('Густина дорівнює:', i, 'кг/м3');

5:writeln ('Маса дорівнює:', f, 'кг');

6:writeln ('Обєм дорівнює:', g,'м3');

7:writeln ('Висота дорівнює:', h,'м');

8:writeln ('Площа дорівнює:', j, 'м2');

9:writeln ('Сила тяжіння дорівнює:', k ,'Н');

10:writeln ('Маса дорівнює:', r, 'кг');

11:writeln ('Прискорення вільного падіння дорівнює:', t,'Н/кг');

end;

end.

Answer 2

В вашей программе есть несколько ошибок:

1. Ошибка в определении переменных. Вместо "intenger" должно быть "integer" для объявления переменных.

2. В выражениях writeln, вы пытаетесь использовать переменные внутри строк, но это делается некорректно. Вы должны использовать оператор конкатенации + для объединения строк и переменных.

3. В конструкции writeln внутри case у вас лишние круглые скобки вокруг переменных и строки. Правильно использовать оператор +, как указано в пункте 2.

4. У вас отсутствует оператор begin перед каждым блоком кода внутри case.

Исправленный код:

pascalCopy code
//fpc 3.0.0
program Fizika;
uses crt;
var
  NUM, a, b, c, d, e, i, f, g, h, j, k, r, t: integer;
begin
  clrscr;
  writeln('Введите число №1:');
  readln(a);
  writeln('Введите число №2:');
  readln(b);
  writeln('1) Швидкість');
  writeln('2) Шлях');
  writeln('3) Час');
  writeln('4) Густина');
  writeln('5) Маса');
  writeln('6) Обєм');
  writeln('7) Висота');
  writeln('8) Площа');
  writeln('9) Сила тяжіння');
  writeln('10) Маса');
  writeln('11) Прискорення вільного падіння');
  writeln('Введите число от 1 до 11:');
  readln(NUM);
  
  case NUM of
    1:
    begin
      c := a / b;
      writeln('Швидкість дорівнює: ', c, ' м/с');
    end;
    2:
    begin
      d := a * b;
      writeln('Шлях дорівнює: ', d, ' м');
    end;
    3:
    begin
      e := a / b;
      writeln('Час дорівнює: ', e, ' с');
    end;
    4:
    begin
      i := a / b;
      writeln('Густина дорівнює: ', i, ' кг/м3');
    end;
    5:
    begin
      f := a * b;
      writeln('Маса дорівнює: ', f, ' кг');
    end;
    6:
    begin
      g := a / b;
      writeln('Обєм дорівнює: ', g, ' м3');
    end;
    7:
    begin
      h := a / b;
      writeln('Висота дорівнює: ', h, ' м');
    end;
    8:
    begin
      j := a * b;
      writeln('Площа дорівнює: ', j, ' м2');
    end;
    9:
    begin
      k := a * b;
      writeln('Сила тяжіння дорівнює: ', k, ' Н');
    end;
    10:
    begin
      r := a / b;
      writeln('Маса дорівнює: ', r, ' кг');
    end;
    11:
    begin
      t := a / b;
      writeln('Прискорення вільного падіння дорівнює: ', t, ' Н/кг');
    end;
  end;
  
  readln;
end.

Я внес исправления и добавил begin и end в блоки case для корректной структуры программы.