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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ fprintf http://www.cyberforum.ru/cpp-beginners/thread185769.html
fprintf Вопрос - данная ф-ция перезаписывает весь файл? То есть сначала очищает, а после записывает или же добавляет запись к концу?
C++ Циклический алгоритм (цикл с параметром - FOR ) Здравствуйте. Вот у меня такая задача но я не знаю как задается прогрессия Помогите пожалуйста. Для геометрической прогрессии 2, 6, 18, 54, 162 ... определить первые n членов этой прогрессии. http://www.cyberforum.ru/cpp-beginners/thread185768.html
C++ Хранение в контейнере deque целых чисел и проверка основных операций
Написала код: #include "stdafx.h" #include <iostream> #include <deque> using namespace std; void show (const char *str, const deque<int> &Dq) { cout << str << ":" << endl;
C++ Подсчитать количество символов в самой длинной группе.
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе. Помогите, пожалуйста, а то что-то ничего не получается((( вот такой мой вариант int...
C++ Вычисление Sinx/x разложением в ряд http://www.cyberforum.ru/cpp-beginners/thread185736.html
Всем доброго время суток. Вторые сутки бьюсь, задали написать на C++ программу вычисление Sinx/x разложением в ряд: Sinx/x = 1 – (x^2)/3! + (x^4)/5! + … = ∑((-1)^n * x^2n)/(2n+1)! Я сделал по...
C++ Прокомментировать код Добрый день. Для тех у кого времени хватает и нечем заняться, просьба прокомментировать след. код : // A simple computerized telephone directory. #include <iostream> #include <cstdio> using... подробнее

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

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

03.11.2010, 16:24. Просмотров 405. Ответов 2
Метки (Все метки)

люди помогите пожалуйста! сдача скоро.


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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru