TURBO PASCAL 7.0

Лабораторна робота №1. Тема: Програмування алгоритмів циклічної структури. Оператор циклу з параметром. Оператори циклу while, repeat.

Мета роботи: навчитися створювати і виконувати програми по алгоритмах циклічної структури, використовуючи оператор з лічильником та оператори while, repeat.

Хід роботи

1. Запустіть програму TURBO PASCAL. Для виводу результатів роботи програми відкрийте вікно вихідних результатів. Розмістіть вікна редактора програми і вікно вихідних результатів одне під одним.

2. Складіть програму з використанням циклу For для обчислення суми заданої кількості чисел.

program SUM;

{програма обчислення суми заданої кількості чисел}

uses crt;

var N, sum, I, Num:integer;

begin { - початок тіла головної програми}

clrscr; {- очищення екрану}

writeln; {- пропуск рядка}

writeln('<<< обчислення суми N чисел >>>');

writeln; {- пропуск рядка}

write ('Введіть кількість сумованих чисел N=?-> ');

readln(N);

sum:=0;

FOR I:=1 TO N DO

Begin

writeln('Введіть', I, '-е число Num=? -> ');

readln(Num);

sum:=sum + Num; {Додавання з накопиченням}

end;

writeln('сума ',N, ' чисел дорівнює ', sum);

end.

3. Складіть програму з використанням циклу For для обчислення суми ряду при а ≤ x ≤ b

f(x)= sin²(πx+1) a=1; b=53;

program cikl_for;

const a=1;

b=53;

var x:word;

fx:real;

begin

writeln('Обчислення суми ряду в діапазоні від а до b  ');

fx:=0;

for x:=a to b do

fx:=fx+sqr(sin(pi*x+1));

writeln('Сума ряду  = ',fx:8:3)

end.

4. Збережіть програми в своєму каталозі. Відкомпілюйте і виконайте програми. Перегляньте результат і запишіть його.

5. Складіть програму з використанням циклу While для обчислення суми введених чисел до певного значення. Збережіть програму в своєму каталозі. Відкомпілюйте і виконайте програму.

program SUM_While;

uses crt;

var N, sum, I, Num:integer;

begin { - початок тіла головної програми}

clrscr; {- очищення екрану}

writeln; {- пропуск рядка}

writeln('<< обчислення суми N чисел до певного значення >>');

writeln; {- пропуск рядка}

write (' Введіть кінцеве значення суми N = ? -> ');

readln(N);

sum:=0; I:=1;

WHILE (Sum< N) DO

Begin

