Інструкційна картка до проведення лабораторного заняття № 3
Тема заняття: Програмування розгалуджених процесів на мові програмування Pascal.
Мета проведення заняття: формування вмінь і навичок розробки та виконання на ПК програми розгалуженої структури на мові програмування Паскаль.
Після виконання роботи студент повинен
знати:
структуру та порядок виконання програми; основні поняття програмування: константа, змінна, ідентифікатор, тип даних, оператор, операція, операнд;
вміти:
розв'язувати задачу відповідно до загальної схеми; виконувати постановку задачі в загальному вигляді і перевіряти допустимість вхідних даних; складати і записувати алгоритми розгалуженої структури; розробляти програми мовою Turbo Pascal; правильно вибирати відповідні типи даних для представлення їх у програмі.
Матеріально-технічне оснащення робочого місця: ПК, середовище turbo pascal.
Інструктаж з техніки безпеки: згідно з інструкцією з охорони праці № 1 під час роботи на персональних комп'ютерах у кабінеті інформатики
Короткі відомості з теоретичної частини роботи
Оператор умового переходу має дві форми:
Повна форма:
if <умова> then <оператор 1> else <оператор 2>;
Скорочена форма:
if <умова> then <оператор >;
Примітка: Розділовий знак «;» ставиться тільки після оператора 2.
Повна форма оператора умовного переходу виконується таким чином: якщо умова істинна, то виконується оператор 1, а потім оператор , який знаходиться в програмі після всієї структури розгалуження ; якщо умова хибна, то виконується оператор 2, а потім оператор, який знаходиться після структури розгалуження.
Умова - це вираз булевого типу. Вона може бути простою або складеною. Наприклад:
проста умова: x<0, y>= -4, y=0.
складена умова: (x>3) and (x<9), (x=2) or (x=5).
ПРИКЛАД: Скласти програму та блок-схему обчислення значень функції:
Передбачити виведення результатів в форматованому вигляді з 20-ї позиції 15-го рядка.
Розв’язування.
Program primer_2;
uses Crt;
var
a,x,y:real;
begin
clrscr;
gotoXY(20,15);
writeln(‘введіть значення а,x:’);
read (a,x);
If x<=-3 then y:=1.5*sgr(cos(x))+5*x
else if x>=2 then y:=exp(3*Ln(x-2))+a
else y:=sqrt(a*x)+exp(x);
clrscr;
gotoXY(20,15);
writeln(‘x=’,x:7:3,’y=’,y:7:3)
end.
Програмна структура - вибір дозволяє за наслідками аналізу інформації виконувати потрібні дії з великого набору дій. Існує повна і неповна форми вибору. У мові Pascal дана програмна структура реалізується за допомогою операторів варіанту:
Неповна форма:
Case Переменная или Выражение of
СписокЗначений1: Программная строка1;
СписокЗначений2: Программная строка2;
СписокЗначений3: Программная строка3;
. . .
СписокЗначенийN: Программная строкаN;
End;
Повна форма:
Case Переменная или Выражение of
СписокЗначений1: Программная строка1;
СписокЗначений2: Программная строка2;
СписокЗначений3: Программная строка3;
. . .
СписокЗначенийN: Программная строкаN;
Else
Программная строка;
End;
Між службовими словами Case і of повинен стояти селектор вибору - змінна, вираз, або функція.
ПРИКЛАД 1: Скласти програму, яка за номером дня тижня виводить на екран його назву.
Program dni_nedeli;
Var n: byte;
Begin
Readln(n);
Case n of
1: writeln(‘понедельник ’);
2: writeln(‘вторник ’);
3: writeln(‘среда ’);
4: writeln(‘четверг ’);
5: writeln(‘пятница ’);
6: writeln(‘суббота ’);
7: writeln(‘воскресенье’);
else writeln(‘дня недели с номером’, n,’нет’);
end;
end.
ПРИКЛАД 2. Програма з використанням Case of з декількома змінними. При введенні одного з символів ‘ y’ або ‘ Y’ виводить на екран «Да», а при вводі ‘ n’ или ‘ N’ – слово «Нет»
Var ch: char;
Begin
Readln(ch);
Case ch of
N, n: writeln(‘Да ’);
Y, y: writeln(‘Нет ’);
End;
End.