Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Методика розробки програм в середовищі TURBO PASCAL
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)
Інформація про роботу
Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
З В І Т
Лабораторна робота № 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, створив файл програми, відлагодив, скомпілював та зберіг програму, а також запустив програму на виконання і вивів результати для тестових прикладів.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора