2 семестрп / Lab_2

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

Тема: Робота та реалізація програми з розгалуженою

структурою

Мета роботи: оволодіння навичками складання програми з роз­галуженою структурою за допомогою умовного оператора і £ або оператора вибору саsе та виконання її у середовищі системи про­грамування Тurbо Раscal 6.0.

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

Умовний оператор іf слугує для виконання або невиконання деякого оператора (простого або складеного) залежно від істинності тих чи інших умов.

Загальні вигляд умовного оператора if:

іf Вираз (умова) then оператор 1;

if Вираз (умова) then оператор 1 else оператор 2.

Виконання умовного оператора іі полягає в обчисленні логічного виразу (умови). Якщо його значення Тruе, то виконується оператор що стоїть за словом then. Якщо значення логічного виразу False і умовний оператор не містить слова else, то його виконання завершується. Якщо слово else є, то виконується оператор, що стоїть після нього (оператор 2).

Якщо в який-небудь вітці умовного оператора треба виконати кілька операторів, то їх слід об'єднати в складений оператор (begin end). Один умовний оператор може входити в інший умовний опе­ратор. При цьому кожне слово else відповідає останньому перед ним then.

Оператор вибору призначений для виконання одного з кількох можливих операторів. Він складається: з ключового слова саsе, за я ким йде селекторний вираз; ключового слова оf; послідовності операторів, кожному з яких передує значення виразу-селектора (або список, або деякий діапазон значень ви виразу-селектора), яке відокремлено від оператора двокрапкою (:); ключового слова еnd.

Завдання 2.1

Представити математичний запис фрагмента програми і обчислити значення змінної X після його виконання.

Фрагмент програми: A:=N; B:=17; C:=18; X:=A;

if B<X then X:=B;

if C<X then X:=C;

Розв’язок

Цей фрагмент програми реалізую обчислення. Після виконання цього фрагменту X= 4

Завдання 2.2

Скласти програму обчислення значень функції та виконання її у середовищі системи програмування Тurbо Раscal 6.0.

y=ctg lnx

Розв’язок

program lr2;

uses crt;

var x,y:real;

begin

ClrScr;

write('Введіть x=');

readln(x);

if sin(x)<>0 then begin

y:=cos(ln(x))/sin(ln(x));

writeln('y=',y:10)

end

else writeln('Функція не існує')

end.

Результати роботи програми:

Введіть x=1.57

y=2.06448474880397

Висновок: у програмах з розгалуженою структурою, на відміну від простих програм присутні умови, в залежності від істинності яких виконуються або не виконуються оператори, що входять до складу команди розгалуження. У Паскалі реалізовано повне та неповне галуження, а також команда вибору, що реалізована як послідовне виконання декількох структур галуження і яка передбачає вибір з декількох можливих варіантів дій.

Захист

1)Дані дійсні числа a,b,c,d. Якщо то кожне число замінити на найбільше з них; Якщо a>b>c>d, то числа залишити без змін; В протилежному випадку всі числа замінити на їх квадрати.

program lr2z;

label l5;

var

a,b,c,d:real;

begin

writeln('vvedit a,b,c,d');

readln(a,b,c,d);

if (a<=b) and (b<=c) and (c<=d) then

begin

a:=d;

b:=d;

c:=d;

goto l5

end

else

if (a>b) and (b>c) and (c>d) then

goto l5

else

a:=sqr(a);

b:=sqr(b);

c:=sqr(c);

d:=sqr(d);

l5:writeln('a=',a:3,'b=',b:3, 'c=',c:3, 'd=',d:3);

end.

ЛР02- 6.050103.1157-04