Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Найти площадь и периметр треугольника - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Посчитать количество символов "q" в строке http://www.cyberforum.ru/cpp-beginners/thread371557.html
как посчитать количество символов q. q типа char?
C++ Решение уравнения Доброго времени суток! Ребят помогите с задачкой пожалуйста Задано уравнение: a*x+b*y=c, где a,b,c,x,y - целые неотрицательные числа. Заданы коэффициенты a,b,c. Требуется определить x,y. Формат... http://www.cyberforum.ru/cpp-beginners/thread371505.html
VS 6.0 ошибка при линковке C++
Всё время с 6.0 при линковке выдаёт Linking... LIBCD.lib(crt0.obj) : error LNK2001: unresolved external symbol _main Debug/Test.exe : fatal error LNK1120: 1 unresolved externals Код что пытаюсь...
C++ Проблема с типами данных
В одной функции одномерный динамический массив заполняется случайными числами // Çàïîëíåíèå ìàññèâà ñëó÷àéíûìè ÷èñëàìè int ZapolnenieMassiva (int *Massive, int SizeOfMassive) { int i; cout...
C++ Какие утверждения являются верными? http://www.cyberforum.ru/cpp-beginners/thread371492.html
1) Операторы циклов for, while и do while не являются взаимозаменяемыми 2) Проверка условия выполняется на каждой итерации цикла 3) В случаях, когда число итераций заранее не известно, удобнее...
C++ Какое назначение может иметь в программе приведенный цикл без тела? for (t=0; t<SOME_VALUE; t++); подробнее

Показать сообщение отдельно
Сержа
57 / 56 / 5
Регистрация: 11.12.2009
Сообщений: 347
24.10.2011, 14:59
Ego-Delu,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
/****** запускаем основной алгоритм перебора и построения точек
    // проверка точек!!! нельзя чтоб 3 точки лежало на одной пряиой
   nr:=0;
for I := 1 to SG.RowCount- 3 do
 for l := i+1 to SG.RowCount- 2 do
  for k := l+1 to SG.RowCount- 1 do begin
      x1:=mas[1,i];
      y1:=mas[2,i];
      x2:=mas[1,l];
      y2:=mas[2,l];
      x3:=mas[1,k];
      y3:=mas[2,k];
        // если площадь треугольника, по 3 точкам, равна 0 то эти 3 точки лежат на одной прямой
  if ((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2=0 then begin
    nr:=nr+1;
    nom[nr]:=i;
    nom[nr+1]:=l;
    nom[nr+2]:=k;
    nr:=nr+2;
  end;
  end;
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru