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

Перевести с Pascal на C++ - C++

Восстановить пароль Регистрация
 
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 425
17.09.2013, 18:07     Перевести с Pascal на C++ #1
Всем привет) есть задачи:
1) Поменять местами в каждом слове первую половину слова со второй.

Есть решение этих задач, но нужно мне помочь перевести их на C или C++. Помогите пожалуйста, очень нужно) коды ниже:

1 задача:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program OverLord;
 
uses crt;
var s,s1,s2:string;
    i:integer;
BEGIN
  clrscr;
  repeat
    clrscr;
    writeln('Напечатайте exit для выхода из программы ');
    writeln('Результат перестановки: ',s2,s1);
    write('Введите слово: ');
    readln(s);
    s1:=copy(s,1, length(s) div 2);
    s2:=copy(s, (length(s) div 2) +1, length(s)-length(s1));
  until s='exit';
END.
Или может как то по другому эти задачи можно правильно решить, буду очень признаетелен если поможете)))

Добавлено через 6 минут
реализовать в консольном приложении VS 2008 нужно)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2013, 18:07     Перевести с Pascal на C++
Посмотрите здесь:

C++ Перевести из Pascal в С++
C++ перевести с pascal в С++
C++ Перевести из PASCAL в С++
C++ перевести с Pascal на С++
Перевести с pascal на c++ C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 425
19.09.2013, 05:09  [ТС]     Перевести с Pascal на C++ #2
Будьте любезны ребята, подскажите)
dimakozyr
 Аватар для dimakozyr
157 / 24 / 1
Регистрация: 17.08.2013
Сообщений: 461
19.09.2013, 08:51     Перевести с Pascal на C++ #3
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
#include <string>
using namespace std;
 
int main() {
    string s, s1, s2;
    int i;
    do {
        cout << "Напечатайте exit для выхода из программы \n" << endl;
        cout << "Результат перестановки: " << s2 << ", " << s1 << endl;
        cout << "\nВведите слово: ";
        cin >> s;
        //s1 = copy(s,1, length(s) div 2);
        //s2 = copy(s, (length(s) div 2) +1, length(s)-length(s1));
    } while(s != "exit");
    return 0;
}
Вот, только насчет строк "s1 =" и "s2 =" нужно разобраться, не помню, как это с си делается.
А еще нужно библиотеку нужно подключить, чтоб русский текст нормально отображался.
Как вариант, можно кириллицей написать
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 425
20.09.2013, 03:26  [ТС]     Перевести с Pascal на C++ #4
Ребята, как строки s1 и s1 сделать норм?
Пёс
 Аватар для Пёс
228 / 76 / 4
Регистрация: 03.02.2013
Сообщений: 311
20.09.2013, 08:01     Перевести с Pascal на C++ #5
dimakozyr, substr, вроде как)
rublag
52 / 52 / 4
Регистрация: 06.02.2013
Сообщений: 156
20.09.2013, 08:04     Перевести с Pascal на C++ #6
на с можно так:
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
#include <stdio.h>
#include <string.h>
#define MAXLEN 1024
 
char* copy(char *src, unsigned int index, unsigned int len);
 
int main()
{
    char s[MAXLEN], *s1="", *s2="";
    do
    {
        printf("Напечатайте exit для выхода из программы \n");
        printf("Результат перестановки: %s%s\n", s2, s1);
        printf("Введите слово: ");
 
        fgets(s, MAXLEN, stdin);
        if(s[strlen(s)-1] == '\n') s[strlen(s) - 1] = 0;
 
        strncpy(s1, s, strlen(s)/2);
        strncpy(s2, &s[strlen(s)/2], strlen(s)-strlen(s1));
 
    } while(strcmp(s, "exit"));
    return 0;
}
а на c++ так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    string s, s1, s2;
    do
    {
        cout << "Напечатайте exit для выхода из программы" << endl;
        cout << "Результат перестановки: " << s2 << s1 << endl;
        cout << "Введите слово: ";
        cin >> s;
        s1 = s.substr(0, s.length()/2);
        s2 = s.substr(s.length()/2, s.length()-s1.length());
    } while(s != "exit");
}
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 425
20.09.2013, 14:00  [ТС]     Перевести с Pascal на C++ #7
Благодарю, буду пробовать запускать)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2013, 13:57     Перевести с Pascal на C++
Еще ссылки по теме:

Перевести с Pascal на С++ C++
Перевести с Pascal на C++ C++
C++ Перевести из Pascal в C++

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

Или воспользуйтесь поиском по форуму:
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 425
26.09.2013, 13:57  [ТС]     Перевести с Pascal на C++ #8
А можно прокомментировать код программы, что каждая строка делает, если не сложно)
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    string s, s1, s2;
    do
    {
        cout << "Напечатайте exit для выхода из программы" << endl;
        cout << "Результат перестановки: " << s2 << s1 << endl;
        cout << "Введите слово: ";
        cin >> s;
        s1 = s.substr(0, s.length()/2);
        s2 = s.substr(s.length()/2, s.length()-s1.length());
    } while(s != "exit");
}
Yandex
Объявления
26.09.2013, 13:57     Перевести с Pascal на C++
Ответ Создать тему
Опции темы

Текущее время: 05:43. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru