помогите с задачкой

[plasteed]

задание 3 не могу функцию раскидать

[Stilet]

Что значит "раскидать"?

[plasteed]

раскидать - это значит что к чему сводить для решение данной задачи

я так то не программер, я больше по железу, и паскаль можно сказать вообще не знаю

[Poma][a]

Дык тут сильно уметь и не надо! Одна развилка.. И все..

[plasteed]

Сообщение от Poma][a

Дык тут сильно уметь и не надо! Одна развилка.. И все..

еще бы знать как ее делать

[Stilet]

паскаль можно сказать вообще не знаю

Тогда без вариантов - преподавателю денюжку.

if x>=1 then z:=sqr(s*sqrt(x)+1)
else z:=-x;

[Poma][a]

Тогда без вариантов - преподавателю денюжку.

Ну почему же?
Есть еще 2 варианта : 1) Альтруизм Stilet'a 2) Фриланс..

[Stilet]

Есть еще 2 варианта

3) Неизвестный паскаль.

var x:double;
begin
 write('вичисление...',#13#10,'Введите...');
 readln(x);
 if x>=1 then write('Результ...',sqr(2*sqrt(x)+1))
 else write('Результ...',-x);
end.

А дальше как повезет с компилятором )

[plasteed]

Сообщение от Stilet

3) Неизвестный паскаль.

var x:double;
begin
 write('вичисление...',#13#10,'Введите...');
 readln(x);
 if x>=1 then write('Результ...',sqr(2*sqrt(x)+1))
 else write('Результ...',-x);
end.

А дальше как повезет с компилятором )

спасибо большое, есть одна просьба, как с тобой связаться?

[Stilet]

Пожалуйста.
Никак. Я обитаю только на этом форуме, поэтому создавай темы. Если у меня будет время и желание буду отвечать. Если нет - будут отвечать другие форумчане.