Страница 1 из 1

Ветвление. Вычислить функцию.

Добавлено: 13 май 2009, 21:47
sh1p
Привет! Помогите, пожалуйста, написать 2 программы!
№1
Написать программу, осуществляющую вычисление функции. Все исходные значения запрашиваются у пользователя. Результат вычислений вывести на экран.

Re: Ветвление. Вычислить функцию.

Добавлено: 13 май 2009, 23:19
Naeel Maqsudov

Код: Выделить всё

write('Введите X и Y через пробел:'); readln(x,y);
if x<y 
  then f:=y/x
  else if x=y then f:=x+y
    else f:=x/y;
writeln('f(x)=',f);