Question

ПАСКАЛЬ АВС

ОЧЕНЬ СРОЧНО,ПОЖАЛУЙСТА


При помощи функции trunc() в Паскале можно реализовать операции целочисленного деления и взятия остатка от деления. Например:
целочисленное деление - trunc(491/240) - результатом будет 2;
остаток от деления - 491-240*trunc(491/240) - результатом будет 11.
Используя функцию trunc(), напишите программу, считающую сдачу в английской денежной системе (в этой денежной системе 1 фунт стерлингов равен 20 шиллингам, а 1 шиллинг равен 12 пенсам). Напишите программу, в которой в трёх константах хранится стоимость товара. Одна константа - фунты (целое значение больше нуля), вторая - шиллинги (значение от 0 до 19), третья - пенсы (значение от 0 до 11). Ещё в трёх таких же константах хранится плата покупателя. Используя одну целочисленную переменную, программа должна сосчитать и вывести на экран сдачу в фунтах, шиллингах и пенсах. НЕ ИСПОЛЬЗОВАТЬ УСЛОВНЫЙ ОПЕРАТОР

ПРОГРАММА ДОЛЖНА БЫТЬ НАПИСАНА НА ПАСКАЛЕ АВС

Answer 1

В одном фунте 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.

Answer 2

Да, для примера. Взяты с потолка. Обычно их вводят с клавиатуры, но тогда используются не константы, а переменные. Вот это у меня и вызывает удивление.

Answer 3

я тогда этот момент уточню на курсах,спасибо большое еще раз !

Answer 4

Удачи!

Answer 5

Там в проге лишняя переменная была - игрек. Убрал ее, она нигде не используется