Варіанти завдань для оператора CASE

1. Скласти програму визначення дня тижня за його порядковим номером.

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

3. Складіть програму, яка до введеного з клавіатури числа додає відповідно слова «роки», «рік», «років».

4. Складіть програму, яка за введеним з клавіатури віком (ціле число) виводить повідомлення-рекаомендацію щодо вивчення мови програмування Паскаль.

5. Складіть програму, яка виводить слово «Так», якщо ви натиснули на клавіатурі одну з літер: «Т», «т», «N», «n», слово «Ні» при введенні літер «Y», «y», «Н», «н» та слова «Не знаю», якщо введена якась інша літера.

6. Нехай задано пронумерований список студентів. Скласти програму, яка за введеним номером виводить прізвище студента.

7. ^*Скласти програму, яка обчислює суму, добуток, різницю або частку двох чисел в залежності від знака операції. Результат може бути виведено у вигляді: 1+2=3

 

Лабораторна робота №12.

Тема: Складання та відладка програм з використанням масивів даних.

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

Обладнання: ПК, ТП 7.0.

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

Хід роботи.

1. Запустити середовище Turbo Pascal 7.0 за допомогою файла turbo.exe.

2. Відкрити нове вікно редагування за допомогою команди меню File-New.

3. Набрати текст програми. Зберегти текст програми за допомогою команди меню File-Save as…

4. Запустити на виконання програму з активного вікна за допомогою гарячих клавіш Ctrl-F9. Виправити помилки, якщо вони будуть знайдені, і запустити програму на виконання ще раз. Зберегти налагоджену програму за допомогою клавіші F2.

5. Створити exe-файл програми за допомогою клавіш Alt-F9 в (режимі Destination-Disk). Закрити вікно з виконаною програмою за допомогою клавіш Alt-F3. Завершити сеанс роботи в інтегрованому середовищі програмування Turbo Pascal 7.0 за допомогою гарячих клавіш Alt-X.

6. Запустити на виконання одержаний exe-файл програми з ОС або з оболонки.

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

1. Якого типу можуть бути індекси елементів масиву?

2. Чи можна розмірність масиву позначити змінною?

3. Дайте визначення одномірного та двомірного масиву.

4. Наведіть приклади методів сортування масивів (2-3 з ідеями).

Звіт повинен містити: тексти 2-х програм з результатами виконання, відповіді на контрольні запитання.

Завдання для обробки лінійних масивів та матриць (оператор FOR).

1. Дано квадратну матрицю дійсних чисел розмірності 3. Вивести індекси максимального елемента.

2. Дано квадратну матрицю дійсних чисел розмірності 4. Вивести елементи головної діагоналі.

3. Дано квадратну матрицю дійсних чисел розмірності 2. Вивести суму елементів рядка що містить максимальний елемент.

4. Дано квадратну матрицю дійсних чисел розмірності 5. Вивести суму елементів побічної діагоналі.

5. Дано квадратну матрицю дійсних чисел розмірності 3. Вивести добуток елементів головної діагоналі.

6. Впорядкувати заданий лінійний масив 10 цілих чисел по спаданню.

7. Дано масив 20 дійсних чисел. Вивести номер максимального елемента.

8. Дано масив 20 дійсних чисел. Вивести різницю між максимальним і мінімальним елементами.

9. Дано масив 20 дійсних чисел. Обчислити кількість входжень заданого елемента.

10. Дано масив 20 дійсних чисел. Вивести кількість максимальних елементів.

11. Вивести матрицю випадкових цілих чисел від 1 до 12. Розмірність матриці 5х6. Знайти середнє арифметичне її елементів.

12. Дано квадратну матрицю розмірності 5. Вивести елементи що знаходяться нижче головної діагоналі по рядках.

13. В матриці цілих чисел 4х6 впорядкувати елементи рядків по зростанню.

14. Дано квадратну матрицю дійсних чисел розмірності 5. Вивести рядки, що починаються з нуля.

15. Дано квадратну матрицю дійсних чисел розмірності 5. Елементи, більші за середнє арифметичне, замінити одиницями, менші – нулями.

 

Завдання для операторів WHILE або REPEAT:

 

Вивести таблицю значень функції Y=F(x), x належить [a;b] з кроком h.

 

1. y=2sin(2- 5,7x), [-12;6], h=0,5

2. y=2cos(2,6x+3,1), [-1;11], h=0,2

3. y=12sin(- 3,8x+9,45), [-2;6], h=0,05

4. y=2tg(3x-1), [-5;5], h=0.2

5. y=2log₂(3x+7), [0;5], h=0.4

6. y=3e^3x-6, [-10;10], h=1

7. y=x⁷-6x⁶+8,9x⁵-1,23x⁴+4,87x³-30x²+1, [-4;4], h=0.02

8. y=5sin²(3x-1), [-pi;pi], h=0.1

9. y=3cos²(4x-2), [-2pi;2pi], h=0.8

10. y=ln²(3x-4), [5/3;12], h=0.25

11. y=-e^-2x+5, [-2;2], h=0.005

12. y=tg²x, [-pi/4;pi/4], h=0.3

13. y=log₄(7-3x), [-10;2], h=0.254

14. y=x⁴+x³-4x²+3x-5, [-20;-12], h=0.5

15. y=1/(sin²2x)+1; [0,1;1,5], h=0.002

16. y=3^3x-6, [-8;8], h=0.6

 

Лабораторна робота №13.

Тема: Відладка програм обробки рядків.

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

Обладнання: ПК, ТП 7.0.

Хід роботи.

1. Запустити середовище Turbo Pascal 7.0 за допомогою файла turbo.exe.

2. Відкрити нове вікно редагування за допомогою команди меню File-New.

3. Набрати текст програми. Зберегти текст програми за допомогою команди меню File-Save as…

4. Запустити на виконання програму з активного вікна за допомогою гарячих клавіш Ctrl-F9. Виправити помилки, якщо вони будуть знайдені, і запустити програму на виконання ще раз. Зберегти налагоджену програму за допомогою клавіші F2.

5. Створити exe-файл програми за допомогою клавіш Alt-F9 в (режимі Destination-Disk). Закрити вікно з виконаною програмою за допомогою клавіш Alt-F3. Завершити сеанс роботи в інтегрованому середовищі програмування Turbo Pascal 7.0 за допомогою гарячих клавіш Alt-X.

6. Запустити на виконання одержаний exe-файл програми з ОС або з оболонки.

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

1. Яка максимальна довжина рядкової величини?

2. Де міститься інформація про кількість символів в рядку?

3. Назвіть процедури і функції роботи з рядками та призначення їх параметрів.

Звіт повинен містити: тексти 2-х програм з результатами виконання, відповіді на контрольні запитання.

Варіанти завдань

1. Заповнити таблицю:

Операція над рядками	Результат виконання
’інфор’+’матика’
Copy(’інформатика’,3,5)
’COPMUTER’<’computer’
’COMPUTER’>’COMP’
’Comp’<’comp’
’Computer’=’computer’

 

2. Скласти програму, яка після кожної цифри в тексті вставляє в дужках її текстовий еквівалент. Наприклад, 0 (ноль); 1 (один),....

3. Скласти програму, що викреслює із заданого слова всі літери «а»
(наприклад, «застава» - «зств»).

4. Скласти програму, яка кожну літеру «а», що зустрічається в тексті, замінює на групу символів «ку» (наприклад, «ади» - «куди»).

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

6. Нехай текст заданий у вигляді одного слова, тобто в ньому відсутні пробіли. Скласти програму, яка перевіряє, чи є частиною заданого слова слово «рак». Відповіддю повинно бути «так» чи «ні» (наприклад, для слова «ракета» - «так», а для слова «карета»-«ні»).

