Не могу найти ошибку в программе - 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.
Объяснение кода листинга программы
Список действий в коде:
- Ввод номера задачи.
- Ввод значения переменной t для первой задачи.
- Вычисление значения переменной y для первой задачи.
- Вывод значения переменной y.
- Ввод значения переменной z для второй задачи.
- Вычисление значения переменной k для второй задачи.
- Вывод значения переменной k.
- Ввод значения переменной M для третьей задачи.
- Вычисление значения переменной W для третьей задачи.
- Вывод значения переменной W (17 div 3).
- Вычисление значения переменной W для третьей задачи.
- Вывод значения переменной W (17 mod 3).
- Вычисление значения переменной W для третьей задачи.
- Вывод значения переменной W (17-3).
- Завершение работы программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д