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

можно переписать с паскаля на с++ - C++

Восстановить пароль Регистрация
 
киракира
 Аватар для киракира
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 14
17.04.2012, 12:38     можно переписать с паскаля на с++ #1
Следует учесть, что устройство NPRx8086 читает, пропуская, все пробелы и знаки препинания. Однако,написана та процедура, которая удаляет из текста все пробелы и знаки препинания.
Исходные данные
Содержит всего одну строчку (не длиннее 1000 символов), содержащую только буквы латинского алфавита (все пробелы и знаки препинания из строки уже удалины).
Результат
Максимальная по длине подстрока, читающаяся одинаково в обоих направлениях. Если максимальных по длине подстрок больше одной, вывести самую левую из них.
Пример
исходные данные


ThesampletextthatcouldbereadedthesameinbothordersArozaupalanalapuazorA

результат

ArozaupalanalapuazorA





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
Var
  S,R: Array[1..1000] of Char;
  I,J,N,ML,L: Integer;
  T: Boolean;
Begin
{  Assign(Input,'Input.txt');
  Reset(Input);}
  FillChar(S,SizeOf(S),32);
  FillChar(R,SizeOf(R),32);
  N:=0;
  While not EOF do begin
    Inc(N);
    Read(S[N]);
  End;
  For I:=1 to N do
    For L:=ML to N-I+1 do begin
      T:=True;
      For J:=1 to (L div 2) do
        If S[I+J-1]<>S[I+L-J] then begin
          T:=False;
          Break;
        End;
      If T and (L>ML) then begin
        ML:=L;
        For J:=1 to ML do
          R[J]:=S[I+J-1];
      End;
    End;
  For I:=1 to ML do
    Write(R[I]);
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2012, 12:38     можно переписать с паскаля на с++
Посмотрите здесь:

Переписать з паскаля на С C++
C++ Переписать с паскаля на С++
Переписать с Паскаля в с++ C++
Переписать с Паскаля на С++ C++
Переписать из паскаля C++
C++ Переписать с Паскаля на С++
C++ Переписать с паскаля на С
Переписать из Паскаля в С++ C++

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

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

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