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

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

Войти
Регистрация
Восстановить пароль
 
tanyushka_p
-1 / 0 / 0
Регистрация: 05.06.2013
Сообщений: 17
#1

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

19.06.2013, 13:25. Просмотров 207. Ответов 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++ Может кто перевести эту прогу,для codeblocks
C++ Перевести с Паскаля на С++
Перевести с паскаля C++
Перевести из Паскаля в с++ C++
Перевести из паскаля в с++ C++
C++ перевести из паскаля в с++
C++ перевести в си++ из паскаля
Перевести из паскаля в C++ C++
Перевести с паскаля на си C++
Перевести из паскаля в c++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MrGluck
Модератор
Эксперт CЭксперт С++
6969 / 4140 / 588
Регистрация: 29.11.2010
Сообщений: 10,978
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     кто может перевести на С++ с Паскаля
Ответ Создать тему
Опции темы

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