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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти ошибку http://www.cyberforum.ru/cpp-beginners/thread225154.html
/*7) Может ли число вида АВАВ, где А и В – цифры, быть точным квадратом? Если да, то вывести на экран все варианты*/ #include <iostream> using namespace std; int main(void) {setlocale(LC_ALL,...
C++ Конструкторы и деструктор Здравствуйте. Мне нужно написать маленькую и простую программу, имеющую конструкторы: инициализирующий, по умолчанию, копирующий и деструктор. Мною уже перелопачено много литературы и форумов, но... http://www.cyberforum.ru/cpp-beginners/thread225151.html
C++ Полоса прокрутки
Есть некая полоса прокрутки hScrollBar значения от 1 до 10. Есть формула допустим (x+1)*n ( n - это значения полосы прокрутки. Нужно что бы когда прокручиваешь полоску автоматом считался результат в...
С++ и обработка данных типа структура C++
Здравствуйте! Такая проблема: есть программа, которая управляет базой данных "Кинотеатр". При попытке ее компилирования и запуска вылетает ошибка ( Error 1 ). #include<iostream.h>...
C++ Чтение из файла в массив char http://www.cyberforum.ru/cpp-beginners/thread225131.html
Доброе время суток господа. У меня есть массив char a="I am text" кпримеру, сама программа для работы с массивом написана. Но мне надо данные из файла брать т.е. у меня есть пустой массив и файл с...
C++ Как сделать это задание? Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)),.., меньшего по модулю 10^-3. подробнее

Показать сообщение отдельно
Silandr
0 / 0 / 0
Регистрация: 06.01.2011
Сообщений: 7

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

07.01.2011, 12:10. Просмотров 1931. Ответов 3
Метки (Все метки)

Пожалуйста перепишите данную программу с Паскаля
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Ploshad;
uses crt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
 BEGIN
 writeln('koordinati x1, y1');
 readln(x1,y1);
writeln('koordinati x2, y2');
 readln(x2,y2);
writeln('koordinati x3, y3');
 readln(x3,y3);
 
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+xqr(y3-y1));
 p:=(a+b+c)/2;
 s:=sqrt(p*(p-a)*(p-b)*(p-c));
 writeln('s=',s:3:2);
 writeln('p=',p:3:2);
END.
на язык С.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru