Выполнение программы простой структуры Опции

[cruising]

Помогите пожалуйста разобраться, задание на рисунке, вот что у меня получилось

Var x,x1,y,y1,y2:real;T:Boolean;
Begin
Writeln('введите число для вычисления выражения1');
Read(x);
Writeln('Результат задания а');
If x>0 then writeln('')else
Begin
y:=exp(1/3*ln(x-x*x))+exp(5*ln(x));
Writeln ('при х=',x:6:3,' y=',y:6:3);
y1:=abs(y);
Writeln('Абсолютное значение y1=', y1:6:3);
y2:=sqr(y);
Writeln('Квадрат у=',y2:6:3);
End;
Writeln('Введите координаты точки');
Readln(x1,y1);
T:=(sqr(x1)+sqr(y1)<=1);
Writeln('Результат задания б:',t);
End.

Что мне нужно написать в строке if?

М

Тэги!! Правила Форума, п.5, и правила раздела задачи, п.2. Lapp

Сообщение отредактировано: Lapp - 12.04.2010 7:35

[volvo]

функция должна иметь один выход, а у вас 3

Научитесь сначала читать код, потом возьметесь за критику. Где 3 выхода? Я вижу только один выход из подпрограммы. Перед последним End-ом. Все остальное - не более чем запоминание результата, который функция может вернуть (а может и НЕ вернуть, как повезет).

Кстати, ссылку на "правила структурирования программ" можно получить? (с указанием автора, желательно - не Васи Пупкина)... И заодно объяснение, чем подобная функция нарушает правила структурирования... Иначе - все, что я вижу в этом посте - это поднятие старой темы, причем необоснованное. Если ответа не последует в течении 12 часов - пост №18 будет просто удален. Как и все последующие.

[Гость]

Научитесь сначала читать код, потом возьметесь за критику. Где 3 выхода? Я вижу только один выход из подпрограммы. Перед последним End-ом. Все остальное - не более чем запоминание результата, который функция может вернуть (а может и НЕ вернуть, как повезет).

Кстати, ссылку на "правила структурирования программ" можно получить? (с указанием автора, желательно - не Васи Пупкина)... И заодно объяснение, чем подобная функция нарушает правила структурирования... Иначе - все, что я вижу в этом посте - это поднятие старой темы, причем необоснованное. Если ответа не последует в течении 12 часов - пост №18 будет просто удален. Как и все последующие.

1.Выход из функции все должен находится перед закрывающем операндом.(Примеры: MFC)
2.Любую книгу возьми про стили программирования.
3.Поэтому желательно писать так (если вам конечно не жалко памяти, если жалко памяти пишите на asm'е):

function Root3(e: extended): extended;
integer tmp;
begin
    if (e = 0) then 
        tmp := 0;
    else if (e > 0) then 
        tmp := exp(1/3 * ln(e));
    else 
        tmp := -exp(1/3 * ln(-e));

    Root3 := tmp;
end;