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

перевод из паксаля в с++ - C++

Восстановить пароль Регистрация
 
kessi
0 / 0 / 0
Регистрация: 02.10.2010
Сообщений: 19
03.11.2010, 16:24     перевод из паксаля в с++ #1
люди помогите пожалуйста! сдача скоро.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,x1,y1,x2,y2,k:integer;
begin
clrscr;
writeln('Наименьшее число, представимое двумя различными способами');
writeln('  в виде суммы кубов двух натуральных чисел');
n:=3;{меньше 4 таких пар нет}
while true do{ьбесконечный цикл}
 begin
  inc(n);
  for y1:=1 to trunc(exp(1/3*ln(n))) do{цикл до корня кубического из N, дальше нет смысла}
  for x1:=y1 to trunc(exp(1/3*ln(n))) do{первая пара}
  for y2:=1 to trunc(exp(1/3*ln(n))) do
  for x2:=y2 to trunc(exp(1/3*ln(n))) do {вторая пара}
  if (x1*x1*x1+y1*y1*y1=n)and(x2*x2*x2+y2*y2*y2=n){если обе равны N}
  and((x1<>x2)and(y1<>y2))then  {и из разных чисел}
   begin
    writeln(x1,'^3+',y1,'^3=',n); {выводим}
    writeln(x2,'^3+',y2,'^3=',n);
    readln; {читаем}
    exit{завершаем программу}
   end;
 end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2010, 16:24     перевод из паксаля в с++
Посмотрите здесь:

C++ Перевод из C++ в C
перевод из С++ в Си C++
C++ Перевод из 10 си в 11-16
C++ Перевод в 8-ю ЧС
C++ Перевод
C++ Перевод из C в С++
Перевод с С на С++ C++
Перевод из С++ в Си C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
silent_1991
Эксперт C++
4938 / 3014 / 149
Регистрация: 11.11.2009
Сообщений: 7,024
Завершенные тесты: 1
03.11.2010, 16:45     перевод из паксаля в с++ #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
33
34
#include <iostream>
 
int main()
{
    int n, x1, y1, x2, y2, k;
 
    setlocale(LC_ALL, "Rus");
 
    std::cout << "Наименьшее число, представимое двумя различными способами" << std::endl;
    std::cout << "в виде суммы кубов двух натуральных чисел" << std::endl;
 
    n = 3;
 
    while (true)
    {
        n++;
 
        for (y1 = 1; y1 * y1 * y1 <= n; y1++)
            for (x1 = y1; x1 * x1 * x1 <= n; x1++)
                for (y2 = 1; y2 * y2 * y2 <= n; y2++)
                    for (x2 = y2; x2 * x2 * x2 <= n; x2++)
                        if (x1 * x1 * x1 + y1 * y1 * y1 == n && x2 * x2 * x2 + y2 * y2 * y2 == n && (x1 != x2 && y1 != y2))
                        {
                            std::cout << x1 << "^3 + " << y1 << "^3 = " << n << std::endl;
                            std::cout << x2 << "^3 + " << y2 << "^3 = " << n << std::endl;
                            std::cin.get();
 
                            return 0;
                        }
    }
 
    std::cin.get();
    return 0;
}
Кстати, это число Рамануджана-Харди - наименьшее натуральное число, представимое в виде суммы двух кубов двумя разными способами)))
kessi
0 / 0 / 0
Регистрация: 02.10.2010
Сообщений: 19
03.11.2010, 17:28  [ТС]     перевод из паксаля в с++ #3
cпасибо)
Yandex
Объявления
03.11.2010, 17:28     перевод из паксаля в с++
Ответ Создать тему
Опции темы

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