Приватна установа освіти
Коледж бізнесу і права
ЗВІТ
по навчальній практиці з програмування
ОП Т.117013
Перевірив (Н.І. Савченкова)
Виконав (В.А. Макрак)
Зміст
1. Програмування на мові Паскаль в середовищі Турбо Паскаль
1.1 Лінійні алгоритми
1.2 Процедури і функції
1.3 Структура даних: масиви
1.4 Структура даних: рядки.
1.4 Структура даних: записи
1.5 Модульне програмування
1.6 Пряма і непряма рекурсія
1.7 Рекурсивні алгоритми
1.8 Бінарний пошук
1.9 Сортування включенні
1.10 Обмінна сортування
1.11 Сортування поділом
1.12 Статичний і динамічна розподіл пам'яті
1.13 Організація списків
1.14 Модуль Graph
1. Програмування на мові Паскаль в середовищі Турбо Паскаль
1.1 Лінійні алгоритми
Умова задачі
Скласти словесне (математичне) опис і блок-схему наступної задачі: знайти периметр трикутника АВС, якщо його координати A ( x 1 , y 1 ), B ( x 2 , y 2 ), C ( x 3 , y 3 ,) вводяться з клавіатури. При неправильному введенні значень, вивести на екран повідомлення про помилку і пропозицією повторно ввести правильні дані. Результат відобразити на екрані.
= AB + BC + AC
Для тестування програми використовувалися дані, наведені в таблиці 1. Отримані результати наведені там же. br/>
Таблиця 1 - Результати виконання лінійного алгоритму
Вхідні данниеВиходние данниеABCS3 ,5-4 ,7-5, -125.34
Лістинг програми - Лінійний алгоритм
program perimetr; crt;
var ab, bc, ac, x1, x2, x3, y1, y2, y3: real;
p: real;; ('vvesti koordinati verhin A'); (x1, y1); ('vvedite koordinati verhin B'); (x2, y2);
writeln ('vvedite koordinati verhin C');
readln (x3, y3);: = sqrt ((sqr (x1-x2)) + (sqr (y1-y2)));: = sqrt ((sqr (x2-x3)) + (sqr (y2-y3)));: = sqrt ((sqr (x1-x3)) + (sqr (y1-y3)));
if (AB> = BC + AC) or (AC> = AB + BC) or (BC> = AB + AC) then writeln ('eto ne treygolnik, povtorite vvod'); (AB < ; BC + AC) and (AC
readln;.
програмування алгоритм турбо паскаль
Рисунок 1 - Блок-схема лінійного алгоритму
Результат рішення задачі представлений на малюнку 1.
В
Рисунок 1 - Результат роботи програми в TurboPascal
1.2 Процедури і функції
Скласти словесне (математичне) опис і блок-схему наступної задачі: знайти периметр трикутника АВС, якщо його координати A ( x 1 , y 1 ), B ( x 2 , y 2 ), C ( x 3 , y 3 ,) вводяться з клавіатури. При неправильному введенні значень, вивести на екран повідомлення про помилку і пропозицією повторно ввести правильні дані. Результат відобразити на екрані.
= AB + BC + AC
Для тестування програми використовувалися дані, наведені в таблиці 2. Отримані результати наведені там же. br/...
