Размещено на http://www.allbest.ru/

Лабораторная работа

Порядок виконання роботи

Проробити контрольний приклад.

Виконати самостійну роботу.

Оформити звіт. Вимоги до оформлення звіту приведені в п. 6. 3.

Захистити лабораторну роботу. Питання для самоконтролю приведені в п. 6. 4

Практична частина

Контрольний приклад

Перейти на диск C:

Відкриваємо об'єкт Мій комп'ютер (подвійний щиглик мишею на значку об'єкта Мій комп'ютер).

Усередині вікна Мій комп'ютер робимо подвійного щиглика на значку диска C:

Перейти на диску C; у робочу папку (GR151ITP чи GR152ITP) і створити в ній папку для файлів лабораторної роботи. Ім'я створюваної папки: Lab06.

Подвійний щиглик на значку робочої папки (GR151ITP чи GR152ITP)

У вікні робочої папки виконуємо команду меню ФайлСтворитиПапку

Вводимо ім'я папки Lab06 і натискаємо Enter

Запустити операційну оболонку Norton Commander

Виконуємо команду Головного меню Пуск Виконати…

У діалоговому вікні вводимо команду: c: \nc\nc

Натискаємо Enter чи клацаємо кнопку Ok

Примітка - Якщо оболонка запустилася у віконному а не повноекраному режимі, те необхідно натиснути Alt + Enter

Запустити програму підтримки кирилиці KEYRUSr

У командному рядку вводимо команду: c: \keyrus\keyrus

Натискаємо Enter

Примітка - Переключення шрифтів за допомогою програми KEYRUS виконується правою клавішею Ctrl

У вікні Norton Commander перейти в папку Lab06

Ставимо курсор на робочу папку (GR151ITP чи GR152ITP) і натискаємо Enter

Ставимо курсор на папку Lab06 і натискаємо Enter

Запустити інтегроване середовище Turbo Pascal

У командному рядку набираємо команду: c: \tp\bin\turbo

Натискаємо Enter

Створити програму, що виводить на екран таблицю квадратів цілих чисел від 1 до 10.

Набираємо текст програми (коментарі можна не вводити) :

Program TabKvadr;

Uses CRT;

Var

x, y: Integer;

BEGIN

ClrScr; {Очищення екрана}

WriteLn ('Число Квадрат') ; {Виведення заголовка}

For x: =1 to 10 do {Заголовок циклу}

Begin {Тіло циклу}

y: =Sqr (x) ; {Обчислення квадрата}

WriteLn (x: 4, y: 8) ; {Виведення результату на екран}

End;

ReadLn; {Останов}

END.

Перевірити роботу створеної програми

Запускаємо програму клавішами Ctrl + F9 (чи виконуємо команду меню RunRun)

Додати перемінну x у вікно перегляду Watches

Натискаємо клавіші Ctrl + F7 потім у діалоговому вікні вказуємо ім'я перемінної (у даному випадку, x) і натискаємо Enter

Розташувати вікна на екрані в такий спосіб:

Вікно з текстом програми		Вікно виведення Output
Вікно перегляду Watches

Виконати програму в покроковому режимі, спостерігаючи за процесом виконання і завершення циклу. Відзначити, при якім значенні параметра x відбудеться завершення роботи циклу.

Натискаємо клавішу F7 до завершення роботи програми

Скласти програму, що виводить на екран заголовні латинські букви в зворотному порядку (від Z до A).

Виконуємо команду меню FileNew.

Набираємо текст програми (коментарі можна не вводити) :

Program Lat;

Uses CRT;

Var

C: Char;

BEGIN

ClrScr; {Очищення екрана}

Write ('Латинські букви: ') ; {Виведення повідомлення}

For C: ='Z' downto 'А' do {Заголовок циклу}

Write (C: 2) ; {Виведення букви на екран}

ReadLn; {Останов}

END.

Перевірити роботу створеної програми

Запускаємо програму клавішами Ctrl + F9 (чи виконуємо команду меню RunRun)

Додати перемінну C у вікно перегляду Watches

Натискаємо клавіші Ctrl + F7 потім у діалоговому вікні вказуємо ім'я перемінної (у даному випадку, C) і натискаємо Enter

Розташувати вікна на екрані в такий спосіб:

Вікно з текстом програми		Вікно виведення Output
Вікно перегляду Watches

15) Виконати програму в покроковому режимі, спостерігаючи за процесом виконання і завершення циклу. Відзначити, при якім значенні параметра C відбудеться завершення роботи циклу.

Натискаємо клавішу F7 до завершення роботи програми

Створити програми для обчислення суми і добутку ряду:

