Не могу найти ошибку в программе - Free Pascal

Узнай цену своей работы

Формулировка задачи:

не могу разобраться и найти ошибку, до "3" раздела, ошибок не было, наверное в знаках ошибки или в переменных, но я в этом плохо разбираюсь. Прошу вашей помощи, кто хорошо разбирается
Program LabRab3;
const a=-0.5;b=2;z=0.78;
Var N,C,M,W,h,j,p:integer;t,x,y,k:real;
Begin;
writeln('введите номер задачи');
readln (N);
CASE N OF
1:begin
writeln('введите t');
readln (x);
if t>2 then y:=a*(sqr(t))+ln(x) else
if t<=2 then y:=(exp(a*t))*cos(b);
writeln('значение y=',y:10:5);
readln
end;
2:begin
k:=(2*sin(z))-sqrt(3*abs(z));
writeln('k=' ,k:10:5);
readln
end;
3:begin
M:=17;
N:=3;
W:=trunc(M/N);
writeln ('17 div 3 = ',W);
W:=M-N*trunc(M/N);
writeln (17 mod 3 = ',W);
W:=M-N
writeln (17-3 =',W);
readln
end.
end.
END

Решение задачи: «Не могу найти ошибку в программе»

textual
Листинг программы
Program Z1;
const a=-0.5;b=2;z=0.78;
Var N,C,M,W,h,j,p:integer;t,x,y,k:real;
Begin
writeln('введите номер задачи');
readln (N);
CASE N OF
1:begin
  writeln('введите t');
  readln (x);
  if t>2 then y:=a*(sqr(t))+ln(x) else
  if t<=2 then y:=(exp(a*t))*cos(b);
  writeln('значение y=',y:10:5);
  readln
  end;
2:begin
   k:=(2*sin(z))-sqrt(3*abs(z));
   writeln('k=' ,k:10:5);
   readln
  end;
3:begin
   M:=17;
   N:=3;
   W:=trunc(M/N);
   writeln ('17 div 3 = ',W);
   W:=M-N*trunc(M/N);
   writeln ('17 mod 3 = ',W);
   W:=M-N;
   writeln ('17-3 = ',W);
   readln
  end;
end;
end.

Объяснение кода листинга программы

Список действий в коде:

  1. Ввод номера задачи.
  2. Ввод значения переменной t для первой задачи.
  3. Вычисление значения переменной y для первой задачи.
  4. Вывод значения переменной y.
  5. Ввод значения переменной z для второй задачи.
  6. Вычисление значения переменной k для второй задачи.
  7. Вывод значения переменной k.
  8. Ввод значения переменной M для третьей задачи.
  9. Вычисление значения переменной W для третьей задачи.
  10. Вывод значения переменной W (17 div 3).
  11. Вычисление значения переменной W для третьей задачи.
  12. Вывод значения переменной W (17 mod 3).
  13. Вычисление значения переменной W для третьей задачи.
  14. Вывод значения переменной W (17-3).
  15. Завершение работы программы.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы