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

скажите как переделать задачу из Pascal в Си - C++

Восстановить пароль Регистрация
 
Rakshasa
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 21
17.01.2014, 18:11     скажите как переделать задачу из Pascal в Си #1
Вот условие:

Найти во входной строке самую внутреннюю пару скобок {...} и переписать в выходную строку содержащиеся между ними символы. Во входной строке фрагмент удаляется.
Вот её решение в Pascal:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
var s,s1:string;
    n,i,j,k,i1,i2:byte;
    f:boolean;
begin
clrscr;
writeln('Введите строку, содержащую символы во вложенных фигурных скобках:');
readln(s);
n:=length(s);
i:=1;
i1:=0;//первая скобка
i2:=0;//вторая
f:=false;//пока не нашли пару
while (i<n)and not f do
if s[i]='{' then//если откр. ск.
 begin
  j:=i+1;//смотрим впереди
  k:=0;//кол. символов
  while (j<n) and not(s[j] in ['{','}']) do//пока не конец и не скобка
   begin
    k:=k+1;//считаем
    j:=j+1;//вперед
   end;
  if s[j]='{' then i:=i+k//если опять откр., то перешагиваем
  else if s[j]='}' then//если закр.
   begin
    f:=true;//фиксируем пару внутри
    i1:=i;//первая
    i2:=j;//вторая
   end;
 end
else i:=i+1;//если не откр. ск., то пропускаем
if not f then//если нет пары
 begin
  writeln('В строке нет пары фигурных скобок');
  readln;
  exit
 end;
if i2-i1=1 then writeln('Между самыми внутренними скобками нет символов')
else//если есть пара и символы внутри
 begin
  s1:='';//строка внутри
  for i:=i2-1 downto i1+1 do//идем от второй скобки к первой
   begin
    s1:=s[i]+s1;//пишем символы в начало строки
    delete(s,i,1);//удаляем их
   end;
  writeln('Текст в скобках:');
  writeln(s1);
  writeln('Преобразованная строка:');
  write(s);
 end;
readln
end.
Как мне её переделать для Си? И посоветуйте пожалуйста хороший самоучитель!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2014, 18:11     скажите как переделать задачу из Pascal в Си
Посмотрите здесь:

помогите переделать задачу. C++
C++ Скажите есть ли в с++ альтернатива оператору case в pascal
Переделать задачу, используя указатели вместо индексов(С++) C++
Переделать задачу, с использованием <string.h> C++
C++ Переделать задачу (убрать генератор случайных чисел)
C++ Переделать задачу под бинарные файлы
как переделать задачу что б были указатели ? C++
Переделать задачу с использованием функций или процедур C++

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

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

Текущее время: 16:31. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru