Лабораторна робота № 8 (10)

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

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

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

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

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

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

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

Whilex<=8 do begins:+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.

рrogramMinRlNum;

uses Crt;

vara : real;

Begin

clrscr;

a :=1;

whilea/2>0 doa := a/2;

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

readln;

End.

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

program FlndSerednie;

usesCrt;

varx,y,s,sl,h,xk:real; n :integer;

Begin

clrscr;

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

s :=0;n:=0;

whilex<=xk+h/2do

Begin

y :=sin(x);

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

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

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

x :=x+h;

End;

ifn>0 then

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

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

readln

End.

Хід роботи

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

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

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

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

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

Поиск по сайту: