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

[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 3:35

[volvo]

По ходу человек готовится писать на чистом Си, без ООП

Тогда пусть этот челвек отвечает в разделе "Другие языки", а не лезет в Паскаль, коли не знает того, что Паскаль позволяет использовать имя функции (как LValue) для промежуточного хранения результата функции (либо до ее окончания, либо до Exit-а)

Причём код с бреак читается намного хуже чем с гото.

За код с goto у нас не задумываясь, и не смотря на любые прежние заслуги, увольняют без выходного пособия. Точка.

Достаточно посмотреть примеры опенсорсных сишных программ чтобы уяснить какие методы можно применять в реальных программах а какие в показательных учебных.

Опенсорс - это "я так делаю, потому что моя левая пятка так захотела, или мне так проще, и плевать на мнение остальных". Не далее, как сегодня я уже видел подобный хит: Кнопки WinAPI (а потом опять будут разговоры, что программа не работает, и опять во всем будут винить ОС).

Опенсорс - помойка, и очень часто - пример того, как писать НЕ надо...

"Теперь по Борщову" (С)

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

1. MFC - это не Паскаль, посему примером для меня быть не может в данном случае. Язык не тот. О разнице между return и <имя_функции> := я уже написал выше. Си нервно курит в стороне в данном случае...
2. Я же просил ссылку, а не абстрактного "Васю Пупкина", даже если его зовут Herb Sutter. Я все еще жду...
3. Мне как раз памяти жалко, вот я временную переменную не описал, в отличие от... Не нужно это. А на чем писать - это я как-нибудь сам разберусь, без посторонней помощи.