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

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

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

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

03.10.2013, 14:50. Просмотров 244. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2013, 14:50     Перевести из делфи в с++
Посмотрите здесь:

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

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

С делфи на С++ - C++
Кто-нибудь может перевести программу с делфи на С++? Или написать аналог по заданию: "Последовательность 011212201220200112… строится...

Из Делфи в С++ - C++
Может ли кто то помочь перевести программу?Буду очень благодарна любой помощи) unit Unit1; interface uses Windows,...

Перевод из делфи в с - C++
В заданной строке удалить символ двоеточие (:) и подсчитать количество удаленных символов uses crt; var a:string; kol:integer;...

Переход с делфи - C++
:) Здравствуйте! решил освоить С++ перехожу на него с Делфи. вопрос такой-как записать в С++ значение из TextBox в какую-либо...

Перевод кода Делфи - C++
Всем привет!Нужна ваша помощь.Надо перевести этот код с делфи на с++ Само задание "Напишите программу «Угадайка». Компьютер случайным...

stringgrid. аналог делфи. - C++
помогите, пожалуйста, мне вот это написать на с++: procedure TForm2.sgSelectCell(Sender: TObject; ACol, ARow: Integer; var...

переход с делфи на цпп - C++
здравствуйте ув. товарищи хотелось что бы вы подсказали какие нибудь ссылки с базовыми примерами для цпп т.к. я даже не знаю как...

Аналог модуля Делфи в С++ - C++
Соббсно, в теме и есть вопрос. Есть модуль в делфях, а что есть аналогичное в С++??? . У нас преподают паскаль и тут задача поступила...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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;
}
вроде похоже
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;
}
MrGluck
Модератор
Эксперт CЭксперт С++
6963 / 4134 / 586
Регистрация: 29.11.2010
Сообщений: 10,959
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;
}
Yandex
Объявления
03.10.2013, 17:33     Перевести из делфи в с++
Ответ Создать тему
Опции темы

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