Вычесление функций...

[Lemo]

парни, я вот написал програмку, вот задание:
Дано действительное число "а" . Для функций f(x), графики которых представлены на рисунке, вычеслить f(а).
Вот Код моей програмы:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var a:real;
    y,y1,y2:real;
begin
Write ('VveDiT A=');
readln (a);
y:=-(1/(a*a));
y1:=a*a;
y2:=4;
writeln ('y=', y:6:2);
writeln ('y1=', y1:6:2);
writeln ('y2=', y2:6:2);
readln;
end.

Программа написана правильно(имею ввиду без ошибок), но я сделал то условие, которое требовалось или нет???
рисунок http://www.valar.ru/upload/png/1008/1224406787_.htm

[Izhic]

Однозначно , нет.
Я так понимаю правильно ты сам хочешь сделать , или надо отредактировать )))
Кстати мне интересно sqr(a) быстрее a*a , или нет. Кто знает?

[Izhic]

Так и быть :

y:=ifthen(x<=-1, -(1/sqr(a)), sqr(a));
y:=ifthen(x>=2, 4, y);

[Lemo]

так, что то я не совсем понял:кроме "а*а", есть заме4ания?

[Izhic]

Выше смотри

[Lemo]

Прости, но я не понимаю что ты написал, вставь это в мой код, я скопирую весь код в Делфи и посмотрю, что из этого будет!

[Izhic]

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var a:real;
y:real;
begin
Write ('VveDiT A=');
readln (a);
y:=ifthen(a<=-1, -(1/sqr(a)), ifthen(a<2, sqr(a), 4));
writeln ('y=', y:6:2);
readln;
end.

[Lemo]

У меня такое ущущение, что ты вслепую это делаешь, так как у мя много ошибок Делфи находит в этом коде!

[Izhic]

Я в слепую и делал , даже Дельфю не открывл ))))

[Izhic]

Странно ifthen у меня тоже как надо не обрабатывается. Попробуй так:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var a:real;
y:real;
begin
Write ('VveDiT A=');
readln (a);
//y:=ifthen(a<=-1, -(1/sqr(a)), ifthen(a<2, sqr(a), 4));
if a<=-1 then y:=-(1/sqr(a) else
if a<2,4 then y:=sqr(a)
else y:=4
writeln ('y=', y:6:2);
readln;
end.

Ну а если не работает.......поравь т.к. структура пральная