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

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

Восстановить пароль Регистрация
 
Altaon
3 / 3 / 0
Регистрация: 19.01.2011
Сообщений: 79
03.05.2011, 18:52     Из Turbo Pascal в C++ #1
Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин (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 в С++
Из Turbo Pascal в C++ C++
C++ Как программу на Turbo Pascal перевести на C++?Выручите)
C++ Turbo Pascal -> C++ (подсчет суммы мест, на которых в словах текста стоит заданная буква)
C++ Путем перестановок строк и столбцов элемент переместить в правый верхний угол подмассива (С Turbo Pascal на C++)
Перевести из Turbo Pascal в C++ C++
C++ Перевод программы с Turbo Pascal на С++
C++ Перевести из Turbo Pascal в C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
mimicria
return (true);
 Аватар для mimicria
1956 / 1093 / 91
Регистрация: 19.04.2011
Сообщений: 2,344
03.05.2011, 19:04     Из Turbo Pascal в C++ #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ил
 Аватар для Mиxaил
530 / 435 / 37
Регистрация: 10.12.2009
Сообщений: 1,857
03.05.2011, 19:05     Из Turbo Pascal в C++ #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;
}
Yandex
Объявления
03.05.2011, 19:05     Из Turbo Pascal в C++
Ответ Создать тему
Опции темы

Текущее время: 23:35. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru