Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
29 / 29 / 2
Регистрация: 17.12.2012
Сообщений: 493
1

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

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

Author24 — интернет-сервис помощи студентам
Всем привет) есть задачи:
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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.09.2013, 18:07
Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

7
29 / 29 / 2
Регистрация: 17.12.2012
Сообщений: 493
19.09.2013, 05:09  [ТС] 2
Будьте любезны ребята, подскажите)
1
162 / 29 / 3
Регистрация: 17.08.2013
Сообщений: 559
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
29 / 29 / 2
Регистрация: 17.12.2012
Сообщений: 493
20.09.2013, 03:26  [ТС] 4
Ребята, как строки s1 и s1 сделать норм?
0
229 / 76 / 9
Регистрация: 03.02.2013
Сообщений: 311
20.09.2013, 08:01 5
dimakozyr, substr, вроде как)
0
52 / 52 / 14
Регистрация: 06.02.2013
Сообщений: 155
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
29 / 29 / 2
Регистрация: 17.12.2012
Сообщений: 493
20.09.2013, 14:00  [ТС] 7
Благодарю, буду пробовать запускать)
0
29 / 29 / 2
Регистрация: 17.12.2012
Сообщений: 493
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2013, 13:57
Помогаю со студенческими работами здесь

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Перевести из Turbo Pascal в Pascal ABC
Добрый вечер. Необходимо перевести этот код из Turbo Pascal в Pascal ABC. Заранее спасибо. uses...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru