Ошибка в коде, Incompatible types - Pascal ABC

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

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

Доброго времени суток! Ошибка в коде, но не могу понять почему...помогите пожалуйста разобраться! Заранее спасибо
Ошибка находится в этой строке

Решение задачи: «Ошибка в коде, Incompatible types»

textual
Листинг программы
procedure podschet (a,b,c:real;var r:real);
begin
r:=(2*a-b-cos(c))/3.5-abs(c);
end;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    begin
Write('Введите S = '); Readln(S);
Write('Введите t = '); Readln(t);
podschet(t,-3*s,2.5-t,r1);
podschet(5.2,3*t,s-t,r2);
y:=r1+r2;
writeln('При S=',s:5:1,' и t= ',t:5:1,' y=',y:6:2);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
readln;
end.

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

  1. В процедуре podschet используются три переменные типа real: a, b и c, а также одна переменная типа real var: r.
  2. Выражение (2*a-b-cos(c))/3.5-abs(c) вычисляется и присваивается переменной r.
  3. В блоке try считываются значения переменных S и t с помощью функций Readln.
  4. Далее вызываются две функции podschet с аргументами t, -3s, 2.5-t и r1, и 5.2, 3t, s-t и r2 соответственно.
  5. Результат вычислений функций podschet сохраняется в переменную y.
  6. Выводится сообщение с значениями переменных S, t и y.
  7. В блоке except обрабатывается исключение, выводится сообщение об ошибке.

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

12   голосов , оценка 4.083 из 5