Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составление программ с использованием массива Сформировать массив структур, содержащий сведения о 15 игрушек: указывается название игрушки (кукла, кубик, мяч, конструктор и т.д.), ее цена (в грн.) И возрастные границы детей (от 2 до 5 лет).... https://www.cyberforum.ru/ turbo-pascal/ thread762628.html Turbo Pascal Работа с символами. Паскаль
Короче, тема - "Обработка символов и символьных рядков". Нужно ввести с клавиатуры текстовый рядок и: Удалить первое слово предложения, если общее количество слов больше единицы и является числом...
Turbo Pascal Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5 2. Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5. Заранее большое спасибо!!! https://www.cyberforum.ru/ turbo-pascal/ thread762588.html Turbo Pascal Найти сумму чисел от 100 до 200, кратных 17 https://www.cyberforum.ru/ turbo-pascal/ thread762585.html
3. Найти сумму чисел от 100 до 200, кратных 17. Заранее большое спасибо!!!
Проверьте, является ли он упорядоченным по убыванию Turbo Pascal
4. Дан линейный массив целых чисел. Проверьте, является ли он упорядоченным по убыванию. Заранее большое спасибо!!!
Turbo Pascal Получить целочисленный массив 5. Даны целые числа а1, а2, а3. Получить целочисленный массив В, для которого B=ai-3aj. Заранее большое спасибо!!! Добавлено через 2 часа 44 минуты нужно составить математическое решение. https://www.cyberforum.ru/ turbo-pascal/ thread762582.html
Turbo Pascal Даны три действительных числа. Найти наибольшее из них помогите пожалуйста!!!для данных задачек надо сделать программы в паскале,блок схемы,алгоритм решения,матем описание!!КТО ШАРИТ ПОМОГИТЕ!!! 2 Даны три действительных числа a, b, c. Найти... https://www.cyberforum.ru/ turbo-pascal/ thread762578.html Составьте программу, которая вычисляет сумму квадратов чисел от 1 до введенного вами целого числа n Turbo Pascal
помогите пожалуйста!!!для данных задачек надо сделать программы в паскале,блок схемы,алгоритм решения,матем описание!!КТО ШАРИТ ПОМОГИТЕ!!! 3 Составьте программу, которая вычисляет сумму квадратов...
Turbo Pascal Найти сумму четных элементов массива целых чисел помогите пожалуйста!!!для данных задачек надо сделать программы в паскале,блок схемы,алгоритм решения,матем описание!!КТО ШАРИТ ПОМОГИТЕ!!! 4. Найти сумму четных элементов массива целых чисел.... https://www.cyberforum.ru/ turbo-pascal/ thread762574.html Turbo Pascal Получить целочисленный массив А[1..10, 1..12], для которого aij=i+2j https://www.cyberforum.ru/ turbo-pascal/ thread762573.html
помогите пожалуйста!!!для данных задачек надо сделать программы в паскале,блок схемы,алгоритм решения,матем описание!!КТО ШАРИТ ПОМОГИТЕ!!! 5 Получить целочисленный массив А, для которого aij=i+2j.
Turbo Pascal Составьте программу для вычисления напряжения на каждом из последовательно соединенных участков электрической цепи
1. Составьте программу для вычисления напряжения на каждом из последовательно соединенных участков электрической цепи сопротивлением R1, R2, R3 Ом< если сила тока при напряжении U В составляет 1 А. ...
Turbo Pascal Рекурсивное вычисление выражения https://www.cyberforum.ru/ turbo-pascal/ thread762553.html
Написать рекурсивную функцию https://www.cyberforum.ru/attachment.php?attachmentid=225015&d=1358254757
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
15.01.2013, 18:47 0

Построить треугольник по заданным координатам вершин, вычислить площадь - Turbo Pascal - Ответ 4006207

15.01.2013, 18:47. Показов 4845. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Uses crt,graph;
var driver,mode,x1,x2,x3,y1,y2,y3,x,y:integer;
    p,S,l1,l2,l3:real;
    pl:string;
Begin
 clrscr;
  write('Input coordinates: ');
  readln(x1,y1,x2,y2,x3,y3);
  driver:=detect;
  initgraph(driver,mode,'D:\tp7\BIN');
   setbkcolor(15);
   setcolor(1);
     line(x1,y1,x2,y2);
     line(x2,y2,x3,y3);
     line(x3,y3,x1,y1);
     x:=trunc((x1+x2+x3)/3);
     y:=trunc((y1+y2+y3)/3);
     setfillstyle(1,1);
     floodfill(x,y,1);
     setcolor(4);
    putpixel(x1,y1,4);
    outtextxy(x1+1,y1+1,'A');
    putpixel(x2,y2,4);
    outtextxy(x2+1,y2+1,'B');
    putpixel(x3,y3,4);
    outtextxy(x3+1,y3+1,'C');
  l1:=sqrt(sqr((x2-x1))+sqr((y2-y1)));
  l2:=sqrt(sqr((x3-x2))+sqr((y3-y2)));
  l3:=sqrt(sqr((x1-x3))+sqr((y1-y3)));
    p:=(l1+l2+l3)/2;
   S:=sqrt(p*(p-l1)*(p-l2)*(p-l3));
   str(s:6:3,pl);
   outtextxy(460,20,pl);
 readkey;
end.


Вернуться к обсуждению:
Построить треугольник по заданным координатам вершин, вычислить площадь Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2013, 18:47
Готовые ответы и решения:

Вычислить периметр и площадь треугольника по координатам вершин
составьте программу которая по заданным координатам треугольника (ввод с клавиатуры 6-ти...

Вычислить периметр и площадь треугольника по заданным координатам его вершин
Помогите решить задачу! Вычислить периметр и площадь треугольника по заданным координатам его...

По заданным координатам вершин треугольника найти стороны и площадь
По заданным координатам вершин треугольника найти стороны и площадь.

Нарисовать прямоугольный треугольник по заданным координатам вершин острых углов и величине угла
Помогите! Нужно нарисовать любой прямоугольный треугольник за заданными координатами вершин острых...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2013, 18:47
Помогаю со студенческими работами здесь

По заданным координатам вершин прямоугольника ABCD найти его площадь и периметр
Известны координаты вершин прямоугольника ABCD , A(x1,y1), B(x2,y2), C(x3,y3). Найти площадь и...

Дан треугольник по заданным координатам своих вершин.Определить радиус окружности возле треугольника
Дан треугольник по заданным координатам своих вершин.Определить радиус окружности возле...

Вычислить площадь многоугольника с использованием функции,которая определяет площадь по координатам его вершин
Народ помогите пож нужно очень срочно. совсем запутался с этим задание,буду благодарен за помощь....

Вычислить площадь треугольника по координатам вершин
Помогите пожалуйста). Задание - слепить макрос для вычисления площади треугольника по координатам...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru