Завдання.
Скласти програми обчислення значення функції.
Вимоги до програм:
числові значення параметра обчислень ввести з клавіатури;
при введенні недопустимих значень чи типів параметра обчислень передбачити виведення відповідного повідомлення та можливість завершення роботи програми чи повторного його введення;
розробити два варіанти програми з використанням відповідно неповних та повного операторів розгалуження;
перевірити коректність функціонування програми на всіх вітках розгалуження.
;
Program LR5_1;
{$APPTYPE CONSOLE}
uses
SysUTILS, Dialogs,ControLS;
LABEL POvTORPROG;
Var x,y : Real;
S : string;
Begin
x:= 1;
POvTORPROG:
S:=FloatToSTR(x);
S:=inputbox('введення',Введіть значення Х: ',s);
X:= strtofloat(s);
IF (x<=0)AND(x>12)THEN
Y:=Exp(x+3)
ELSE
IF (x>1)AND(x<=12)THEN
Y:=(2*x)*(exp(ln((sqr(x))+5)/3))
ELSE
IF (x>0)AND(x<1)THEN
Y:=ArcTan (x);
IF MESSAGEDLG
(’При значенні Х= '+FloatToSTR(x)+’ обчислення Y= '+FloatToSTR(y)+CHR(10)+CHR(10)+'Рахувати ще?',mtInformation,[mbYES,mbNO],0)=mrYES Then
Goto POvTORPROG;
END.
2.Скласти програму для розв'язання поставленого завдання.
Вимоги до програм:
числові значення параметрів обчислень ввести з клавіатури;
при введенні недопустимих значень чи типів параметрів обчислень передбачити виведення відповідного повідомлення та можливість завершення роботи програми чи повторного їх введення;
результати обрахунків програми вивести в одному діалоговому вікні;
після відображення результатів обрахунків програми передбачити можливість при бажанні користувача повторного розв'язання завдання з іншими значеннями параметрів обчислень.
Три числа задані формулами
, 
, 
.
Program LR5_2;
{$APPTYPE CONSOLE}
uses
SysUTILS, Dialogs,ControLS;
LABEL POvTORPROG;
Var n,m,l,k,h : Real;
S : string;
Begin
n:=3;
m:=1;
POvTORPROG:
s:=FLOATTOSTR(n);
s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ n: ',S);
n:= STRTOFLOAT(s);
s:=FLOATTOSTR(m);
s:= INPUTBOX('ВВЕДЕННЯ','ВВЕДІТЬ m: ',S);
m:= STRTOFLOAT(s);
l:=(n-3*m)/2;
k:=(2*n+m)/n;
h:=n*m-9.3;
IF MESSAGEDLG
('При значенні m= '+FloatToSTR(m)+' та '+'значенні n= '+FloatToSTR(n)+
' розрахунок l= '+FLOATTOSTR(l)+ ' розрахунок k= '+FLOATTOSTR(k)+
' розрахунок h= '+ FLOATTOSTR(h)+CHR(10)+CHR(10)+
'Рахувати ще?',mtInformation,[mbYES,mbNO],0)=mrYES Then
Goto POvTORPROG;
END.
Лабораторна робота № 6.
Тема. |
Оператор вибору. |
Мета. |
Формування вмінь і навиків програмування алгоритмів розгалуженої структури з використанням оператора вибору. Закріплення вмінь і навиків використання функцій вводу-виводу. Застосування вмінь і навиків програмування алгоритмів лінійної та розгалуженої структури. |
Контрольні запитання.
Коли в програмуванні використовуються оператори розгалуження, а коли – оператор вибору?
Як описується та виконується оператор вибору в Object Pascal?
Скільки параметрів може одночасно аналізувати оператор вибору?
Скільки варіантів діапазонів значень параметра може обробляти оператор вибору? Якій умові мають задовольняти ці діапазони? Які оператори виконуються при виявленні належності параметра вибору одному з діапазонів? Які оператори виконуються при умові належності параметра вибору декільком діапазонам?
Чому оператор вибору виконується швидше аналогічної сукупності операторів розгалуження?