вычислить значение кусочной функции.

[студенткаа...]

Помогите пожалуйста написать программу на pascale.
Вычислить значения кусочной функции для любого b

sin(b) , b<0
A= 10 , b=0
cos(b) , b>0

[~~~]

var
    f, x: Real;
begin
    ReadLn(x);
    if x < 0 then f := Sin(x);
    if Abs(x) < 1e-4 then f := 10;
    if x > 0 then f := Cos(x);
    WriteLn(f);
    ReadLn;
end.

[Mad_Cat]

ну или так

var
    f, x: Real;
begin
    ReadLn(x);
    if x < 0 then f := Sin(x) else
    if x = 0 then f := 10
    else f := Cos(x);
    WriteLn(f);
    ReadLn;
end.

[~~~]

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

[Пепел Феникса]

так как ввод от руки то можно просто использовать сравнение с нулем.
да и вообще с нулем вполне безопасно сравнивать.

[Mad_Cat]

Mad_Cat, только равенство для вещественных чисел лучше не использовать...

приведи пример почему?
0.000001!=0 вот)

[Serge_Bliznykov]

~~~ , прав. Лучше не сравнивать вещественные числа с константой.
Почему?
Проверяем:

var r : real;
begin
   r := 0.2;
   r := r - 0.2;
   if r = 0 then
     WriteLn('Ну, так и должно быть!')
   else
     WriteLn('Что такое?! Почему не равно??!!!!');
   Readln;
end.

ДОБАВЛЕНО
А ещё я не устану повторять ссылки на статьи!! Ибо - ПОЛЕЗНО!!

всем КРАЙНЕ настойчиво рекомендую почитать статью на Королевстве Delphi:
Неочевидные особенности вещественных чисел (с) Григорьев Антон

ну и про то же..
Загадки округления

ну и ещё, дополнительно (для самых любознательных, хотя по ссылкам выше тема более чем раскрыта):
вопрос-ответ по теме округления вещественных чисел

[Sparkman]

[OFFTOP]Студентам на заметку: вот видите как помогают людям с псевдонимами женского рода? Дерзайте [/OFFTOP]
а будь никнейм, например, "студент", то вероятнее бы всего сказали номер аси, а в асе размер вознаграждения за код, или еще хуже - отправили бы учить матчасть