Мета: навчитися складати і реалізовувати циклічні програми.

     Хід роботи.

1.  Створіть програму за поданою задачею:

Задача 1.  Скласти програму знаходження факторіала числа п. 

п!=1*2*3*…*п

Напишіть код програми:

program n1;

var s,k,n,m:real;

begin

m:=1;

s:=1;

writeln('enter n');

readln(n);

while k<n do

begin

m:=k;

k:=m+1;

s:=s*k;

end;

writeln('n! is ',s:0:1);

end.

1.  Створіть програму за поданою задачею:

Задача 2. Знайти суму цілих чисел що належать проміжку від 20 до 100 включно.

Напишіть код програми:

program lab2;

var a,b,c:integer;

begin

c:=20;

a:=20;

while a<100 do

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

зм

Лист

№ докум.

Підпис

Дата

Розробив

«Опис і реалізація найпростіших циклічних програм»

Літ.

Лист

Листів

Перевірив

2

4

1__ група

Н.

Утв.

begin

b:=a;

a:=b+1;

c:=c+a;

end;

writeln('sum is',c);

end._________________________________________________

1.  Створіть програму за поданою задачею:

Задача 3. Знайти суму членів ряду:

S=1+a+a2+a3+…+an,   при  n=5,   a=0,7

Напишіть код програми:

program lab3;

var a:real;

begin

a:=(1-exp(ln(0.7)*5))*0.3;

writeln('sum is',a:12:8);

end.

1.  Завершіть роботу з середовищем програмування.

Я завершив роботу з середовищем програмування.

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

Арк

3

Зм

Арк.

№ докум.

Підпис

Дата

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

1.  Як записується і виконується вказівка повторення з передумовою?

While <умова>do <вираз>.Поки умова є TRUE вираз повторюеться.

1.  Як записується і виконується вказівка повторення з післяумовою?

Repeat <вираз>until<умова>.Виконує вираз поки умова є FALSE.

1.  Яка різниця між вказівками повторення з передумовою і післяумовою?

Вони є майже однаковими , але у передумові для повторення вираз повинен бути TRUE , а у післяумові FALSE.

BIACH!!!!!

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

Арк

4

Зм

Арк.

№ докум.

Підпис

Дата