1.3. Приклад виконання завдання з умовним оператором
Скласти програму для обчислення значень функцій
при
значенні
та
.
Використати умовний оператор. Значення
х
вводити з клавіатури. Передбачити
коментар при виводі результатів
обчислень.
Програма на мові Паскаль має вигляд:
program umovnuy_operator;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
D,J,X:real; { змінні D,J,X дійсного типу }
begin
writeln ('X='); { вивід коментаря }
readln(X); { зчитування з клавіатури значення Х }
{ перевірка умови }
if X>=0.8 then { якщо х≥0,8 обчислюється значення D }
begin { початок складового оператора }
D:=X*exp(sin(X)); { обчислення значення D }
writeln('D=',D:5:3); { вивід на екран значення D }
end { кінець складового оператора }
else { якщо х<0,8 обчислюється значення J }
begin
J:=abs(sqrt(tan(X-2))); { обчислення значення J }
writeln('J=',J:5:3); { вивід на екран значення J }
end;
readln;
end.
Після виконання програми для х=1,13 на екрані буде виведено:
D=2.792
А для
на
екрані виведеться
J=1.801
1.4. Приклад виконання завдання з оператором варіанту
С
класти
програму для обчислення значення функції
для
,
та
.
Використати оператор
варіанту.
Значення k
вводити з клавіатури. Розрахунок
здійснити для різних значень k.
Передбачити
коментар при виводі результатів
обчислень.
Програма на мові Паскаль має вигляд:
program operator_variantu;
{$APPTYPE CONSOLE}
uses
SysUtils,math;
const
A=2.5; B=0.4; T=1.31;
var
Y:real; K:integer;
begin
writeln ('K=');
readln(K);
case K of { якщо K дорівнює }
1,7:Y:=sqrt(B*cos(T)); { 1 або 7 то обчислюється цей вираз }
5,8..10:Y:=A*tan(T) { 5 або лежить в межах [8,10]
обчислюється цей вираз }
else { для всіх інших значень K }
Y:=(A+B)*exp(T); { обчислюється цей вираз }
end;
writeln ('Y=',Y:3:3,' K=',K:2);
readln;
end.
Після виконання програми для k=1 на екрані буде виведено:
Y=0.321 K=1
Для k=8 на екрані виведеться
Y=9.368 K=8
Для k=20 на екрані виведеться
Y=10.748 K=20
2. Інструкція до лабораторної роботи
2.1. Мета роботи
Навчитись складати програми на мові Паскаль з використанням умовних операторів.
2.2. Порядок виконання лабораторної роботи
1. Ознайомитись з методичними вказівками для самостійної підготовки.
2. Скласти програму на мові Паскаль для обчислення значень функцій відповідно до заданого викладачем варіанту з табл. 2.1. Використати умовний оператор. Значення змінних умови вводити з клавіатури. Передбачити коментар при виводі результатів обчислень.
3. Скласти програму на мові Паскаль для обчислення значення функції відповідно до заданого викладачем варіанту з табл. 2.2. Використати оператор варіанту. Значення k вводити з клавіатури. Розрахунок здійснити для різних значень k. Передбачити коментар при виводі результатів обчислень.
4. В програмах передбачити коментарі для пояснення алгоритму розрахунку.
5. Набрати програми в середовищі програмування Delphi і здійснити розрахунок при заданих значеннях.
6. Оформити звіт.
