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

Переведите с Pascal на C++ - C++

Восстановить пароль Регистрация
 
nata95
 Аватар для nata95
1 / 1 / 0
Регистрация: 05.01.2014
Сообщений: 102
10.04.2014, 22:41     Переведите с Pascal на C++ #1
Уважаемые программисты, переведите с Pascal на C++, пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, h, z:longint;
   tz, tgz, rez:real;
begin
    readln (a, h, z);
    tz:=z*pi/180;
    tgz:=sin(tz)/cos(tz);
    if z=90 then rez:=a*h*sqrt(2) else
    if 2*h<a*tgz then rez:=(a*a/2-sqr(a-h*sqrt(2)/tgz)/2)/cos(tz)
                 else rez:=a*a/2/cos(tz);
    writeln (rez:0:3);
end.
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2014, 22:41     Переведите с Pascal на C++
Посмотрите здесь:

Переведите программу в C++ из Pascal C++
C++ Переведите с Pascal на C++
C++ Переведите с Pascal на С++
C++ Пожалуйста, переведите с Pascal на C++
Переведите с Pascal на C++ C++
Переведите с Pascal на C++ C++
Переведите с Pascal в C++ C++
Переведите программу из Pascal на С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Extrim88
 Аватар для Extrim88
50 / 50 / 11
Регистрация: 08.02.2013
Сообщений: 189
10.04.2014, 23:14     Переведите с Pascal на C++ #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
27
28
29
30
31
32
#include <iostream>
#include <cmath>
 
 
int main()
{
    const double pi = 3.14;
 
    long a, h, z;
    double tz, tgz, rez;
 
    std::cin >> a >> h >> z;
 
    tz = z * pi / 180;
    tgz = sin(tz) / cos(tz);
 
    if (z == 90)
        rez = a * h * sqrt(2.0);
    else if (2 * h <a * tgz)
        rez = (a * a / 2 - sqrt(a - h * sqrt(2.0) / tgz) / 2) / cos(tz);
    else
        rez = a * a / 2 / cos(tz);
 
    std::cout.setf(std::ios_base::fixed, std::ios_base::floatfield);
    std::cout.precision(3);
 
    std::cout << rez << std::endl;
    
    system("pause");
 
    return 0;
}
Yandex
Объявления
10.04.2014, 23:14     Переведите с Pascal на C++
Ответ Создать тему
Опции темы

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