1. Информатика
  2. Паскаль авс , при функции

Паскаль авс , при функции trunc() в паскале можно реализовать операции целочисленного деления и взятия остатка от деления. например: целочисленное деление - trunc(491/240) - результатом будет 2; остаток от деления - 491-240*trunc(491/240) - результатом будет 11. используя функцию напишите программу, считающую сдачу в денежной системе (в этой денежной системе 1 фунт стерлингов равен 20 шиллингам, а 1 шиллинг равен 12 пенсам). напишите программу, в которой в трёх константах хранится стоимость товара. одна константа - фунты (целое значение больше нуля), вторая - шиллинги (значение от 0 до 19), третья - пенсы (значение от 0 до 11). ещё в трёх таких же константах хранится плата покупателя. используя одну целочисленную переменную, программа должна сосчитать и вывести на экран сдачу в фунтах, шиллингах и пенсах. не использовать условный оператор программа должна быть написана на паскале авс

AngelinaLOL18 AngelinaLOL18    1   19.06.2019 05:40    0

Ответы
Kosty12541 Kosty12541  15.07.2020 15:30
В одном фунте 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
506010 506010  20.05.2021 08:22
Создайте проект для вычисления среднего арифметического положительных чисел,. первое из которых равно 100, а каждое последующее меньше предыдущеrо на задашное положительное...
svetasvetlana7 svetasvetlana7  28.05.2019 03:30
Рисунок размером 256 на 76 пикселей закодирован с палитрой 256 цветов сколько килобайт занимает в памяти рисунок без учета сжатия...
upsbeats upsbeats  28.05.2019 03:30
Вшкольную команду по волейболу было отобрано некоторое количество учеников из 64 претендентов. сколько учеников было отобрано, если сообщение о том, кто был выбран, содержит...
vedruss7881 vedruss7881  28.05.2019 03:30
Что такое глубина дискретизации звука?...
мскисуля2 мскисуля2  28.05.2019 03:30
Ккакому типу программного обеспечения относится утилита, позволяющая восстановить стертый с диска файл? 1.специальное 2.прикладное 3.система программирования 4.системное...
ksenia112005 ksenia112005  28.05.2019 03:30
Звук длительностью 1 минута оцифрован с частотой 22000гц. глубина кодирования 16 бит. определите размер полученного файла в мб. результат округлите до двух цифр после запятой...
5Августина5 5Августина5  02.04.2020 16:25
Напишите менеджер контекста, который позволит засекать время выполнения блока кода с конструкции with и выводить это время на экран по выходу из блока...
kuprianova24012 kuprianova24012  02.04.2020 16:28
Известен десятичный код (номер) некоторого символа - 30. Определите, какой это символ:...
ffjuee ffjuee  11.05.2020 15:48
17. Географическую карту следует рассматривать, скорее всего, как модель следующего вида: 1. математическую 2. графическую 3. иерархическую 4. табличную 18. В информационной...
danilasavap0a3nj danilasavap0a3nj  11.05.2020 15:49
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 12 символов и содержащий символы латинского алфавита (заглавные и строчные), десятичные...

Популярные вопросы