begin
Writeln (Trunc(123.456)); { Çıktı 123 }
Writeln (Trunc(-123.456)); { Çıktı -123 }
Writeln (Trunc(12.3456)); { Çıktı 12 }
Writeln (Trunc(-12.3456)); { Çıktı -12 }
readln;
end.
Konu: Pascal'da ufak bir sorun
begin
Writeln (Trunc(123.456)); { Çıktı 123 }
Writeln (Trunc(-123.456)); { Çıktı -123 }
Writeln (Trunc(12.3456)); { Çıktı 12 }
Writeln (Trunc(-12.3456)); { Çıktı -12 }
readln;
end.