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

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

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

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

30.05.2013, 20:57. Просмотров 211. Ответов 0
Метки нет (Все метки)

Даны строки S, S1 и S2. Заменить в строке S первое вхождение строки S1 на строку S2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{task string36}
var
  s,s1,s2:string;
  p:byte;
begin
  write('Введите строку S=');
  readln(s);
  write('Введите строку S1=');
  readln(s1);
  write('Введите строку S2=');
  readln(s2);
  if pos(s1,s)<>0 then
    begin
      p:=pos(s1,s);
      delete(s,p,length(s1));
      insert(s2,s,p);
      writeln('Полученная строка=',s);
    end
  else
    writeln('Нет вхождений строки s1 в строку s');
  readln;
end.
,,
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2013, 20:57     Можно ли перевести из Паскаля в СИ
Посмотрите здесь:

Как можно перевести фрагмент кода с паскаля в с++? - C++
begin j:=1; {номер первого блока} repeat write('( '); for i:=j to n do if blok=j then write(i, ' '); {если число і из блока...

Как можно перевести этот код с паскаля в с++? - C++
program razbienie_mnozhestwa(input,output); var i,j,k,n:byte;wper:arrayof boolean; sled,pred,blok:arrayof byte; procedure...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

Перевести из паскаля в C++ - C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность вещественных чисел, оканчивающаяся нулём, и...

Перевести с Паскаля на C++ - C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer; begin //... for i:=1 to 15 do if a=0 then ...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

Перевести с Паскаля на Си - C++
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ─ фамилия самого старшего мужчины; ─...

Перевести с Паскаля на С++ - C++
Здравствуйте! Можете помочь, мне надо перевести код с Паскаля на С++ (код паскаля на фото). Вот что получилось у меня. Но код не...

перевести в си++ из паскаля - C++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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