7. У заданому двійковому числі замінити всі цифри «0» на «1» і навпаки. Якщо старшими цифрами отриманого двійкового числа стануть цифри «0», то ними знехтувати.

8. Розробити програму-шнфрувальник тексту, що замінює кожну його літеру наступною по порядку в абетці. Останню літеру абетки необхідно замінити першою.

9. Заданий деякий текст. Групи символів, які розділені пробілами (одним або декількома)танемютять всередині пробілів, будемо називати слова­ми. Будемо вважати, що текст завжди починається зі слова. Визначити

1) кількість слів в тексті;

2) кількість слів, які починаються з літер «а» або «А»;

3) кількість слів, в яких перша та остання літери однакові;

4) кількість слів, довжина яких дорівнює к.

10. У заданому тексті порахувати найбільшу кількість символів <пробіл>, що розташовані підряд.

11. Нехай заданий текст, що складається з окремих речень, і в іркому використовуються розділові знаки «.», «?», «!», «*». Порахувати кількість речень у заданому тексті.

12. Задано текст S, в якому є хоча б одна крапка. Роздрукувати ту частину тексту, що розташована

1)до першої крапки;

2)після другої крапки;

3) між першою та другою крапкою (якщо друга крапка відсутня, то до кінця тексту).

13. Нехай задано текст-формулу. Визначити коректність заданої формули, щодо кількості відкритих та закритих дужок. Вважається, що закриті дужки не стоять перед відкритими. Якщо дужки у формулі відсутні - повідомити про це.

14. У заданій формулі окремо порахувати кількість входжень символів «+» та кількість символів «-».

15. Підрахувати загальну кількість символів «+», «-» та «*» у заданому тексті.

16. Задано текст. Визначити, які символи зустрічаються у тексті частіше: «а» чи «о». Якщо якийсь із символів відсутній - повідомити про це.

17. У заданому, тексті замінити всі символи «:» на символи «-» і навпаки.

18. У заданому тексті замінити всі символи «.» на послідовність символів «...».

19. У заданому тексті всі послідовності крапок замінити на одну крапку.

20. Задано деякий текст, в якому є хоча б одна кома. Визначити порядковий номер

- першої коми в тексті;

- останньої коми в тексті.

21. Роздрукувати заданий текст у зворотному порядку.

22. Задано деякий текст. Створити новий текст, який утворено із заданого читанням з кінця до початку.

23. Перевірити, чи задане слово читається однаково з початку в кінець і з кінця до початку.

24. Перевірити, чи є задані два слова оберненими одне до одного, тобто перше читається з початку до кінця так само, як друге з кінця до початку.

25. Визначити, скільки разів у заданому тексті зустрічається послі­довність символів: 1) «аб»; 2) «абв»; 3) «аба»; 4) «абаб».

26. Нехай задано текст-формулу, яка містить лише арифметичні опе­рації +, -, *, / і не містить дужок та функцій. Визначити загальну кількість арифметичних дій, передбачених у заданій формулі, та кількість чисел, над якими вони здійснюються.

27. Задано деякий текст. Відредагувати текст таким чином, щоб після кожного розділового знака стояв хоча б один пробіл, а всі перші слова в реченнях починалися з великої літери.

28. Задано деякий текст. Відредагувати його таким чином, щоб всі символи «.» були замінені на «...», символи «:» на «-», символи «-» на «--».

 

Лабораторна робота №14.

Тема: Відладка програм з використанням власних процедур та функцій.

Мета: навчитись складати програми з використанням процедур та функцій.

Обладнання: ПК, ТП 7.0.

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

Хід роботи.

1. Запустити середовище Turbo Pascal 7.0 за допомогою файла turbo.exe.

2. Відкрити нове вікно редагування за допомогою команди меню File-New.

3. Набрати текст програми. Зберегти текст програми за допомогою команди меню File-Save as…

