Хід роботи

1. Пере вірити дію програм прикладів.

2. Вичислити суму .

3. Вивести на екран таблицю кубів натуральних чисел від n до 1.

4. Протабулювати: а) у=х² на проміжку -10 до 10

б)у=е^х+2/х

в)у=х³+а.

5. .

Контрольні питання

1. Що таке цикл в програмуванні?

2. Як діє цикл з параметром downto?

3. Як діє цикл з параметром to?

4. Що таке параметр?

5. Як слід писати цикл, в якому за кожен крок виконується декілька дій?

Лабораторна робота № 8 (10) Тема: Створення та реалізація найпростіших циклічних програм. Оператор повторення з передумовою.

Мета: Уміти створювати найпростіші циклічні програми.

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

Команда циклу з передумовою (while) має вигляд

While< логічний вираз>do<команда 1>;

Дія команди. Доки значення логічного виразу істинне, виконується команда 1. Істинний логічний вираз описує умову продовження процесу виконання команди циклу.

Приклад: Нехай змінні х, мають значення , . Після виконання команди

While x<=8 do begin s:+x; x:=x+1 end;

Вони набувають значень s=4+5+6+7+8=30, х=9.

Приклад. Вивести таблицю чисел від 20 до 30, їхні квадрати та куби за допомогою команди while можна так:

і:=20;

while і<=30 do

begin

writeln(i:4,i*i:6, i*i*i:8);

і := і + 1

end;

Приклад. Визначити дійсне додатне число а, для якого виконується співвідношення а/2=0 в комп’ютерній арифметиці дійсних чисел. Таке число характеризує нижню додатну межу типу даних real.

рrogram MinRlNum;

uses Crt;

var a : real;

begin

clrscr;

a :=1;

while a/2>0 do a := a/2;

writeln(^,a = ^, , а); (Відповідь: а=2.9Е-39)

readln;

end.

Приклад: Протабулювати функцію на проміжку [0,3,1, з кроком і обчислити середнє арифметичне (s1) значень функції більших, ніж 0,1 менших, ніж 0,6.

program FlndSerednie;

uses Crt;

var x,y,s,sl,h,xk:real; n :integer;

begin

clrscr;

x :=0; xk :=3.1; h :=0.1;

s :=0;n:=0;

while x<=xk+h/2 do

begin

y :=sin(x);

writeln(x:3:1,y:6:2);

if (y>0.1) and(y<0.6) then

begin s :=s+y; n := n+1 end;

x :=x+h;

end;

ifn>0 then

begin sl :s/n; writeln (^'Середнє = ^', s1)end

else writeln('Таких значень немає n=0^');

readln

end.

Хід роботи

1. Перевірити роботу програм-прикладів.

2. Протабулювати (вивести значення функції) y=ax²+1 з кроком 2 на проміжку х є [-10;10].

3. Вирахувати значення суми , де f(x)=y³+5i

4. Вирахувати значення добутку

Контрольні питання

1. Що таке – оператор повторення?

2. Назвіть види операторів повторення.

3. Чи існує можливість, що оператор повторення з передумовою не здійснить жодного кроку? Поясніть відповідь.

4. Як записується оператор повторення з передумовою для Turbo Pascal?

5. Поясніть необхідність операторів повторення в програмуванні.

6. Запишіть вигляд оператора повторення з передумовою, в ході циклу якого виконується декілька операторів.

Лабораторна робота № 9 (11) Тема: Створення та реалізація програм опрацювання табличних величин. Створення масивів, арифметичні дії з ними.

Мета: Уміти створювати програми, що задають та виконують арифметичні дії з масивами.