ПАСКАЛЬ АВС ОЧЕНЬ СРОЧНО,ПОЖАЛУЙСТА При помощи функции trunc() в Паскале можно реализовать операции целочисленного деления и взятия остатка от деления. Например: целочисленное деление - trunc(491/240) - результатом будет 2; ...
ПАСКАЛЬ АВС
ОЧЕНЬ СРОЧНО,ПОЖАЛУЙСТА
При помощи функции trunc() в Паскале можно реализовать операции целочисленного деления и взятия остатка от деления. Например:
целочисленное деление - trunc(491/240) - результатом будет 2;
остаток от деления - 491-240*trunc(491/240) - результатом будет 11.
Используя функцию trunc(), напишите программу, считающую сдачу в английской денежной системе (в этой денежной системе 1 фунт стерлингов равен 20 шиллингам, а 1 шиллинг равен 12 пенсам). Напишите программу, в которой в трёх константах хранится стоимость товара. Одна константа - фунты (целое значение больше нуля), вторая - шиллинги (значение от 0 до 19), третья - пенсы (значение от 0 до 11). Ещё в трёх таких же константах хранится плата покупателя. Используя одну целочисленную переменную, программа должна сосчитать и вывести на экран сдачу в фунтах, шиллингах и пенсах. НЕ ИСПОЛЬЗОВАТЬ УСЛОВНЫЙ ОПЕРАТОР
ПРОГРАММА ДОЛЖНА БЫТЬ НАПИСАНА НА ПАСКАЛЕ АВС
Гость
Ответ(ы) на вопрос:
ГостьВ одном фунте 20*12=240 пенсов.
Стоимость товара: F1 - фунты, S1 - шиллинги, P1 - пенсы
Плата покупателя: F2 - фунты, S2 - шиллинги, Р2 - пенсы
Х - сдача в пенсах
const
f1=11;
s1=5;
p1=3;
f2=12;
s2=10;
p2=0;
var
x:integer;
begin
x:=f2*240+s2*12+p2-f1*240-s1*12-p1;
writeln('Сдача:');
writeln('фунтов ',trunc(x/240));
x:=x-240*trunc(x/240);
writeln('шиллингов ',trunc(x/12));
x:=x-12*trunc(x/12);
writeln('пенсов ',x);
end.
Не нашли ответ?
Похожие вопросы