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

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

Войти
Регистрация
Восстановить пароль
 
gepatozz
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 4
#1

Из Pascal в C++ - C++

14.12.2011, 21:11. Просмотров 277. Ответов 2
Метки нет (Все метки)

Помогите пжлста написать тоже самое в С++

Программа находит слова, начинающиеся и заканчивающиеся на одну и ту же букву.

Pascal
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
program string_12;
 
var sl,s:string; i:integer;
 
begin write('введите строку:'); readln(s);
 
sl:='';i:=1;s:=s+'.';
 
repeat
 
{for i:=1 to length(s) do}
 
if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
 
then begin if sl[1]=sl[length(sl)] then writeln(sl);
 
sl:='';
 
end
 
else sl:=sl+s[i];
 
i:=i+1
 
until i>length(s);
 
readln;
 
end.
 Комментарий модератора 
Используйте теги форматирования кода!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2011, 21:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из Pascal в C++ (C++):

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

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

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

2
YouDoItWrong
46 / 46 / 7
Регистрация: 29.10.2011
Сообщений: 154
14.12.2011, 21:33 #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
27
#include <iostream>
#include <string>
 
using namespace std;
 
int main() {
    string sl, s;
    int i;
    cout << "Vvedite stroku" << endl;
    cin >> s;
    sl.clear(); i = 1; s += '.';
    do {
        for( i = 0; i < s.length(); i++) {
            if ((s[i]==' ') || (s[i]==',') || (s[i]==';') || (s[i]=='.') || (s[i]=='!') || (s[i]=='?')) {
                if( sl[0] == sl[sl.length()-1]) {
                    cout << sl << endl;
                    sl.clear();
                }
            } else {
                sl = sl + s[i];
            }
        }
        i++;
    } while( i > s.length() );
    cin.get();
    return 0;
}
как то так помойму.
1
go
Эксперт С++
3586 / 1366 / 128
Регистрация: 16.04.2009
Сообщений: 4,528
14.12.2011, 21:38 #3
Цитата Сообщение от gepatozz Посмотреть сообщение
until i>length(s);
Цитата Сообщение от YouDoItWrong Посмотреть сообщение
} while( i > s.length() );
Не вникал особо, но знак по-моему менять надо
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2011, 21:38
Привет! Вот еще темы с ответами:

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

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal - Pascal ABC
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Нужен Turbo pascal или Free pascal на русском - Pascal
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo pascal, а установлен pascalABC, в книге...

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


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

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

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