Ошибка в программе

[Silva_de_souza]

Почему то делаю программу в Pascal ABC и все работает, ее же открываю в Geany и считает неправильно
Задача: Составить программу для вычисления значения функции f(x)
f=k*x,если k<x
f=k+x, если k>=x
f=x^3,если sin(x)<0,
где k=|x|,если sin x>=0

program ex1;
var k,x,f : integer;
BEGIN
writeln('vvedite chislo');
readln(x);
if sin (x)>=0 then
begin
k:=abs(x);
if k=x then f:=k+x;
end
else f:=sqr(x)*x;
writeln('f(x)=',f);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

код оформляй правильно (кнопочка с #)
дык компилятор разный, и не только он...

[Silva_de_souza]

и как правильно для Geany тогда получится?

[eoln]

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

f=k*x,если k<x
где k=|x|

Это как? Условие странное или неполное

У меня Geany с компилятором fpc 2.4.4, считает правильно. Я АВС не знаком... может он в градусах, а не радианах считает. Вобщем показывай что вводишь и что выводится в обоих паскалях

[Silva_de_souza]

вот сама не знаю,че там за условие..должно быть так:
ввод 100
вывод 1000000

ввод 300
вывод 27000000
ввод -300
вывод 0

[eoln]

integer разные типы в разных компиляторах. Вот и возникает переполнение. integer меняй на longint

[Silva_de_souza]

и тогда в geany получается так:

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

ввод 100
вывод 1000000

ввод 300
вывод 27000000
ввод -300
вывод 0

?
а то у меня дома его нет,только в школе

[eoln]

Да...............

[Silva_de_souza]

Спасибо большое! Вы мне очень помогли!