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

перевод кода из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Inline функции http://www.cyberforum.ru/cpp-beginners/thread405665.html
Друзья!Инлайн функции могу быть определены только внтури класса?Или могут быть определены вне класса?Если вне,то как?Спасибо!
C++ Вывести символ на экран, если он является печатаемым и видимым Вывести символ на экран, если он является печатаемым и видимым http://www.cyberforum.ru/cpp-beginners/thread405659.html
Найти количество элементов в массиве, имеющих значение выше заданного C++
Найти количество элементов в массиве, имеющих значение выше заданного
C++ Проверить на ошибки класс "Двусвязный список"
Вот задание 1. Реализовать (на основе лекционного материала) класс String, который представляет строку символов произвольной длины (отчет - реализация класса). 2. Разработать класс двусвязный список (DoubleList), содержащей строки String. Класс должен иметь интерфейс АТД который включает методы для добавления, удаления, поиска элементов в соответствии с логикой работы структуры данных, а также...
C++ Нужна небольшая помощь начинающему http://www.cyberforum.ru/cpp-beginners/thread405638.html
вот код с учебника на проверку является ли число простым.Но я не могу понять откуда берется переменная n ? до какого значения проверяется цикл если n это только sqrt((double)n) , а от какого число не понятно , а в книге не написано((( #include<conio.h> #include<iostream> #include<locale> #include<math.h> using namespace std;
C++ Нужно сделать программу: В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. сумму положительных элементов массива; 2. произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. Упорядочить элементы массива по убыванию. P.S. Заранее спасибо! подробнее

Показать сообщение отдельно
Elena)))
3 / 3 / 1
Регистрация: 11.10.2011
Сообщений: 48

перевод кода из Pascal в C++ - C++

12.12.2011, 21:44. Просмотров 428. Ответов 1
Метки (Все метки)

помогите, пожалуйста, перевести этот код в C++

Delphi
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
program chisla;
uses Crt;
const n = 5;
var
 y: real;
 flag: boolean;
 i,j,x: integer;
  procedure Analysis;
  begin
   for i:=1 to n do
    begin
     flag:=true;
     x:=random(36);
     write('x',i,' = ',x,'   ');
     for j:=2 to x-1 do
      if (x mod j) = 0 then flag:=false;
     if flag = true
      then
       begin
        y:=(power(2,2*x+1)+1)/3;
        writeln('y = ',y:10:4)
       end
      else writeln('число ',x,' не простое.');
    end;
  end;
 
begin
  ClrScr;
  Randomize;
  Analysis;
end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru