Помощь в написании программы

[Адам_]

Вычислить значение функции. Значение x ввести с экрана. Результат вывести на экран. screenshot_1

Вычислить значение функции. Значение x ввести с экрана. Результат вывести на экран. Использовать два условных оператора. Screenshot_2

[digitalis]

Помогаю.
1. Взять конспект (пару первых лекций) или учебник, внимательно почитать.
2. Написать всю эту бодягу, проверить на тестовых значениях.
3. Сказать: "Ёрш твою клёш, да тут же и делать-то было не фига !" - и идти пить пиво.

[newerow1989]

function f(x: real): real;
begin
   if x<=7 then
      f:=-3*x+9 else
      f:=1/(x-7);
end;

const a = 5;
var x, y: real;
begin
   Write('x = '); Readln(x);
   if x<a then
      y:=0 else
   if x>a then
      y:=(x-a)/(x+a) else
      y:=1;
   Writeln('F(x) = ', f(x):0:8);
   Writeln('y = ', y:0:8);
   Readln;
end.

[digitalis]

А ему не на Паскале надо было... Телепатирую: прога д.быть на Алгол-60