Составить программу для вычисления функции, используя оператор выбора case

03.06.2010, 11:02. **Показов** 1264. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Введите три целых положительных числа a, b, c. Определите остаток k от деления на 5 величины M, равной:
M=(a+sqr(b)+c)/c,
вычислите значение функции y:
y=ln(a+b), k=1;
y=sin(sqr(M+a)), при k=3...

Pascal

var
a,b,c,m:integer;
y:real;
begin
  writeln('Введите a,b,c'); readln(a,b,c);
  m:=(a+sqr(b)+c)/c;
    case m mod 5 of
      1:y:=ln(a+b);
      3:y:=sin(sqr(m+a));
    end;
end.

Компилятор выдает ошибку "Error 26: Type mismatch." и показывает на строчку m:=(a+sqr(b)+c)/c;

@Lyohich84 · 03.06.2010, 11:56

переменная m должна быть real или выражение нужно округлить

Pascal

1	m:=round((a+sqr(b)+c)/c)

	03.06.2010, 11:56