close

Вход

Забыли?

вход по аккаунту

?

Лаба 2 по Ап

код для вставкиСкачать
Министерство образования и науки Украины
Национальный горный университет
отчет
Лабораторная работа №2
Разгалужений вычислительный процесс
Выполнил:
студент группы Книт-10-1
Новицкий А.В.
Проверил:
Качанов А.В. /_____________/
оценка: ______________
дата: "___"___________
г. Днепропетровск
2010
1)Условие задачи:
Відомі координати вершин трикутника А(х1,у1), В(х2,у2) і С(х3,у3). Визначити, чи трикутник рівнобічний. При обчисленні застосувати формулу відстані між двома точками А(х1,у1) і В(х2,у2).
2)Блок-схема:
3) Листинг (или рукопись) программы:
var x1,y1,x2,y2,x3,y3,AB,BC,AC: real; // переменные
Begin
writeln('Vedivte znachenie koordinaty A(x1,y1)');
read(x1);
read(y1);
writeln('Vvedite znachenie koordinaty B(x2,y2)');
read(x2);
read(y2);
writeln('Vvedite znachenie koordinat C(x3,y3)');
read(x3);
read(y3);
AB:= sqrt( sqr(x2-x1) + sqr(y2-y1)); // формула нахождения AB
BC:= sqrt( sqr(x2-x3) + sqr(y2-y3)); // Формула нахождения BC
AC:= sqrt( sqr(x3-x1) + sqr(y3-y2)); // Формула нахождения AC
if (AB=BC)and (AB=AC)and (BC=AC) then
writeln('treugilnik rivnostoroni')
else writeln('treugilnik ne rivnostoroni');
readln;
readln;
end.
4) Результаты вычисление программы:
Рис1: AB=BC=AC
Рис2: AB≠BC≠AC
5)Выводы: В процессе выполнения работы, научился пользоваться оператором If,а также строить блок-схемы с помощью оператора If. 
Документ
Категория
Рефераты
Просмотров
8
Размер файла
73 Кб
Теги
лаба
1/--страниц
Пожаловаться на содержимое документа