
- •Лабораторна робота №1. Тема: Програмування алгоритмів циклічної структури. Оператор циклу з параметром. Оператори циклу while, repeat.
- •Хід роботи
- •Лабораторна робота №2. Тема: Робота з одновимірними масивами.
- •Хід роботи
- •Теоретичні відомості до лабораторної роботи № 2 . Масиви.
- •Дії над масивами. Заповнення масиву даними
- •Виведення масиву.
- •Дії з одновимірними масивами
- •Сортування масиву
- •Лабораторна робота №3. Тема: Сортування масивів. Робота з двовимірними масивами.
- •Хід роботи
- •Лабораторна робота №4. Тема: Процедури та функції. Рекурсивні функції. Відкриті масиви
- •Хід роботи
- •Використання процедур без параметрів та з параметрами.
- •Використання функцій.
- •Лабораторна робота №5. Тема: Робота з даними рядкового типу.
- •Хід роботи
- •Теоретичні відомості до лабораторної роботи № 5 . Рядки (string)
- •Змінну рядкового типу оголошують за допомогою слова string так:
- •Лабораторна робота №6. Тема: Модулі користувача. Модулі crt і graph.
- •Хід роботи
- •Теоретичні відомості до лабораторної роботи № 6. Модулі.
- •Виведення тексту
- •Приклад виводу тексту.
- •Поняття модуля
- •Структура модуля
- •Компіляція модулів
- •Стандартні модулі Короткий опис модулів
- •Графіка
- •Лабораторна робота №7. Тема: Записи. Команда приєднання (with).
- •Хід роботи
- •Теоретичні відомості до лабораторної роботи № 7. Поняття запису
- •Оператор with
- •Лабораторна робота №8. Тема: Робота з текстовими файлами. Використання типізованих файлів.
- •Хід роботи
- •Теоретичні відомості до лабораторної роботи № 8. Файли і робота з ними.
TURBO PASCAL 7.0
Лабораторна робота №1. Тема: Програмування алгоритмів циклічної структури. Оператор циклу з параметром. Оператори циклу while, repeat.
Мета роботи: навчитися створювати і виконувати програми по алгоритмах циклічної структури, використовуючи оператор з лічильником та оператори while, repeat.
Хід роботи
Запустіть програму TURBO PASCAL. Для виводу результатів роботи програми відкрийте вікно вихідних результатів. Розмістіть вікна редактора програми і вікно вихідних результатів одне під одним.
Складіть програму з використанням циклу 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.
Складіть програму з використанням циклу For для обчислення суми ряду
при а ≤ x ≤ b
f(x)= sin2(π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.
Збережіть програми в своєму каталозі. Відкомпілюйте і виконайте програми. Перегляньте результат і запишіть його.
Складіть програму з використанням циклу 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.
Складіть програму з використанням циклу 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.
Складіть програму з використанням циклу 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.
Складіть програму з використанням циклу 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.
В залежності від варіанту, вказаного викладачем, створіть і відладьте програму до вашої задачі.
№ вар |
Задача |
|
Написати програму, яка виводить таблицю квадратів перших десяти цілих додатних чисел. Нижче представлений рекомендований вид екрану під час роботи програми. Таблиця квадратів Число Квадрат 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. |
|
Написати програму обчислення добутку чисел, що вводяться, до введення від′ємного числа. |
Оформіть звіт з лабораторної роботи, в якому запишіть: тему і мету роботи; хід роботи; запишіть тексти задач і програм, створених на лабораторній роботі і результат.
Захистіть лабораторну роботу у викладача.