Програма обчислення суми	Програма обчислення добутку
Program Sum; Uses CRT; Var S: Real; N: Integer; BEGIN ClrScr; S: =0; For N: =3 to 10 do S: =S+SQRT (N) / (SQR (N) +0. 3) ; WriteLn ('Сума=', S) ; END.	Program Proizv; Uses CRT; Var P: Real; N: Integer; BEGIN ClrScr; P: =1; For N: =3 to 10 do P: =P*SQRT (N) / (SQR (N) +0. 3) ; WriteLn ('Добуток=', P) ; END.

Пояснення до програм:

Обидві програми працюють по подібному алгоритмі:

1 Установлюється початкове значення чи суми добутку (для суми початкове значення дорівнює 0, для добутку: 1)

2 Організується цикл із параметром (у даному випадку, початкове значення параметра: 3, кінцеве: 10).

3 В тілі циклу обчислюється значення чергового члена ряду. Потім до суми додається отримане значення. (Добуток збільшується на отримане значення).

4 Після завершення циклу на екран виводиться результат (значення чи суми добутку).

Виконання завдання

Виконуємо команду меню FileNew.

Уводимо текст програми обчислення суми; запускаємо створену програму на виконання;.

Виконуємо команду меню FileNew.

Уводимо текст програми обчислення добутку; запускаємо створену програму на виконання;.

Скласти програму, що генерує 10 випадкових цілих чисел у діапазоні від 0 до 100, виводить їх на екран і підраховує кількість чисел, кратних 3.

Примітка - Якщо число кратне 3 (тобто поділяється націло на 3), те залишок від розподілу цього числа на 3 повинний бути дорівнює нулю. Для одержання випадкових чисел спочатку ініціалізуємо генератор випадкових чисел процедурою Randomize, потім одержуємо числа в потрібному діапазоні функцією Random (макс. значення).

Виконуємо команду меню FileNew.

Уводимо текст програми:

Program Kratn3;

Uses CRT;

Var

x, j, k: Integer;

BEGIN

ClrScr; {Очищення екрана}

WriteLn ('Випадкові числа: ') ; {Виведення заголовка}

k: =0; {Обнуління лічильника кратних чисел}

Randomize; {Ініціалізація генератора випадкових чисел}

For j: =1 to 10 do {Заголовок циклу}

Begin

x: =Random (100) ; {Одержати випадкове число, }

WriteLn (x: 4) ; {вивести його на екран}

If x mod 3 = 0 then {Перевірка залишку від розподілу}

Inc (k) ; {Збільшення лічильника на 1}

{Еквівалентно присвоюванню k: =k+1; }

End;

{Виведення значення лічильника}

WriteLn ('У кратних 3 = ', k) ;

ReadLn;

END.

Запускаємо створену програму на виконання Ctrl + F9.

Додати перемінні x і k у вікно перегляду Watches

Натискаємо клавіші Ctrl + F7 потім у діалоговому вікні вказуємо ім'я перемінної (наприклад, x) і натискаємо Enter

Розташувати вікна на екрані в такий спосіб:

Вікно з текстом програми		Вікно Watches

Виконати програму в покроковому режимі, спостерігаючи за зміною значень контрольованих перемінних.

Натискаємо клавішу F7 до завершення роботи програми

Самостійна робота

Завдання 6. 1 Скласти програму, що друкує таблицю ступенів числа 2 (ступінь міняється від 0 до 10).

Завдання 6. 2 Скласти програму для обчислення факторіала заданого з клавіатури числа N.

Примітка - Обчислення факторіала N! зводиться до обчислення добутку чисел 1, 2, 3…N (за винятком 0! =1).

Завдання 6. 3 Скласти програму, що генерує 20 випадкових цілих чисел у діапазоні від 0 до 200 і підраховує суму і кількість чисел, що не поділяються на 4.

Завдання 6. 4 Скласти програму, що запитує з клавіатури 10 речовинних чисел, а потім підраховує середнє арифметичне і середнє геометричне позитивних чисел, а також суму квадратів усіх чисел.

Примітки

1 Середнє арифметичне обчислюється по формулі , де S - сума чисел, N - їхня кількість.

2 Середнє геометричне визначається по формулі , де P - добуток чисел, N - їхня кількість.

Завдання 6. 5 Скласти програми для обчислення:

і

Вимоги до оформлення звіту

Звіт повинний містити:

тексти програм, отриманих при виконанні самостійної роботи;

результати виконання програм;

блок-схеми програм.

цикл алгоритм сума добуток

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

Оператор циклу з параметром. Його різновиду.

Як можна перервати виконання циклу з параметром?

Які дії не допускається виконувати з циклом?

Алгоритм обчислення суми.

Алгоритм обчислення добутку;

Алгоритм обчислення факторіала.

Алгоритм підрахунку кількості значень, що задовольняють заданим умовам.

Алгоритм обчислення середнього арифметичних.

Алгоритм обчислення середнього геометричних.

Размещено на Allbest.ru