Тема. Реалізація алгоритмів з вкладеними розгалуженнями та оператором вибору у
вигляді програм
Мета. Навчитися реалізовувати мовою програмування алгоритми для роботи з
вкладеними розгалуженнями та оператором вибору.
Завдання
Створити програму для розрахунку вартості проведення ремонту (без
урахування цін на матеріали та енергоносії). Сплануйте залежність вартості від
терміновості проведених робіт. Врахуйте можливість знижок у залежності від
вартості робіт.
Орієнтовний перелік робіт та їх вартість:
Фарбування стін
|
1,00 грн/м2
|
Фарбування стелі
|
2,00 грн/м2
|
Облицювання стін
|
10,00 грн/м2
|
Облицювання стелі
|
15,00 грн/м2
|
Заміна віконних блоків
|
300,00 грн/шт.
|
Проклейка шпалер
|
1,50 грн/м2
|
Укладання ламінату
|
17,50 грн/м2
|
Обшивка стін гіпсокартоном
|
50,00 грн/м2
|
Заміна дверей
|
350,00 грн/шт.
|
Заміна електропроводки
|
5,00 грн/м
|
Встановлення точкових світильників
|
20,00 грн/шт
|
Встановлення розеток та вимикачів
|
10,00 грн/шт
|
При розрахунку надбавки за терміновість врахуйте наступне:
·
при виконанні ремонту за 50 днів надбавки немає;
·
при виконанні ремонту за 40 днів надбавка +10%;
·
при виконанні ремонту за 30 днів надбавка +20% ;
·
при виконанні ремонту за 20 днів надбавка +30% .
Знижки розраховуються так:
·
при повній вартості ремонту (з урахуванням надбавки за терміновість)
від 5000 до 7500 грн знижка 5%;
·
при повній вартості ремонту (з урахуванням надбавки за терміновість)
від 7500 до 10000 грн знижка 7,5%;
·
при повній вартості ремонту (з урахуванням надбавки за
терміновість) >10000 грн знижка 10%.
Вигляд програми у роботі:
Для форматованого виводу даних до текстових полів замість функції
FloatToStr доцільно використати функцію FloatToStrF. Приклад використання
функції:
Edit1.Text :=FloatToStrF(x,ffFixed,7,2);
Немає коментарів:
Дописати коментар