Найти ошибки в программе

Imwey

Найти ошибки в данной программе:
9 ответов

Imwey

Ошибки в первой, второй, четвёртой, шестой, седьмой, девятой и последней строчках!


Imwey

а если я попрошу вас их исправить?)


Imwey

Мне лень! Так же как и вам лень соблюдать правила форума…Что толку, что я их исправлю на своём мониторе?


Imwey

без проблем
program p1;
var a,b:integer;
function
calcul(x,y:integer):integer;
begin
calcul=(x+y)/2;
end;
begin
a=10, b=4;
writeln(calcul(a,b):6:2);
end.


Imwey

Это совсем не тот код! Вернее не совсем тот код, что на картинке!


Imwey

это уже немного исправленный код, что может упросить вам задачу) честно не понимаю, как можно еще исправить


Imwey

Остались ошибки в четвёртой, шестой и девятой строках!В десятой строке ошибки не было! Зачем вы её исправили?


Imwey

какая конкретно ошибка в 4 строке?
program p1;
var a,b:integer;
function
calcul(x,y:integer):real;
begin
calcul:=(x+y)/2;
end;
begin
a:=10; b:=4;
writeln(calcul(a,b):6:2);
end.


Imwey

program p1;
 
var
  a, b: integer;
 
function calcul(x, y: integer): real;
begin
  calcul := (x + y) / 2;
end;
 
begin
  a := 10;
  b := 4;
  writeln(calcul(a, b):6:2);
end.