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

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

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

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

17.04.2012, 12:38. Просмотров 257. Ответов 0
Метки нет (Все метки)

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

Переписать с Паскаля на С++ - C++
program ClassificationYard; const Nmax = 100; type TRailroadCars = (TypeA, TypeB); TArray = array of TRailroadCars; ...

Переписать с паскаля на С++ - C++
Переведите плиз вт это в С++ Заранее Сапасибо!!!! var ms:array of integer; max,s,k,i:integer; begin

Переписать с паскаля на С - C++
Помогите переписать на язык С program tabul; uses crt,graph; const a1=6;b1=14;h1=0.25; label metka; var a,b,h,x1,y1:real; ...

Переписать с Паскаля на C++ - C++
Все доброго времени суток. Нужно переписать программу с паскаля на плюсы. Смысл программы в том, что она расставляет скобки приоритета для...

Переписать из паскаля - C++
Здравствуйте помогите пожалуйста переписать на с++:) var a,b:array of integer; n,i,c,d,mind:integer; begin read(n); for...

Переписать из Паскаля в С++ - C++
Суть в том, что есть программы написанные на Паскале, их нужно написать на С++. а я вообще не дружу с этим языком. Дорогие умельцы, если не...

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

переписать из паскаля в с++ - C++
var n, i, max, cnt : Integer; a : array of Integer; begin ReadLn (n); for i := 1 to n do Read (a);

Переписать з паскаля на С - C++
Нужно переписать две програми з Turbo pascal в Turbo C 1. Визначення, чи дорівнює сума цифр цілої частини дійсного числа сумі такої ж...

Переписать с Паскаля в с++ - C++
Помогите пожалуйста - переделать программу на с++ с использованием структур - очень прошу всех откликнуться... type student=record ...

Переписать с Паскаля на С++ - C++
Ребят, можете переписать с Паскаля на С++ program PROGRAMMA7; uses crt, graph; const n=100; m=100; h=1; dt=0.2; var ...


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

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

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