4. Запустити на виконання програму з активного вікна за допомогою гарячих клавіш Ctrl-F9. Виправити помилки, якщо вони будуть знайдені, і запустити програму на виконання ще раз. Зберегти налагоджену програму за допомогою клавіші F2.

5. Створити exe-файл програми за допомогою клавіш Alt-F9 в (режимі Destination-Disk). Закрити вікно з виконаною програмою за допомогою клавіш Alt-F3. Завершити сеанс роботи в інтегрованому середовищі програмування Turbo Pascal 7.0 за допомогою гарячих клавіш Alt-X.

6. Запустити на виконання одержаний exe-файл програми з ОС або з оболонки.

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

1. Чим відрізняється процедура від функції?

2. Дайте визначення локальних та глобальних параметрів.

3. Наведіть приклад формальних та фактичних параметрів.

Звіт повинен містити: текст програми з результатами виконання, відповіді на контрольні запитання.

 

Лабораторна робота №15.

Тема: Відладка програм з використанням файлів.

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

Обладнання: ПК, ТП 7.0.

Хід роботи.

13. Запустити середовище Turbo Pascal 7.0 за допомогою файла turbo.exe.

14. Відкрити нове вікно редагування за допомогою команди меню File-New.

15. Набрати текст програми. Зберегти текст програми за допомогою команди меню File-Save as…

16. Запустити на виконання програму з активного вікна за допомогою гарячих клавіш Ctrl-F9. Виправити помилки, якщо вони будуть знайдені, і запустити програму на виконання ще раз. Зберегти налагоджену програму за допомогою клавіші F2.

17. Створити exe-файл програми за допомогою клавіш Alt-F9 в (режимі Destination-Disk). Закрити вікно з виконаною програмою за допомогою клавіш Alt-F3. Завершити сеанс роботи в інтегрованому середовищі програмування Turbo Pascal 7.0 за допомогою гарячих клавіш Alt-X.

18. Запустити на виконання одержаний exe-файл програми з ОС або з оболонки.

 

Завдання для ЛР:

1. Скласти та виконати програму для створення файлу цілих чисел та обчислення кількості додатніх, нулів та від’ємних чисел у цьому файлі.

2. Скласти та виконати програму-тест на 5 запитань з улюбленого предмету, система оцінювання – довільна, максимальна кількість балів - 5.

 

 

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

1. Що таке файл?

2. Як відкрити файл для читання (запису)?

3. Якеі типи файлів підтримує система Турбо Паскаль 7.0?

 

Звіт повинен містити: тексти 2-х програм з результатами виконання, відповіді на контрольні запитання.

Лабораторна робота №16.

Тема: Відладка програм з використанням множин та записів.

Мета: систематизувати отримані теоретичні знання множин та записів, навчитись використовуваати їх в програмі.

Обладнання: ПК, ТП 7.0.

Хід роботи.

19. Запустити середовище Turbo Pascal 7.0 за допомогою файла turbo.exe.

20. Відкрити нове вікно редагування за допомогою команди меню File-New.

21. Набрати текст програми. Зберегти текст програми за допомогою команди меню File-Save as…

22. Запустити на виконання програму з активного вікна за допомогою гарячих клавіш Ctrl-F9. Виправити помилки, якщо вони будуть знайдені, і запустити програму на виконання ще раз. Зберегти налагоджену програму за допомогою клавіші F2.

23. Створити exe-файл програми за допомогою клавіш Alt-F9 в (режимі Destination-Disk). Закрити вікно з виконаною програмою за допомогою клавіш Alt-F3. Завершити сеанс роботи в інтегрованому середовищі програмування Turbo Pascal 7.0 за допомогою гарячих клавіш Alt-X.

24. Запустити на виконання одержаний exe-файл програми з ОС або з оболонки.

 

Завдання для ЛР:

3. Скласти та виконати програму з використанням множин.

4. Скласти та виконати програму з використанням записів.

 

Варіанти завдань:

