Складання та виконання лінійних алгоритмів опрацювання величин в навчальному середовищі програмування

Завдання 1. Парк атракціонів

У парку атракціонів побудували нову гірку завдовжки с, яка біля підніжжя нахилена до основи b під кутом а градусів. Розробіть проект Атракціон, за допомогою якого можна визначити висоту гіркиh та довжину основи b, округлені до цілого числа. Використайте формулу для переведення величини, вираженої у градусах, у радіани: радіани = градуси * а/180

Скачати для перегляду

Завдання 2. Тривалість рейсу

Розробіть проект Тривалість рейсу для обчислення тривалості рейсу в годинах і хвилинах для деякого автотранспортного підприємства, якщо відомо, що маршрут складається із трьох відрізків – s1,s2, s3 км, які транспорт долає зі швидкістю v1, v2, v3 км/год. Між ділянками маршруту є зупинки по t хв.

Завдання 3. Квартплата

В об'єднанні співвласників багатоквартирного будинку здійснюються такі виплати: 0,36 грн/м² – за користуванням ліфтом, 0,12 грн/м² – за вивіз сміття з особи, 0,5 грн/м² – формування ремонтного фонду, 2,15 грн/м² – квартплата. У середовищі програмування Lazarus розробіть проект Квартплата для розрахунку оплати відповідно до показників квитанції за квартиру площею S м² на місяць, у якій проживає n осіб. Передбачте введення значень площі та кількості осіб у вікнах введення, а відображення розміру оплати – на формі проекту.

Завдання 4. Суматор 

У середовищі програмування Lazarus розробіть проект Суматор, у якому після натиснення кнопки Старт у вікні введення даних слід ввести трицифрове ціле число. Після чого у вікно повідомлення буде виводитися сума його цифр.

Ідентифікатор	Тип	Призначення
Chislo	integer	Введене трицифрове число
dig1	integer	Перша цифра числа
dig2	integer	Друга цифра числа
dig3	integer	Третя цифра числа
s	integer	Сума цифр

Запишіть команду введення значення для змінної chislo:

chislo:=StrToInt(InputBox('Введення числа, 'Введіть трицифрове число:', ' '));

Проаналізуйте та введіть програмний код виділення цифр числа:

dig1:=chislo div 100;

chislo:= chislo-dig1*100;

dig2:=chislo div 10;

dig3:= chislo-dig2*10;

s:= dig1+  dig2+ dig3;