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

Перевести с Pasсal на C++ (Найти палиндром наибольшей длины) - C++

Восстановить пароль Регистрация
 
nikita7991
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 119
05.05.2014, 18:10     Перевести с Pasсal на C++ (Найти палиндром наибольшей длины) #1
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
uses crt;
var st, buf, max : string;
 
function isPalind(st:string):boolean;
var i:integer;
begin
    isPalind := true;
    for i:=1 to Length(st) div 2 do if st[i]<>st[length(st)-i+1] then
    begin
        isPalind := false;
        break;
    end;
end;
 
begin
    clrscr;
    write('-> ');
    readln(st);
    max:='';
    buf:='';
    while pos(' ',st)>0 do
    begin
        buf := copy(st,1,pos(' ',st)-1);
        if (buf <> '') and (isPalind(buf)) and (length(buf) > length(max)) then max := buf;
        buf := '';
        delete(st,1,pos(' ',st));
    end;
    if (st<>'') and (isPalind(st)) and (length(st) > length(max)) then max := st;
    writeln('Палиндром наибольшей длины - ',max);
    readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2014, 18:10     Перевести с Pasсal на C++ (Найти палиндром наибольшей длины)
Посмотрите здесь:

В строке удалить слова наибольшей длины... C++
В тексте найти и вывести слово наибольшей длины, в котором нет заданной буквы C++
Строки. Удалить слова наибольшей длины C++
C++ Массив: Выделить возрастающую под последовательность элементов наибольшей длины.
C++ Матрица. Найти номер ее ряда с наибольшей суммой элементов и вывести данный ее номер, а также значение наибольшей суммы
Необходимо найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки, используя символ "!" C++
C++ Нужно найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки, используя символ "!"
В словах наибольшей длины удалить среднюю букву (средние буквы) C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
volvo
Супер-модератор
 Аватар для volvo
21811 / 14174 / 3947
Регистрация: 22.10.2011
Сообщений: 25,042
Записей в блоге: 2
05.05.2014, 18:16     Перевести с Pasсal на C++ (Найти палиндром наибольшей длины) #2
nikita7991, лучше не код приводи, а задачу, которую он решает.
nikita7991
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 119
05.05.2014, 18:32  [ТС]     Перевести с Pasсal на C++ (Найти палиндром наибольшей длины) #3
Это не мой код просто его нужно перевести
Yandex
Объявления
05.05.2014, 18:32     Перевести с Pasсal на C++ (Найти палиндром наибольшей длины)
Ответ Создать тему
Опции темы

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