Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 1 з курсу «Основи програмування та алгоритмічні мови» Тема: «Методика розробки програм в середовищі TURBO PASCAL» Варіант 1 Львів-2006 Мета роботи: Засвоєння основних дій для реалізації програм в середовищі TURBO PASCAL (TP): а) вхід в інтегроване середовище (ІС) TP; б) робота з редактором ІС, створення файла програми; в) збереження файла програми; г) компіляція програми; д) виконання програми. Завдання: 1. Створити файл програми на мові Паскаль, запропонованої викладачем або аналогічної, вибраної самостійно. 2. Відлагодити, скомпілювати і зберегти програму. 3. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 4. Оформити звіт про роботу. Постановка задачі: Розв’язати квадратне рівняння
. Блок-схема алгоритму
 Текст програми program KvadrRivn; uses Crt; var a,b,c,x1,x2,d:real; begin ClrScr; writeln; writeln('Введіть коефіцієнти квадратного рівняння'); 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=0 b=3 c=1 Рівняння вироджене ----------------------------------------------------------------------------------------------- Введіть коефіцієнти квадратного рівняння a=2 b=-5 c=10 Дійсних коренів не існує ----------------------------------------------------------------------------------------------- Введіть коефіцієнти квадратного рівняння a=1 b=-7 c=10 Розв"язки рівняння x1=5.000 x2=2.000 ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я оволодів основними навичками роботи в середовищі Turbo Pascal, а саме: навчився входити в ІС TP, створив файл програми, відлагодив, скомпілював та зберіг програму, а також запустив програму на виконання і вивів результати для тестових прикладів.