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

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

Войти
Регистрация
Восстановить пароль
 
KostyaMoscow
-1 / 2 / 0
Регистрация: 27.02.2013
Сообщений: 95
#1

Перевести из делфи в с++ - C++

03.10.2013, 14:50. Просмотров 250. Ответов 3
Метки нет (Все метки)

В числовой последовательности ищется максимальный элемент и выводится его номер

var s,max:real;
i,k,n:integer;
c:extended;
begin
repeat
write('n = ');readln(n);
until n>=0;
max:=0;k:=0;
if n>0 then
begin
max:=5;k:=1;c:=1;
for i:=1 to n do
begin
c:=c*i;
s:=exp(ln(5)*i)/c;
if s>max then
begin
max:=s;
k:=i;
end;
end;
end;
writeln('max = ',max:0:4,', number = ',k);
readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2013, 14:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести из делфи в с++ (C++):

Перевести с Делфи в С++ - C++
есть код на делфи, помогите перевести на с++ program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=10;

Игра "Чёт-Нечет" на поле NxN, перевести с Делфи на С++ - C++
Разработайте программу моделирующей игры.Два игрока "четный" и "нечетный "по очереди ставят единицы и нулив незанятые позиции поля N на...

перевести в Делфи - Delphi
Доброго времени суток,делфи я только недавно начал учить,вопрос такой Есть такой код в Visual Basic 6 List2.ListIndex = List1.ListIndex...

Перевести с с++ на делфи - Delphi
Помогите, пожалуйста, перевести этот код с с++ на делфи. Это подсчет контрольной суммы CRC16, другие решения просьба не предлагать, нужно...

Перевести на Делфи! - Delphi
Выручите ребята надо вот этот код C# for (int j = right; j > 0; j--) { if (mass > mass) ...

перевести на делфи - Delphi
ПОмогите Перевести uses crt; const n=5; var a,b:array of integer; i,k,j:integer; begin for i:=1 to n...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
l2ded
80 / 68 / 11
Регистрация: 10.05.2011
Сообщений: 284
03.10.2013, 17:14 #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
#include <iostream>
 
typedef long double extended;
 
int main(void){
    double s,max;
    int i,k,n;
    extended c;
    max=n=k=0;
 
    do {
        std::cout<<"n=";
        std::cin>>n;
    } while(n<0);
 
    if (n>0){
    (max=5,c=k=1);
    for(i=1;i<=n;i++){
        c*=i;s=pow(5.,i)/c;
            if (s>max) (max=s;k=i);
    }
 
    }
std::cout<<"max="<<max<<", number="<<k<<std::endl;
return 0;
}
вроде похоже
0
WilFred
31 / 26 / 3
Регистрация: 11.03.2012
Сообщений: 71
03.10.2013, 17:19 #3
KostyaMoscow,
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 <vcl.h>
//#include <math.h>
#include <iostream.h>
#pragma hdrstop
 
#include <tchar.h>
 
using namespace std;
 
//---------------------------------------------------------------------------
 
#pragma argsused
 
int _tmain(int argc, _TCHAR* argv[])
{
    float x, max, n, k=1;
    cout <<"Введите кол-во элементов последовательности: ";
    cin >> n;
    cout <<"Введите последовательность: ";
    cin >> max;
    for(int i=1; i<n; i++)
    {
        cin>>x;
        if(x>max)
        {
            max = x;
            k++;
        }
    }
 
    cout <<"Max = " << max << " его номер " << k << endl;
    system("PAUSE");
    return 0;
}
0
MrGluck
Модератор
Эксперт CЭксперт С++
7239 / 4407 / 642
Регистрация: 29.11.2010
Сообщений: 11,927
03.10.2013, 17:33 #4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
#include <limits>
 
int main()
{
    int x, max = std::numeric_limits<int>::min(), max_number = 0, number = 0;
    while (std::cin >> x)
    {
        number++;
        if (x > max)
        {
            max = x;
            max_number = number;
        }
    }
    std::cout << "Max is " << max << " with number " << max_number << std::endl;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2013, 17:33
Привет! Вот еще темы с ответами:

Перевести из Делфи - Java SE
Помогите перевести из Делфи в Java var y,yy:real; eps: double; begin eps:=2.7182 ; y:=4; repeat yy:=y; ...

Перевести с С++ на Делфи - Delphi
Перевести с С++ на Делфи: int NOD(int a,int b) { while (a!=0 &amp;&amp; b!=0) { if (a&gt;b) a=a%b; else b=b%a; } if...

Перевести из с++ в Делфи! - Delphi
#include&lt;iostream&gt; using namespace std; main() { int n,m; int l,i,j,q; cin » n; cin » m; if(n&gt;m) q=m+(n-m);

Перевести из делфи в си# - C#
Программа, в числовой последовательности вычисляет максимальный элемент и выводит его на экран. Сделать с# консолевый,без форм var...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
03.10.2013, 17:33
Ответ Создать тему
Опции темы

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