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

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

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

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

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

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

Как можно перевести этот код с паскаля в с++? - C++
uses crt; const n=10; var a:array of integer; i,j,p,k:byte; begin clrscr;

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

перевести из паскаля в с++ - C++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; j,i,n:integer; BEGIN clrscr; write('n=');...

Перевести с Паскаля на C++ - C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr; i,j,n,imax,jmax:integer; ...

Перевести с паскаля - C++
program maximum; var a: array of integer; // массив масс предметов max: integer; // масса самого тяжелого предмета i: integer; //...

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

Перевести с паскаля на C++ - C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint; begin readln(n); repeat i:=i+1; ...

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

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...

Перевести с Паскаля на С++ - C++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program ghost; uses crt; type man = Record ...


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

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

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