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

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

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

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

05.05.2014, 18:10. Просмотров 237. Ответов 2
Метки нет (Все метки)

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

Найти в заданном одномерном символьном массиве нечётный палиндром наибольшей длины - C++
Дан одномерный символьный массив. Найти в нем нечетный палиндром наибольшей длины. Любой элемент массива может быть центром палиндрома....

Необходимо найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки, используя символ "!" - C++
Вводится массив строк символов. Необходимо найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки,...

Нужно найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки, используя символ "!" - C++
Вводится массив строк символов. Необходимо найти строку наибольшей длины и увеличить остальные строк в массиве к длине наибольшей строки,...

Найти в файле целых чисел группу положительных элементов наибольшей длины - C++
помогите пожалуйста , зарание благодарен !!!Создать двоичный файл и записать в него n целых чисел. Найти в нем группу положительных...

Определить слова наибольшей и наименьшей длины и величину длины. - C++
Дано предложение (символьная строка, где слова отделяются друг от друга запятой). Определить слова наибольшей и наименьшей длины и...

В тексте найти и вывести слово наибольшей длины, в котором нет заданной буквы - C++
Помогите пожалуйста. Дуб дубом, а завтра сдавать надо. Надо на писать на простом си, желательно с парой комментариев(

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25535 / 17088 / 5416
Регистрация: 22.10.2011
Сообщений: 30,253
Записей в блоге: 6
05.05.2014, 18:16 #2
nikita7991, лучше не код приводи, а задачу, которую он решает.
0
nikita7991
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 120
05.05.2014, 18:32  [ТС] #3
Это не мой код просто его нужно перевести
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2014, 18:32
Привет! Вот еще темы с ответами:

Нахождение слова наибольшей длины в строке - C++
Строка состоит из слов,разделенных одним или несколькими пробелами.Найдите слово наибольшей длины.

Строки. Удалить слова наибольшей длины - C++
В строке удалить слова наибольшей длины. Оставшиеся слова записать через пробел. След-но пользователь должен сам вводить эти слова, а...

В строке удалить слова наибольшей длины... - C++
Доброго времени суток всем. Учусь у универе и долго болел. Сейчас дали пару задач, вобще не понимаю как решать) Надеюсь на вашу помощь. ...

Массив: Выделить возрастающую под последовательность элементов наибольшей длины. - C++
Задан массив размера N. Выделить возрастающую под последовательность элементов наибольшей длины.


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

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

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