В цьому блоці уроків будемо розглядати приклади програм написаних на мові Pascal. Задачі будуть з різних предметів та галузей застосування. Уроки будуть подаватися в логічній послідовності від найпростіших - лінійних програм і до складніших. Даний блок уроків буде корисним для учнів шкіл, студентів технікумів, коледжів, а також студентам перших курсів технічних спеціальностей. Код програм будемо писати для середовища Turbo Pascal 7. Звичайно код легко змінити для іншого середовища.
Задача 1.
Умова: Якщо на одну шальку терезів посадити Даринку, яка важить n кг, і Наталку, яка важить на 5 кг менше, а на іншу насипати m кг цукерок, то скільки кілограмів цукерок доведеться з'їсти дівчаткам, щоб шальки терезів врівноважились.
Введемо наступні змінні для зберігання необхідних результатів:
N - вага Даринки;
M - вага цукерок;
P - вага цукерок, що необхідно з'їсти дівчинкам.
Тоді програма для розв'язання задачі буде такою:
Program Task_41; Uses crt; Var M, N, P : real; Begin Clrscr; Write(‘Введіть вагу Даринки ’); Readln(N); Write(‘Введіть вагу цукерок, що лежать на терезах’); Readln(M); P := N + N – 5 – M; {N – 5 – вага Наталки} Writeln(‘Дівчаткам необхідно з’їсти ’,P,‘кг цукерок.’); Readln; {Процедура затримує зображення на екрані до натискання клавіші Enter} End.
Задача 2.
Умова: Дано два дійсних числа a та b. Обчислити їх суму, різницю, добуток.
Необхідні змінні:
a, b - задані числа;
Add - сума чисел;
Sub - різниця чисел;
Multy - добуток чисел.
Програма має наступний вигляд:
Program Task_50; Uses crt; Var a, b, Add, Sub, Multy : real; Begin Clrscr; Write(‘Введіть два числа ’); Readln(a,b); Add := a + b; Sub := a – b; Multy := a*b; Writeln(‘Результати обчислень:’); Writeln(‘Сума = ‘, Add :8:2); Writeln(‘Різниця = ’, Sub :8:2); Writeln(‘Добуток = ’, Multy :8:2); Readkey; {Процедура затримки зображення на екрані до натискання будь-якої клавіші} End.
Задача3.Умова: Визначити, яку роботу необхідно виконати, щоб підняти тіло масою m на висоту h від Землі.
Необхідні змінні:
m - маса тіла;
h - висота підйому тіла;
A - робота.
Математична довідка:
Робота, необхідна для підняття тіла масою m на висоту h, обчислюється за наступною формулою:
A = mgh,
де g = 9,8 - таблична константа (прискорення вільного падіння).
Програма має наступний вигляд:Program Task_66; Uses crt; Var m,h,A : real; Begin Clrscr; Write(‘Введіть масу тіла ’); Readln(m); Write(‘Введіть висоту підйому тіла ’); Readln(h); A := m*h*9.8; Writeln(‘Виконана робота дорівнює: ’, А:8:2); Readkey; End.
Задача 4.Умова: Визначити, яку платню одержить на фірмі сумісник за виконану роботу, якщо йому нараховано S грн., а податок становить 20 відсотків.
Необхідні змінні:
S - сума нарахувань сумісника;
P - реальна платня, що він одержить у касі (за умовою вона становить 80% від нарахувань).
Програма має наступний вигляд:Program Task_73; Uses crt; Var P,S : real; Begin Clrscr; Write(‘Введіть суму нарахувань робітника ’); Readln(S); P := S*0.8; Writeln(‘Платня сумісника становить: ’, P:8:2); Readkey; End.
Задача 5.Умова: Дано гіпотенуза і один з катетів прямокутного трикутника. Знайти другий його катет і площу вписаного круга.
Необхідні змінні:
a - катет прямокутного трикутника;
c - гіпотенуза прямокутного трикутника;
b - довжина невідомого катета;
S - площа вписаного круга.
Математична довідка:
- b другий катет прямокутного трикутника знаходиться за теоремою Піфагора a^2 + b^2 = c^2, звідки випливає, що катет дорівнює:
- площа вписаного круга обчислюється за наступною формулою:
Програма має наступний вигляд:
Program Task_58; Uses crt; Var a, b, c, S : real; Begin Clrscr; Write(‘Введіть довжину гіпотенузи ’); Readln(с); Write(‘Введіть довжину відомого катета ’); Readln(a); b := sqrt(sqr(c)-sqr(a)); S := Pi*(a+b-c)/2; Writeln(‘Довжина невідомого катета: ’, b:8:2); Writeln(‘Площа вписаного кола: ’, S:8:2); Readkey; End.