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

Перевод с паскаля на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как очистить ostringstream? http://www.cyberforum.ru/cpp-beginners/thread1303518.html
Есть код: #include <sstream> #include <bitset> #include <fstream> #include <iostream> #include <cstdlib> int main() { std::ifstream ifs("input.dat", std::ifstream::binary);
C++ Составить программу табулирования функции Составить программу табулирования функции Y = 4-x-4 / x * x на интервале с шагом h = 1,0 * (4-1). http://www.cyberforum.ru/cpp-beginners/thread1303502.html
Генерирование сочетаний: объяснить работу программы C++
#include <iostream> using namespace std; // глобальные переменные int m, n; int *C; // k идет от нуля void Comb(int k) { if (k == m + 1) {
C++ Разбить текст на абзацы
Всем добрый вечер. Помогите, пожалуйста, с программой на С++ в VS2013. В общем, задан текст. Предложения текста идут подряд. Преобразовать текст так, чтобы каждое предложение составляло отдельный...
C++ Модифицированный алгоритм Евклида для вычисления НОД http://www.cyberforum.ru/cpp-beginners/thread1303495.html
Модифицированный алгоритм Евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на остаток от деления большего на меньшее до тех...
C++ Как найти минимальный и максимальный элемент последовательности, вводимой с клавиатуры? Как найти минимальный и максимальный элемент последовательности (последовательность вводим с клавиатуры) заканчивающейся 0. Вывести должно минимальный(не считая 0) и максимальный элемент. Например ... подробнее

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

Перевод с паскаля на с++ - C++

17.11.2014, 22:24. Просмотров 166. Ответов 1
Метки (Все метки)

С Паскаля на С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n: Integer;
  d: Longint;
begin
  repeat Write('Введите N [1..31]: '); ReadLn(n); until n in [1..31];
  n:=n div 2*2;
  if n<2 then WriteLn(0)
  else begin
    d:=4; for n:=3 to n do d:=d*2;
    while d>3 do begin Write(' ',d); d:=d div 4; end;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru