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

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

Войти
Регистрация
Восстановить пароль
 
Lex93
8 / 8 / 1
Регистрация: 18.02.2013
Сообщений: 56
#1

Перевести код с Pascal - C++

18.02.2013, 15:15. Просмотров 350. Ответов 6
Метки нет (Все метки)

есть код на Pascale,перевести на СИ
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2013, 15:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код с Pascal (C++):

Перевести код с Pascal на C++ - C++
Здравствуйте, дана задача : "Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый...

Перевести код с C++ в Pascal - C++
#include <iostream> #include <cmath> #include <vector> #include <numeric> using namespace std; int main() { ...

Перевести код с Pascal - C++
program lab4; var i,j,jmax:integer; a:array of real; b:array of real; k,max,s:real; begin for i:=1 to 5 do for j:=1 to 4 do...

Перевести код из Pascal в C++ - C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат. Помогите плиз. ...

Перевести код с Pascal - C++
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); readln(n); f:=0; ...

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

6
kuli4ok
31 / 31 / 3
Регистрация: 10.10.2012
Сообщений: 88
18.02.2013, 15:18 #2
Очень информативно. Приведите код на pascal или текст задачи.
0
Lex93
8 / 8 / 1
Регистрация: 18.02.2013
Сообщений: 56
18.02.2013, 15:25  [ТС] #3
Вот код
0
Вложения
Тип файла: docx Код на паскале.docx (10.2 Кб, 5 просмотров)
Lex93
8 / 8 / 1
Регистрация: 18.02.2013
Сообщений: 56
18.02.2013, 15:27  [ТС] #4
дана строка на английском,
В строке определить самую длинную последовательность символов, стоящих по возрастанию.

Входные данные:
abc012#*&defg346dezxc

Выходные данные:
defg
0
kuli4ok
31 / 31 / 3
Регистрация: 10.10.2012
Сообщений: 88
18.02.2013, 16:26 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Без создания дополнительной строки для результата:
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
35
#include <iostream>
 
using namespace std;
 
int main()
{
    char *buff = new char[512];
    cout << "Введите последовательность: ";
    cin >> buff;
    int max = 0, max_save = 0;
    int i_save, i_save_max;
    for(int i=0; buff[i]!='\0'; i++)
    {
        if( ( ((int)buff[i]) - ((int)buff[i+1]) )== (-1) )
        {
            if(max==0)
                i_save = i;
            max++;
        }
        else
        {
            if(max>=max_save)
            {
                i_save_max = i_save;                                                                                           
                max_save = max;
            }
            max = 0;
        }
    }
    for(int i=i_save_max; i<=(max_save+i_save_max); i++)
        cout << buff[i];
    cout << "\n";
    delete [] buff;
    buff = NULL;
}
0
Lex93
8 / 8 / 1
Регистрация: 18.02.2013
Сообщений: 56
18.02.2013, 16:46  [ТС] #6
Спасибо
1
kuli4ok
31 / 31 / 3
Регистрация: 10.10.2012
Сообщений: 88
18.02.2013, 17:09 #7
Для спасибо есть кнопочка.
1
18.02.2013, 17:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2013, 17:09
Привет! Вот еще темы с ответами:

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a&lt;(b+c) then Fun:=true else Fun:=false; end; var ...

Перевести код с С++ в С и Pascal - C++
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите: #include...

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...


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

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

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