writeln (' Введіть', I,’ -е число Num = ? -> ');

readln(Num);

sum:=sum+ Num; { Додавання з накопиченням}

Inc (I); {Збільшення і на 1}

end;

writeln(' було підсумовано', I, ' чисел, сума чисел дорівнює ', sum);

end.

6. Складіть програму з використанням циклу Repeat для обчислення суми введених чисел до підтвердження закінчення. Збережіть програму в своєму каталозі. Відкомпілюйте і виконайте програму.

program SUM_Repeat;

uses crt;

var sum, I, Num:integer;

Ch:Char;

begin { - початок тіла головної програми}

clrscr; {- очищення екрану}

writeln; {- пропуск рядка}

writeln(' обчислення суми чисел ');

writeln; {- пропуск рядка}

sum:=0; I:=1;

Repeat

writeln (' Введіть', I,’-e число Num = ? -> ');

readln(Num);

sum:=sum+ Num; { Додавання з накопиченням}

Inc (I); {Збільшення і на 1}

writeln (' Закінчити процес Y (Так) ');

readln(Ch);

Until ( (Ch='Y') OR (Ch='y'));

writeln(' було підсумовано', I, ' чисел, сума чисел дорівнює ', sum);

end.

7. Складіть програму з використанням циклу While для знаходження суми ряду з точністю е = 10^-3

Program S_while;

Const

e=1E-3;

var

An, Num: real; n, i: Word;

Nfact, Pow2, N2fact: LongInt;

begin

WriteLn ( 'Обчислення суми ряду А_n з точністю е=10^-3' );

WriteLn;

Num:=1;

N2fact:=1;

Nfact:=1;

n:=1;

An:=0;

While ( Num >e) do

begin

for i:=1 to n do {Обчислення факторіалу n}

begin

Nfact := Nfact * i;

end;

Pow2:=2 SHL (n-1); {Піднесення 2 до степені n}

for i:=1 to Pow2 do {Обчислення факторіалу 2 в степені n}

begin

N2fact := N2fact * i;

end;

Num := SQR ( Nfact ) / N2fact; {Обчислення члена ряду}

An :=An + Num; {Обчислення суми ряду}

Inc(n);

Nfact:=1;

N2fact:=1;

end;

WriteLn ('Сума ряду = ',An);

WriteLn ( 'Останній член ряду = ', Num );

WriteLn ('підсумовано ', n,' членів ряду');

end.

8. Складіть програму з використанням циклу Repeat для обчислення суми парних чисел до введення букви Y.

Program S_Repeat;

uses crt;

var

sum, I, Num : integer;

Ch : Char;

Count : Word;

begin

Clrscr;

sum:=0;

I:=0;

Count:=0;

Repeat

write(' Введіть ', Count+1,' -е число Num = ? -> ');

readln(Num);

{Визначення парних чисел}

if Not ( odd (Num)) Then

Begin

sum:=sum+ Num; {Додавання з накопиченням}

{Збільшення лічильника парних чисел і на 1}

Inc (I);

end;

{Збільшення лічильника введених чисел count на 1}

Inc(Count);

write (' Закінчити Y (Так) / N(Ні) ' );

read(Ch);

Until ( (Ch = 'Y') OR (Ch = 'y') );

writeln('було введено чисел-', Count, ', підсумовано- ',I,', сума дорівнює ', sum);

end.

9. В залежності від варіанту, вказаного викладачем, створіть і відладьте програму до вашої задачі.

№ вар	Задача
	Написати програму, яка виводить таблицю квадратів перших десяти цілих додатних чисел. Нижче представлений рекомендований вид екрану під час роботи програми. Таблиця квадратів Число Квадрат 1 1 2 4 3 9 4 16 5 25 6 36 7 49 8 64 9 81 10 100
	Написати програму, яка виводить таблицю квадратів перших п'яти цілих додатних непарних чисел. Нижче представлений рекомендований вид екрану під час роботи програми. Таблиця квадратів непарних чисел Число Квадрат 1 1 3 9 5 25 7 49 9 81
	Написати програму, яка обчислює суму перших n членів ряду 1, 3, 5, 7 .... Кількість сумованих членів ряду задається під час роботи програми. Нижче представлений рекомендований вид екрану під час роботи програми. Обчислення часткової суми ряду: 1,3,5,7 ... Введіть кількість доданих членів ряду —> 15 Сума перших 15 членів ряду дорівнює 330.

	Написати програму, яка обчислює суму перших n членів ряду 1 + ….Кількість доданих членів ряду задається під час роботи програми. Нижче представлений рекомендований вид екрану під час роботи програми Обчислення часткової суми ряду: 1+1/2+1/3+ ... Введіть кількість членів ряду —> 15 Сума перших 15 членів ряду рівна 3.3182.
	Написати програму, яка виводить таблицю степенів двійки (від нульової до десятої).
	Написати програму, яка обчислює факторіал числа, введеного з клавіатури. (Факторіалом числа n називається добуток цілих чисел від 1 до n. Наприклад, факторіал числа 1 рівний 1, а числа 8 — 40320.) Обчислення факторіалу. Введіть число, факторіал якого треба обчислити -> 7 Факторіал 7 рівний 5040.
	Написати програму, яка вводить з клавіатури 5 дробових чисел і обчислює їх середнє арифметичне. Рекомендований вид екрану під час роботи програми приведений нижче. Обчислення середнього арифметичного послідовності дробових чисел. Після введення кожного числа слід натиснути <Enter> ->5.4 -> 7.8 -> 3.0 -> 1.5 -> 2.3 Середнє арифметичне введеної послідовності: 4.00 Для завершення роботи програми натисніть <Enter>.
	Написати програму, яка генерує 10 випадкових чисел в діапазоні від 1 до 10, виводить ці числа на екран і обчислює їх середнє арифметичне. Рекомендований вид екрану під час роботи програми приведений нижче. Випадкові числа 1 3 4 2 7 4 9 6 2 1 середнє арифметичне 3.9
	Написати програму, яка виводить на екран квадрат Піфагора — таблицю множення. Рекомендований вид екрану під час роботи програми приведений нижче. 1 2 3 4 5 6 7 8 9 10 1 1 2 3 4 5 6 7 8 9 10 2 2 4 6 8 10 12 14 16 18 20 3 3 6 9 12 15 18 21 24 27 30 4 4 8 12 16 20 24 28 32 36 40 5 5 10 15 20 25 30 35 40 45 50 6 6 12 18 24 30 36 42 48 54 60 7 7 14 21 28 35 42 49 56 63 70 8 8 16 24 32 40 48 56 64 72 80 9 9 18 27 36 45 54 63 72 81 90

	Написати програму, яка перевіряє знання таблиці множення. Програма повинна вивести 10 прикладів і виставити оцінку: за 10 правильних відповідей — "відмінно", за 9 і 8 —"добре", за 7 і 6 — "задовільно", за 6 і менш — "погано". Нижче представлений рекомендований вид екрану під час роботи програми. *** Перевірка знання таблиці множення *** Після прикладу введіть відповідь і натисніть <Enter> 5 х 3 = 15 7 х 7 = 49 1 х 4 = 4 4 х 3 = 12 9 х 4 = 36 8 х 8 = 64 7 х 8 = 52 Ви помилилися! 7 х 8 = 56 4 х 7 = 28 3 х 5 = 15 2 х 5 = 10 Правильних відповідей: 9 Оцінка: Добре.
	Скласти програму з використанням циклу While знаходження суми ряду з точністю е = 10-3.
	Написати програму, яка підсумовує непарні числа, що вводяться, до введення букви Y.
	Написати програму обчислення чисел, що вводяться, до введення числа 0.
	Написати програму обчислення різниці чисел, що вводяться, до введення букви P. Враховувати числа кратні 4.
	Написати програму обчислення добутку чисел, що вводяться, до введення від′ємного числа.

10. Оформіть звіт з лабораторної роботи, в якому запишіть: тему і мету роботи; хід роботи; запишіть тексти задач і програм, створених на лабораторній роботі і результат.

11. Захистіть лабораторну роботу у викладача.