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

кто может перевести на С++ с Паскаля - C++

Восстановить пароль Регистрация
 
tanyushka_p
-1 / 0 / 0
Регистрация: 05.06.2013
Сообщений: 17
19.06.2013, 13:25     кто может перевести на С++ с Паскаля #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}
var s,sl:string;
    i,k:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Слово:');
readln(sl);
k:=0;
for i:=1 to length(s) do{идем по строке}
if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова
а перед ним разделитель или начало строки}
and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}
and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}
then k:=k+1;{считаем}
write('Слово ',sl,' встречается ',k,' рз.');
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2013, 13:25     кто может перевести на С++ с Паскаля
Посмотрите здесь:

может кто нить перевести в С++ C++
кто может перевести код в с++ C++
C++ Перевести с паскаля на Си++
C++ Перевести с Паскаля на Си
Кто может перевести из паскаля в с++? C++
Перевести из паскаля на c++ C++
C++ Может кто перевести эту прогу,для codeblocks
Перевести из паскаля в c++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MrGluck
Ворчун
Эксперт С++
 Аватар для MrGluck
4927 / 2670 / 243
Регистрация: 29.11.2010
Сообщений: 7,429
19.06.2013, 14:54     кто может перевести на С++ с Паскаля #2
Паскаль не знаю.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <sstream>
#include <string>
#include <algorithm>
#include <iterator>
 
int main()
{
    typedef std::istream_iterator<std::string> input_str;
    std::string str, word;
    std::cout << "Enter string: ";
    std::getline(std::cin, str);
    std::cout << "Enter word: ";
    std::cin >> word;
    std::istringstream ist(str);
 
    std::cout << "Word " << word << " found "
              << std::count(input_str(ist), input_str(), word) << " times.\n";
}
Если много разделителей - strtok, либо оперировать методами и алгоритмами с std::string.
Yandex
Объявления
19.06.2013, 14:54     кто может перевести на С++ с Паскаля
Ответ Создать тему
Опции темы

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