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

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

Войти
Регистрация
Восстановить пароль
 
Alexandr1966
26 / 26 / 1
Регистрация: 17.12.2012
Сообщений: 438
#1

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

17.09.2013, 18:07. Просмотров 366. Ответов 7
Метки нет (Все метки)

Всем привет) есть задачи:
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 нужно)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2013, 18:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Pascal на C++ (C++):

Перевести из Pascal в C++ - C++
Ребят, помогите пожалуйста перевести программы на С++! :( Задача №1 (Схема горнера) program labblablabla; var x,s,k:real; ...

Перевести из Pascal в С++ - C++
Помогите перевести программу на C++ Исходник Pascal: Program Posled; Uses winCRT; Var Eps, AOld, ANew : Real; N : Integer;...

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести с Pascal на C++ - C++
Есть код на Паскале, хотел бы сам перевести его в С++, но подчистую забыл, что такое Паскаль. Помоги, люди добрые) procedure sort(var...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

7
Alexandr1966
26 / 26 / 1
Регистрация: 17.12.2012
Сообщений: 438
19.09.2013, 05:09  [ТС] #2
Будьте любезны ребята, подскажите)
1
dimakozyr
158 / 25 / 1
Регистрация: 17.08.2013
Сообщений: 467
19.09.2013, 08:51 #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 =" нужно разобраться, не помню, как это с си делается.
А еще нужно библиотеку нужно подключить, чтоб русский текст нормально отображался.
Как вариант, можно кириллицей написать
0
Alexandr1966
26 / 26 / 1
Регистрация: 17.12.2012
Сообщений: 438
20.09.2013, 03:26  [ТС] #4
Ребята, как строки s1 и s1 сделать норм?
0
Пёс
228 / 76 / 4
Регистрация: 03.02.2013
Сообщений: 311
20.09.2013, 08:01 #5
dimakozyr, substr, вроде как)
0
rublag
52 / 52 / 4
Регистрация: 06.02.2013
Сообщений: 156
20.09.2013, 08:04 #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");
}
2
Alexandr1966
26 / 26 / 1
Регистрация: 17.12.2012
Сообщений: 438
20.09.2013, 14:00  [ТС] #7
Благодарю, буду пробовать запускать)
0
Alexandr1966
26 / 26 / 1
Регистрация: 17.12.2012
Сообщений: 438
26.09.2013, 13:57  [ТС] #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");
}
0
26.09.2013, 13:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.09.2013, 13:57
Привет! Вот еще темы с ответами:

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...

перевести с pascal в С++ - C++
Помогите пожалуйста написать аналогичную функцию, но на языке C++. (В паскале нифига не шарю) Const MAX_X=80; MAX_Y=24; Type...


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

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

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