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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Altaon
3 / 3 / 0
Регистрация: 19.01.2011
Сообщений: 79
#1

Из Turbo Pascal в C++ - C++

03.05.2011, 18:52. Просмотров 447. Ответов 2
Метки нет (Все метки)

Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин (x1,y1), (x2,y2), (x3,y3). Вычисление расстояния между двумя точками оформить с помощью функции по формуле. Помогите переделать прогу из Tuarbo Pascalя в C++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program lab8_2;
uses crt;
var x1,x2,x3,y1,y2,y3,a,b,c:real;
function str(x1,x2,y1,y2:real):real;
begin
 str:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
begin
 clrscr;
  writeln('Vvrdite x1,x2,x3,y1,y2,y3');
   readln(x1,x2,x3,y1,y2,y3);
    a:=str(x1,y1,x2,y2);
     b:=str(x1,y1,x3,y3);
     c:=str(x2,y2,x3,y3);
    if (a>b) and (a>c) then writeln('Samayz bolshaya storona A=',a:5:2)
   else if (b>a) and (b>c) then writeln('Samayz bolshaya storona B=',b:5:2)
  else writeln('Samayz bolshaya storona C=',c:5:2);
 readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2011, 18:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из Turbo Pascal в C++ (C++):

Из Turbo pascal в С++ - C++
var st: string; i, count: integer; begin readln(st); for i:=1 to length(st) do if st in then inc(count); ...

Из Turbo Pascal в C++ - C++
var mas:arrayof Integer; A,i,n,sum:Integer; begin write('4islo elementov massiva: '); readln(n); writeln('Vvedite...

Перевести из Turbo Pascal в C++ - C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; write(‘Введіть х = ‘); readln(х); until...

Перевести из Turbo Pascal в C++ - C++
uses crt; var x: longint; begin clrscr; writeln(‘Введите число от 1 до 10000: ‘); readln(x); ...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
mimicria
return (true);
1956 / 1093 / 91
Регистрация: 19.04.2011
Сообщений: 2,345
03.05.2011, 19:04 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 int xa,xb,xc,ya,yb,yc,ab,bc,ac;
 cout << "xa=";
 cin >> xa;
 cout << "ya=";
 cin >> ya;
 cout << "xb=";
 cin >> xb;
 cout << "yb=";
 cin >> yb;
 cout << "xc=";
 cin >> xc;
 cout << "yc=";
 cin >> yc;
 ac=sqrt((xa-xc)*(xa-xc)+(ya-yc)*(ya-yc));
 ab=sqrt((xa-xb)*(xa-xb)+(ya-yb)*(ya-yb));
 bc=sqrt((xb-xc)*(xb-xc)+(yb-yc)*(yb-yc));
 if ((ac>=ab)&&(ac>=bc)) cout << "Max AC="<< ac;
 if ((ab>=ac)&&(ab>=bc)) cout << "Max AB="<< ab;
 if ((bc>=ac)&&(bc>=ab)) cout << "Max BC="<< bc;
Mиxaил
533 / 438 / 37
Регистрация: 10.12.2009
Сообщений: 1,857
03.05.2011, 19:05 #3
C++
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
#include <iostream>
#include <cmath>
 
float Str (float x1, float x2, float y1, float y2)
{
    return (sqrt(sqr(x1 - x2) + sqr(y1 - y2)));
}
 
int main()
{
    std::cout << "Enter x1, x2, x3, y1, y2, y3 ";
    float x1, x2, x3, y1, y2, y3;
    std::cin >> x1 >> x2 >> x3 >> y1 >> y2 >> y3;
    float a = Str (x1, y1, x2, y2);
    float b = Str (x1, y1, x3, y3);
    float c = Str (x2, y2, x3, y3);
    if ((a > b) && (a > c))
        std::cout << "Samayz bolshaya storona A=" << a << std::endl;
    else 
        if ((b > a) && (b > c))
            std::cout << "Samayz bolshaya storona B=" << b << std::endl;
         else
            std::cout << "Samayz bolshaya storona C=" << c << std::endl;
    std::cin.get();
    return 0;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2011, 19:05
Привет! Вот еще темы с ответами:

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

Turbo Pascal -> C++ (подсчет суммы мест, на которых в словах текста стоит заданная буква) - C++
Задание. Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква. program zadacha5; Var s, c:...

Путем перестановок строк и столбцов элемент переместить в правый верхний угол подмассива (С Turbo Pascal на C++) - C++
Можете программу преобразовать в C++?? Задан двумерный массив N x N. Последовательно рассматриваются квадратные подмассивы, правый...

сравнительные характеристики систем программирования Turbo Pascal и Borland C - C++
сравнительные характеристики систем программирования Turbo Pascal и Borland С??????


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru