Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Львівський коледж
Державного університету інформаційно-комунікаційних технологій
|
Розглянуто та схвалено на засіданні циклової комісії природничо-математичних дисциплін Протокол № від 2012 р. Голова циклової комісії_____ Конончук О.М. |
ЗатверджуюЗаступник директора з навчальної – виробничої роботи _____________ Плешівський Я.М. “_____” ____________ 2012 р |
Інструкція
до лабораторної роботи з інформатики
на тему:
«Створення та реалізація циклічних програм з післяумовою»
Викладачі Конончук П. П.,
Конончук О.М.
Львів 2012
Лабораторна робота на тему: Створення та реалізація циклічних програм з післяумовою.
Мета: Навчитися складати та реалізовувати циклічні програм з післяумовою на мові Pascal.
Теоретичні відомості
Оператор циклу з посляумовою repeat-until має наступний формат:
Repeat
<оператор 1>;
<оператор 2>;
{........}
<оператор n>
Until <yмова>;
Умова — вираз булівського типу. У цьому циклі спочатку виконується серія (тіло циклу), а потім перевіряється умова виходу з циклу. Саме тому ця команда повторення інакше називається циклом із післяумовою. Якщо умова виходу з циклу хибна (false), цикл активізується ще раз, якщо результат істинний (true), відбувається вихід із циклу. Ключові слова repeat-until виконують роль операторних дужок begin-end.
Тіло циклу repeat-until виконується хоч би один раз, так як виконання умови перевіряється в кінці циклу.Для передчасного виходу з циклу можна присвоїти параметру циклу значення, що виходить за діапазон дозволених значень.
Приклад1 програми з оператором Repeat.
Умова. Вводимо два цілих числа доти, поки обидва числа не будуть від’ємними або рівними. Для виходу з циклу користувач повинен ввести потрібні дані ( A<0 і B<0 або A=B).
program Prakt_3;
var A, B: іnteger;
begin
repeat {повторювати}
writeln ('enter A');
read (A);
writeln ('enter B');
read (B);
Until ((A<0) and (B<0)) or (A=B); {до виконання умови}
end.
Приклад3 застосування оператора циклу з післяумовою (табуляція функції на проміжку [-3; 3] з кроком 0,5)
Умова: Знайти значення функції в точках х=-3, х= -2.5, х=-2, …, х=3.
Розв’язання:
Program tab_2;
var x, y, a, b, h: real;
begin
writeln ('a, b, h'); read (a, b, h);
x: = a;
repeat
y:= 2*cos(3*x-5);
writeln ('x=', x, 'y=',y);
x:=x+h
until x>b;
end.
Х і д р о б о т и :
Контрольні запитання
Індивідуальні завдання:
1-6. Скласти блок-схеми та програми обчислення суми S чи добутку P:
|
|
|
|
|
|
|
|
|
7-12. Скласти блок-схеми та програми обчислення виразу:
|
|
|
|
|
|
|
|
|
13- 18. Скласти блок-схему та програми обчислення:
|
№ |
Вид функції у = f(x) |
Вхідні дані |
||||
|
a |
b |
xn |
xk |
|||
|
19. |
0.75 |
1.35 |
6.5 |
0.5 |
||
|
20. |
19.6 |
7.8 |
14.6 |
34.8 |
3.6 |
|
|
21. |
1.38 |
1.26 |
60 |
100 |
4.5 |
|
|
22. |
1.68 |
1.2 |
2.4 |
0.18 |
||
|
23. |
0.36 |
5.5 |
10 |
50 |
4.75 |
|
|
24. |
1.85 |
0 |
1.2 |
0.15 |