"Нельзя преобразовать real к integer" - PascalABC.NET
Формулировка задачи:
данные на ввод для проверки(если надо):
кол-во звеньев: 4
данные:
2 3 4 38
1 5 6 1
2 4 5 42
2 3 6 80
какая задача решается: 1
отклонения можно любые ввести, они пока не влияют на ход программы
Решение задачи: «"Нельзя преобразовать real к integer"»
textual
Листинг программы
begin * * * * if S[4,j]>0 and S[4,j]<=3 then e:=e+0.55; * * * * if S[4,j]>3 and S[4,j]<=6 then e:=e+0.79; * * * * if S[4,j]>6 and S[4,j]<=10 then e:=e+0.9; * * * * if S[4,j]>10 and S[4,j]<=18 then e:=e+1.08; * * * * if S[4,j]>18 and S[4,j]<=30 then e:=e+1.31; * * * * if S[4,j]>30 and S[4,j]<=50 then e:=e+1.56; * * * * if S[4,j]>50 and S[4,j]<=80 then e:=e+1.86; * * * * if S[4,j]>80 and S[4,j]<=120 then e:=e+2.19; * * * * if S[4,j]>120 and S[4,j]<=180 then e:=e+2.52; * * * * if S[4,j]>180 and S[4,j]<=250 then e:=e+2.9; * * * * if S[4,j]>250 and S[4,j]<=315 then e:=e+3.23; * * * * if S[4,j]>315 and S[4,j]<=400 then e:=e+3.54; * * * * if S[4,j]>400 and S[4,j]<=500 then e:=e+3.89; * * * * end;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д