Циклiчнi алгоритми.

Задача 1.Порахувати суму S = 1 + 2 + 3 + , + N, N = 50;

Program Summa1;

Const n=50;

Var i:integer; S:integer;

Begin S:=0; {Початкове значення суми завжди =0}

for i:=1 to n do S:=S+i;

WriteLn('S=',S);

End.

Результати роботи програми: S=1275

2 спосiб.

Program Summa2;

Const n=50;

Var i: integer; S:integer;

Begin S:=0; {Початкове значення суми завжди =0}

i:=1;

while i <=n do begin S:=S+i; i:=i+1; end;

WriteLn('S=',S);

End.

3 спосiб.

Program Summa3;

Const n=50;

Var i: integer; S:integer;

Begin S:=0; {Початкове значення суми завжди =0}

i:=1;

Repeat S:=S+i; i:=i+1; until i>n;

WriteLn('S=',S);

End.

Завдання 4. Скласти програму для обчислення добутку чисел від 3 до 12.

Циклiчнi алгоритми

Задача 2. Надрукувати на екрані парні числа від 2 до 12.

1 спосіб

program 7_2_1;

var k:integer;

begin k:=0;

while k<=10 do

begin

k:=k+2;

write(k:3)

end

end.

Результати роботи програми: 2 4 6 8 10 12

2 спосіб

Program 7_2_2;

var k:integer;

begin k:=2;

repeat

Write(k);

k:=k+2;

until k>12

End.

Завдання 6. Надрукувати на екрані непарні числа від 31 до 122 (двома способами).

Задача 3. Вивести на екран букви латинського алфавiту вiд 'с' до 'м'.

Program Pr1;

Var i:char;

Begin for i:='c' to 'm' do Write(i:2);

WriteLn

End.

Результати роботи програми: c d e f g h i j k l m

Завдання 7. Вивести на екран квадрати чисел вiд 1 до 100.

Завдання 8. Вивести на екран синуси кутiв вiд 1 до 30 градусiв.

Задача 8. Знайти добуток парних чисел з дiапазону вiд 5 до 12.

Program Dobutok;

Const n1=5; n2=12;

Var D,i:integer;

Begin D:=1; {Початкове значення добутку завжди =1}

i:=n1;

while i<=n2 do

begin

D:=D*i;

i:=i+2;{бо треба парнi числа}

end;

WriteLn('D=',D);

End.

Результати роботи програми: D=3465

Написати висновок та оформити звіт по роботі. Закріпити його скріншотими.

Лабораторна робота №9. Тема: Використання процедур та функцiй. Звукові можливості Паскаля.

Мета: Ознайомитися із звуковими можливостями паскаля

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

Поряд з процедурами і функціями організації роботи з екраном та клавіатурою модуль Crt включає засоби управління звуком. В персональних комп’ютерах є можливість генерувати з допомогою вмонтованого динаміка звукові сигнали частотою 37-32767Гц. Відтворюються тільки чисті томи без будь-яких спотворень. Для управління частотою звуку і його тривалістю в Turbo Paskali використовуються стандартні процедури Sound, NoSound i Delay.

Sound(i)-активізує звукові засоби ПЕОМ. Цілочисельне значення і вказує частоту звучання в герцах. Звук вказаної частоти буде генеруватися до тих пір, поки його не відмінять процедурою NoSound. Щоб вказати час, протягом якого буде продовжуватися звучання використовують процедури Delay(N), де N – ціле число мілісекунд.

Приклад.

Sound(600); Deiay(2500); NoSound;

В даному прикладі звуковий сигнал частотою 600 Гц буде звучати протягом 2, 5 секунди (2500мілісекунд).З допомогою процедури Sound, NoSound, Delay і операторів циклу можна створювати самі різноманітні звукові ефекти: звучання сирени, метронома, будильника, спів птаха, фрагменти музичних творів і т.п.