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

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

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

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

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

Кто может перевести из паскаля в с++? - C++
uses crt; var i,j,n,k: integer; begin read(n); for i:=1 to n div 2 do for j:=1 to n div 2 do if (i*i*i)+(j*j*j)=n...

Кто может преобразовать код из Паскаля на С++? - C++
111

кто может преобразовать код из Паскаля на С++? выручайте - C++
program Nu_pogodi; //3-3 Добавляем модуль Timers uses GraphABC, Timers; //3-4 Начальная скорость игры const ...

кто может перевести код в с++ - C++
нужно перевести код в С++ В с++ вообще не понимаю ,а вот в паскале набрасал код! кому не сложно помогите пожалуйста uses crt; var...

Может кто перевести эту прогу,для codeblocks - C++
#include "stdafix.h" #include <iostream> using namespace std; int _tmain(int argc, _TCHAR* argv) { float s,t; long...

Перевести из паскаля на c++ - C++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if (sqrt(x)+sqrt(y)<=4) AND NOT((...

1
MrGluck
Модератор
Эксперт CЭксперт С++
7525 / 4663 / 704
Регистрация: 29.11.2010
Сообщений: 12,738
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.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2013, 14:54
Привет! Вот еще темы с ответами:

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

Перевести с Паскаля на С++ - C++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная матрица:'); for i:=1 to n do ...

Перевести из Паскаля на С++ - C++
var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць'); readln (m); case m of 1, 3, 5, 7,...


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

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

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