Методика розробки програм в середовищі TURBO PASCAL. Лабораторна робота з Основи програмування та алгоритмічні мови. Робота № 200699

Методика розробки програм в середовищі TURBO PASCAL

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Інститут комп’ютерних наук та інформаційних технологій

Факультет:

Не вказано

Кафедра:

Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:

2015

Тип роботи:

Лабораторна робота

Предмет:

Основи програмування та алгоритмічні мови

Група:

КН-1

Варіант:

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 1 з курсу «Основи програмування та алгоритмічні мови» Тема: «Методика розробки програм в середовищі TURBO PASCAL» Варіант 1 Виконав: ст. гр. КН-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, створив файл програми, відлагодив, скомпілював та зберіг програму, а також запустив програму на виконання і вивів результати для тестових прикладів.

Лабораторна робота Основи програмування та алгоритмічні мови

2015

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись