Конспект уроку з інформатики на тему: "Складання програм з розгалуженням"

Лабораторна робота № 8

Тема : Складання програм з розгалуженням.

Мета: Ознайомитися з командами меню в Turbo Pascal. Навчитися працювати в середовищі Turbo Pascal та складати програми з розгалуженням.

Теоретичні відомості

ХІД РОБОТИ

Приклад розв’язання задачі.

Задача1.  Обчислити площу паралелограма за довжинами двох сторін та градусною мірою кута між ними.

Розв’язування.

Визначимо потрібні об’єкти:

a, b – змінні дійсного типу (Real) для збереження довжин сторін;

kyt – змінна дійсного типу (Real) для збереження величини кута;

S – змінна дійсного типу (Real) для збереження площі паралелограма.

Площу паралелограма обчислимо за формулою: S = a*b*sin(kyt).

У мові  програмування Паскаль  аргументом функцій  sin(x),  cos(x)  є  величина кута, подана в радіанах. В умові

задачі дано градусну міру кута. Тому, переведемо градусну міру кута в радіанну за формулою: kyt*π/180.

Алгоритм  Програма

1.  ввести a, b, kyt; 

2.  обчислити S; 

3.  вивести на екран результат – S. 

1.     Завантажте систему Turbo Pascal. Введіть та виконайте програму ploscha_1. Проаналізуйте отриманий результат.

Program ploscha_1;

var a, b, kyt, S : Real;

begin Write('Введіть довжини двох сторін паралелограма – ');

ReadLn(a, b);

Write('Введіть градусну міру кута між ними – ');

ReadLn(kyt);

S := a*b*Sin(kyt*Pi/180);

WriteLn('Площа паралелограма –', S);

ReadLn;

end.

Задача2.  Знайти периметр і площу прямокутника.

Задача3.  Дано три дійсні числа x,y,z. Отримати Min (x,y,z).

Задача4.  Дано цілі числа a і b . Вивести на екран результат і хід обчислень суми, різниці, добутку та частки цих чисел.

Наприклад, при a=12 і b=5, результатом роботи програми буде:

12+5=17

12-5=7

12*5=60

12/5=2.4