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