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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
bossforU
0 / 0 / 0
Регистрация: 30.11.2010
Сообщений: 22
#1

Нужна помощь программистов которые смогу переписать код из Паскаль в С++ - C++

22.10.2012, 17:03. Просмотров 264. Ответов 3
Метки нет (Все метки)

Добрый день!
Нужна помощь программистов которые смогу переписать код из Паскаль в С++, поможет кто ?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s, a, i, r, k, m:int64;
begin
        readln (a, m);
        s:=0;
        i:=a;
        s:=s+i;
        r:=m-s; k:=1;
        while r div i<>2 do
        begin
             i:=i+1;
             s:=s+i;
             r:=m-s;
             inc(k);
        end;
        writeln (k+1);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2012, 17:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужна помощь программистов которые смогу переписать код из Паскаль в С++ (C++):

Переписать код с паскаль на С++ - C++
это 1 program 1; var a,b:array of real; i,n:integer; begin readln(n); setlength(a,n);

Переписать код с паскаль на С++ - C++
Program 1; Var mas:array of real; i,m,n,kolvo:integer; shar,v,r:real; Begin // Задаем рандомно матрицу с элементами // ...

Нужно переписать код в паскаль - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace std; bool simple(int x) { for (int i=2; i&lt;=(x/2);i++) { if...

Паскаль нужна помощь - Pascal
Помогите пожалуйста с задачей в Паскале, я учусь на программиста, нам задают задачи, я впринцепе всё понимаю, но некоторые хоть убей, даже...

Срочно нужна помощь в решении задвч в среде паскаль - Pascal
вот задачи желательно их решить через процедуры и функции:(заранее благодарю): 1)Умножение двух заданных матриц 2)Заданы две матрицы...

Нужно переписать код на С# с Паскаль - C#
Вот код на Паскале. var xx,yy:array of real; a1,b1,c1,st,s_mn:real; i,n:integer; procedure line(x0,y0,x,y:real;var l:real); ...

3
Петррр
5965 / 3402 / 337
Регистрация: 28.10.2010
Сообщений: 5,926
22.10.2012, 17:08 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
 
int main()
{
    int s, a, i, r, k, m;
    std::cin >> a;
    std::cin >> m;
    s = 0;
    i = a;
    s += i;
    r = m - s;
    k = 1;
    while (r % i != 2)
    {
        i++;
        s += i;
        r = m - s;
        k++;
    }
    std::cout << (k + 1) << std::endl;
}
0
Vourhey
Почетный модератор
6485 / 2259 / 123
Регистрация: 29.07.2006
Сообщений: 12,635
22.10.2012, 17:10 #3
Цитата Сообщение от Петррр Посмотреть сообщение
r % i
div, вроде бы обычное деление, не остаток.
1
Петррр
5965 / 3402 / 337
Регистрация: 28.10.2010
Сообщений: 5,926
22.10.2012, 17:16 #4
C++
13
while (r / i != 2)
0
22.10.2012, 17:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2012, 17:16
Привет! Вот еще темы с ответами:

Нужно код делфи переписать на паскаль - Pascal ABC
Дан двухмерный массив размером nxn, заполненный целыми числами а) все его отрицательные элементы записать в одномерный массив б) все...

Срочно нужна помощь - множества! В алфавитном порядке вывести на экран все гласные, которые входят в каждое N-ое слово. - Pascal
Вводится не пустая строка.Слова в ней разделены пробелом или запятами.В алфавитном порядке вывести на экран все гласные,которые входят в...

Нужна команда программистов - C#
Имею некоторый опыт в написании компиляторов. Правда давно их не писал. Есть идея - компилятор для Питона. Одному писать в лом. Нужны...

Нужна консультация классных программистов ( срочно ) - Visual Basic
Мне надо: 1.Составить программу на вычисление элемента F(x,y) при x,y 2.F(x,y) = (cos(2x) + 3sin(x) - 2)* tg(y))/корень из 187*пи^2 +...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru