Программирование - процесс и искусство создания компьютерных программ и/или программного обеспечения с помощью языков программирования. Программирование сочетает в себе элементы искусства, фундаментальных наук: информатики и математики.

Разработка алгоритмов разветвляющейся структуры

Задачи работы:
1. Изучить логический тип, правила вычисления значений логических выражений в языке Турбо Паскаль.
2. Изучить возможности языка Паскаль для организации бинарного и множественного ветвлений.
3. Разработать алгоритм и составить программу для решения задачи соответствующего варианта.
4. Подобрать наборы тестовых данных.


Задание:
Даны координаты вершин четырехугольника. Определить, является ли этот четырехугольник равнобокой трапецией.

Uses Crt;
var
A,B,C,D: array[1..2]of integer;
begin
clrscr;
write('Введите координату x1: ');
readln(A[1]);
write('Введите координату y1: ');
readln(A[2]);
write('Введите координату x2: ');
readln(B[1]);
write('Введите координату y2: ');
readln(B[2]);
write('Введите координату x3: ');
readln(C[1]);
write('Введите координату y3: ');
readln(C[2]);
write('Введите координату x4: ');
readln(D[1]);
write('Введите координату y4: ');
readln(D[2]);
if (((B[1]-A[1])*(C[1]-B[1])+(B[2]-A[2])*(C[2]-B[2]))+((D[1]-A[1])*(B[1]-A[1])+(D[2]-A[2])*(B[2]-A[2]))=0)and
((C[1]-B[1])*(D[1]-C[1])+(C[2]-B[2])*(D[2]-C[2])+(((D[1]-A[1])*(D[1]-C[1])+(D[2]-A[2])*(D[2]-C[2])))=0)
then writeln('Четырехугольник является равнобокой трапецией')
else writeln('Четырехугольник не является равнобокой трапецией');

readkey;
end.


Вы можете заказать выполнение работы по схожей или другой теме, заполнив форму заказа.
Можете посмотреть другие готовые работы

 
Меню
Главная
Услуги
Способы оплаты
Гарантии
Заказать
Готовые работы
Примеры алгоритмов
Контакты
 
 
Консультации
 
 
  ICQ 588641
 
Электронная почта
911@mathematix.ru
 
Skype
mathematix.ru
 
 
 
  © mathematix - контрольные, курсовые и дипломы по программированию Rambler's Top100