Допоможіть будь ласка.
створіть проєкт задачі : В магазині діє акція:
якщо купити товару до 100гр. скидки немає, якщо купити товару від 100 до 500гр скидка 10%, інакше 20%. Створити проект який буде рахувати, яку суму треба заплатити при
розрахунку на касі. На мові Lazarus
Ответы
Ответ:
Объяснение:
program DiscountCalculator;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
total: integer;
discount: integer;
discountedTotal: integer;
begin
// Запитуємо користувача ввести загальну суму покупок
writeln('Введіть загальну суму покупок:');
readln(total);
// Визначаємо, яку знижку отримає користувач
if (total < 100) then
discount := 0
else if (total >= 100) and (total < 500) then
discount := 10
else
discount := 20;
// Обчислюємо суму покупок з урахуванням знижки
discountedTotal := total - (total * discount) div 100;
// Виводимо результат
writeln('Загальна сума покупок: ', total);
writeln('Знижка: ', discount, '%');
writeln('Сума до сплати з урахуванням знижки: ', discountedTotal);
readln;
end.
Відповідь:
Примітка: на фотографіях скріншот середовища Lazarus IDE з успішно скомпільованим кодом, а також усі потрібні приклади виконання програми.
(Щоб запустити код натисніть на маленьку кнопку у лівому куті вікна (маленька зелена стрілка(на фото є)).
+ Всі можливі випадки перевірки на фото (3 приклади виведення)
Текст програми на мові Pascal, налаштована під середовище IDE Lazarus:
program CalculateDiscount;
var
price: integer;
discount: real;
begin
writeln('Enter the purchase amount:');
readln(price);
if price < 100 then
discount := 0
else if price < 500 then
discount := 0.1
else
discount := 0.2;
writeln('Purchase amount: ', price);
writeln('Discount: ', discount*100:0:0, '%');
writeln('Amount of payment: ', price*(1-discount):0:2);
readln;
end.
