Если функции вычисляются для двух конкретных значений Х и У, то операторы Read и Data не нужны. В QBasic решение выглядит так (знаки подчёркивания убери, строчки сдвинуты вправо просто для удобства, чтобы просматривалась структура): CLS
INPUT x, y
'вычисляем Z
IF x>0 THEN
______z=x+y
ELSE
____IF x<0 THEN
__________z=1/(x^2+1)
END IF
'вычисляем F
IF x>y THEN max=x ELSE max=y
IF z>max THEN max=z
f=max
'выводим на экран
PRINT z, f
END
Так как в твоей задаче не рассматривается вариант нахождения z при х=0, то в таком случае автоматически присваивается z=0.
P.S. Я полагаю, в Турбо Бейсике лишь слегка отличается запись операторов. Например, сложное условие пишется в строчку, а не в столбик...
RSS:
