"Нельзя преобразовать 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;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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