Порядок виконання роботи, Практична частина - Оператор циклу з параметром

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Натискаємо Enter

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

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

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

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

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

У командному рядку набираємо команду: c: pin urbo

Натискаємо 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 до завершення роботи програми

Похожие статьи




Порядок виконання роботи, Практична частина - Оператор циклу з параметром

Предыдущая | Следующая