Міністерство освіти і науки України Національний університет „Львівська політехніка” Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота №1 Тема: ” Методика розробки програм в середовищі TURBO PASCAL ” Львів - 2005 Мета роботи: Засвоєння основних дій для реалізації програм в середовищі TURBO PASCAL (TP): а) вхід в інтегроване середовище (ІС) TP; б) робота з редактором ІС, створення файла програми; в) збереження файла програми; г) компіляція програми; д) виконання програми. Завдання: 1. Створити файл програми на мові Паскаль, запропонованої викладачем або аналогічної, вибраної самостійно. 2. Відлагодити, скомпілювати і зберегти програму. 3. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 4. Оформити звіт про роботу. ---------------------------------------------------------------------------------------------------------- Розв’язування квадратного рівняння
Блок-схема алгоритму
 Текст програми program KvadrRivn; uses Crt; var a,b,c,x1,x2,d:real; begin ClrScr; writeln; writeln('Введіть коефіцієнти квадратного рівняння (a,b,c)'); write(' a='); readln(a); write(' b='); readln(b); write(' c='); readln(c); writeln; if a=0 then writeln('Рівняння вироджене') else begin d:=b*b-4*a*c; if d<0 then writeln('Дійсних коренів не існує') else begin writeln('Розв"язки рівняння'); x1:=(-b+sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a; writeln(' x1=',x1:5:3); writeln(' x2=',x2:5:3); end; end; readln; end. Протокол роботи програми ----------------------------------------------------------------------------------------------- Коефіцієнти квадратного рівняння: a=5 b=4 c=3 Дійсних коренів не існує ----------------------------------------------------------------------------------------------- Коефіцієнти квадратного рівняння a=2 b=4 c=1 Розв"язки рівняння x1=-0.293 x2=-1.707 ----------------------------------------------------------------------------------------------- Коефіцієнти квадратного рівняння a=0 b=5 c=2 Рівняння вироджене