Перевод с Pascal на C++

@Emilia_B · Регистрация: 11.06.2021

Author24 — интернет-сервис помощи студентам

Добрый день. Помогите, пожалуйста, перевести этот код с Паскаля на С++

Pascal

program Param43;
type
 St=String;
 SArray= array [1..10] of string;
 
var
 S:St;
 i,N:integer;
 W:SArray;
 
function DeCompressStr(S:St):St;
var
 i,i2,Num,error:integer;
 Stemp,SNum:String;
 C:Char;
begin
 i:=0;
 Result:='';
 While i<=length(s) do
  begin
   inc(i);
   C:=S[i];
   if (i=length(S)) or (S[i+1]<>'{') then Num:=1
    else
     begin
      inc(i,2);
      SNum:='';
      while S[i]<>'}' do
       begin
        SNum:=SNum+S[i];
        inc(i);
       end;
      val(SNum,Num,error);
     end;
    for i2:=1 to Num do result:=result+C;
  end;
end;
 
begin
 for i:=1 to 5 do
  begin
   Write('S:');
   Readln(S);
   Writeln(DeCompressStr(S));
  end;
end.

Может, есть какие-либо конвертеры перевода с Паскаль? Буду благодарна, если подскажете

@ПерС · 20.06.2021, 15:12

Напишите условие задачи

@Emilia_B · 20.06.2021, 16:48 **[ТС]**

Написать функцию DeCompressStr() строкового типа, восстанавливающую строку, сжатую процедурой CompressStr. Параметр содержит сжатую строку; восстановленная строка является возвращаемым значением функции. С помощью функции DeCompressStr восстановить пять данных сжатых строк.

@ПерС · 21.06.2021, 07:50

То, что Вы написали, это, к сожалению, не условие, так как не описан ни формат данных, ни ограничения.
Но так как задача известная, то реализацию найти несложно.
Программа по ссылке запустится в новой Studio, если в самом начале файла указать

C++

1 2	#define _CRT_SECURE_NO_WARNINGS #include <Windows.h>

а начало main изменить на

C++

int main()
{
 SetConsoleCP (1251); SetConsoleOutputCP(1251); //чтобы была кириллица, а не крокозябры
 //далее по тексту

Так как ввод делается через шаблон %s, во вводимой строке не должно быть пробелов

Код

Введите нормальную cтроку: фыыыыыыыыыыва,прооооооолдик...асисссссяй!
Сжатая строка: фы{10}ва,про{7}лдик...асис{5}яй!
Восстановленная строка: фыыыыыыыыыыва,прооооооолдик...асисссссяй!

@ПерС 585 / 488 / 371 Регистрация: 05.11.2013 Сообщений: 1,265 Записей в блоге: 6
	20.06.2021, 15:12	2
	Напишите условие задачи 0

@Emilia_B 0 / 0 / 0 Регистрация: 11.06.2021 Сообщений: 14
	20.06.2021, 16:48 [ТС]	3
	Написать функцию DeCompressStr() строкового типа, восстанавливающую строку, сжатую процедурой CompressStr. Параметр содержит сжатую строку; восстановленная строка является возвращаемым значением функции. С помощью функции DeCompressStr восстановить пять данных сжатых строк. 0

	21.06.2021, 07:50

Опции темы

Перевод с Pascal на C++

Решение