Паскаль: задача на ввод ии изменение чисел

[Андрей Суворов]

задали сделать программу, которая меняет дроби на денежные единицы
пример: ввожу число 10,5 и программа должна сделать преобразование в 10руб. 50 коп. я думаю,смысл понятен. прошу помочь с написанием программы

[Hacker19_90]

И чем вам помоч? В чём собственно заключается сложность?

[Андрей Суворов]

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

[Hacker19_90]

Студентики...
в самом простом случае это выглядит так

var x: real;
begin
  ReadLn(x);
  WriteLn(trunc(x), ' рублей ', frac(x), ' копеек' );
end.

[Андрей Суворов]

спасибо большое

[Serge_Bliznykov]

Hacker19_90, видимо, Вы своё решение не проверяли, да?..


ну, я бы всё таки вот так записал:

var x: real;
begin
  ReadLn(x);
  WriteLn(trunc(x), ' руб. ', frac(x)*100:2:0, ' коп.' );
  Readln {просто ждём нажатия Enter, чтобы оператор прочитал ответ}
end.

[Hacker19_90]

Hacker19_90, видимо, Вы своё решение не проверяли, да?..

АА блин я и забыл, что дробное вернётся с frac!

[Sciv]

Лишь бы ТС это прочитал, а то ведь так и сдаст "свою" программулинку

[New man]

Пусть сдает :D

Сдавать прогу, не проверив ее - верх эээ.... оптимизма

[Андрей Суворов]

я все проверил) всем спасибо)