Варіант 1.

1. Обчислити кількість голосних у введеномк з клавіатури тексті.

2. Описати тип данх „Student”, що містить поля: прізвище, дата народження, оцінки з 3-х предметів. Ввести з клавіатури відомості про 3-х студентів. Обчислити середній бал кожного студента та вивести на екран прізвище та середній бал.

Варіант 2.

1. Обчислити кількість приголосних у введеному з клавіатури тексті.

2. Описати тип данх „Student”, що містить поля: прізвище, дата народження, оцінки з 3-х предметів. Ввести з клавіатури відомості про 3-х студентів. Вивести відомості про студентів, яким вже виповнилось 16 років.

Варіант 3.

1. Обчисліть кількість цифр у введеному з клавіатури тексті.

2. Описати тип даних „Працівник”, що містить поля: прізвище, дата народження, посада, зарплатня. Вивести список працівників віком до 30 років та їх заробіток.

Варіант 4.

1. Обчислити кількість латинських літер у введеному з клавіатури тексті.

2. Описати тип даних „Працівник”, що містить поля: прізвище, дата народження, посада, зарплатня. Вивести список працівників, які мають посаду „Програміст” та обчисліть їх середній заробіток.

 

 

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

4. Що таке запис та поле?

5. Для чого використовують записи в мові Паскаль?

6. Опишіть призначення оператора with.

 

Звіт повинен містити: тексти 2-х програм з результатами виконання, відповіді на контрольні запитання.

 

Лабораторна робота №17.

Тема: Використання процедур та функцій модуля Graph.

Мета: Ознайомитись з можливостями комп’ютерної графіки в середовищі Turbo Pascal 7.0.

Обладнання: ПК (номер!), середовище програмування TP 7.0

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

 

Хід роботи.

1. Побудувати графічні примітиви: коло, прямокутник, відрізок, дугу, еліпс. Обрати різні кольори для фігур. В звіт помістити відповідну програму.

2. Побудувати графік функції згідно варіанта, використавши програму: В звіті зобразити схематично графік функції (можна олівцем).

 

program E37;

uses Graph,Crt;

type

YY=array[1..640] of real;

procedure init;

var gr,gm:integer;

begin

gr:=0;

initGraph(gr,gm,'c:\bp\bgi');

if GraphResult <>grOK

then Halt(1)

end;

function f(x:real):real;

begin

f:=x*x;

end;

procedure grafic;

var xmax,ymax,x1,y1:integer;x,y,a,b:real;

begin

xmax:=640; ymax:=480; a:=-pi; b:=pi;

for x1:=1 to xmax do

begin

x:=a+x1*(b-a)/xmax;

y:=f(x);

y1:=trunc(y*xmax/(b-a));

y1:=ymax div 2-y1;

PutPixel(x1,y1,2)

end

end;

begin

init;

Grafic;

repeat until keypressed

end.

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

1. Вкажіть три значення змінної GraphMode.

2. Чи можна поділити екран на дві частини для текстогвого та графічного режиму?

3. Яку помилку видає транслятор при відсутності файла egavga.bgi? Опишіть коротко призначення цього файлу.

 

 

Варіанти завдань:

1) y=sin2x, [-2π;2π]; 2) y=2cosx, [-2π;2π]; 3) y=3sin2x, [-2π;2π]; 4) y=sin²x, [-2π;2π]; 5) y=cos³x, [-2π;2π]; 6) y=x²+2x+1, [-4;4]; 7) y=x²-5x+6, [-2;5]; 8) y=x⁴, [-5;5]; 9) y=lgx, [0.1;6]; 10) y=log₂x, [0.04;8]; 11) y=e^x, [-6;6]; 12) y=tgx, [-2π;2π]; 13) y=x³, [-3;3]; 14) y=2^x, [-4;4]; 15) y=arctgx, [-10;10]; 16) y=1,2-4sin(3x+5,6), [-10;10];