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

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

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

Переделывание кода из паскаля в С++ - C++

19.11.2017, 01:15. Просмотров 45. Ответов 0
Метки нет (Все метки)

Ребята помогите пожалуйста переделать данный код в С/С++ (по возможности избегать использование функций strlen и тд):
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
30
31
32
33
34
35
var
  CountSpace, CountLit: Integer;
  Index, i: Byte;
  Str: String;
begin
  CountSpace:=0; CountLit:=0;
  repeat
    write('Строка: ');
    readln(Str);
    if Str[1] = '!' then
      writeln('Первый символ - "!"!')
  until Str[1] <> '!';
  for i:=1 to Length(Str) do
    if Str[i] = '!' then
    begin
      Index:=i;
      Break;
    end;
  writeln('Первый "!" встречается на позиции: ', Index);
  write('Строка до первого "!": ');
  for i:=1 to Index do
  begin
    write(Str[i]);
    if Str[i] = ' ' then Inc(CountSpace);
    if Str[i] = 'ю' then Inc(CountLit);
  end;
  writeln;
  writeln('Кол-во пробелов: ', CountSpace);
  if CountLit <> 0 then
    writeln('Буква "ю" входит в последовательность!')
  else writeln('Буква "ю" не входит в последовательность!');
  if (pos('ш', Str)<>0) and (pos('и', Str)<>0) and (pos('н', Str)<>0) and (pos('а', Str)<>0) then
    writeln('В последовательности есть все буквы,входящие в слово "шина"!')
  else writeln('В последовательности не все буквы, входящие в слово "шина"!');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2017, 01:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переделывание кода из паскаля в С++ (C++):

Перевод кода с Паскаля на С++ - C++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...

Перевод кода с паскаля в С++ - C++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода с Паскаля на С++ - C++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода из Паскаля в С++ - C++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

Перевод кода из Паскаля в C++ - C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

Перевод кода из Паскаля в С++ - C++
uses crt,graph; type TPoint=record x,y:integer; end; var p1,p2,p3,p4:arrayof TPoint; gd,gm:integer; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2017, 01:15
Привет! Вот еще темы с ответами:

Перевод кода из паскаля в с++ - C++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x, y); if ((x &lt; 0) and (y &lt; 0)) then begin ...

Перевод кода из паскаля в c++ - C++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат. const n=30; ...

Перевод кода с паскаля на С++ - C++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода с Паскаля на C++ - C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer; ...


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

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

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