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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Преобразовать строку таким образом, чтобы в ее начале были записаны слова, содержащие только цифры http://www.cyberforum.ru/cpp-beginners/thread1167192.html
Преобразовать строку таким образом, чтобы в ее начале были записаны слова, содержащие только цифры, потом слова, содержащие только буквы, а затем слова которые содержат и буквы и цифры.
C++ Вывести содержимое очереди на экран, отсортировать содержимое очереди по невозрастанию Сформировать динамическую структуру данных «очередь» и заполнить ее информационные поля псевдослучайными натуральными числами (тип int). Вывести содержимое очереди на экран, отсортировать содержимое... http://www.cyberforum.ru/cpp-beginners/thread1167185.html
Расширенный алгоритм Евклида C++
Помогите решить задачу Даны натуральные числа a, b, c. Если уравнение ax+by=c имеет решения в целых числах, то выведите через пробел НОД(a,b), x и y (какое-нибудь решение). Если решения не...
Положительные элементы первой строки матрицы умножить на первый элемент этой же строки, а отрицательные — на п C++
Положительные элементы первой строки прямоугольной матрицы умножить на первый элемент этой же строки, а отрицательные - на последний ее элемент; то же самое проделать с остальными строками. При...
C++ Непонятная ошибка с namespace http://www.cyberforum.ru/cpp-beginners/thread1167163.html
Здраствуйте! Создаю типа хелпер для разных функций со своим пространством имен, что бы потом использовать так Helper::myFunc(): helper.h #if !defined(HELPER_H) #define HELPER_H #include...
C++ Использование знака пробел при вводе переменной типа char[] Доброго времени суток! При идентификации переменных при применении знака пробел, все, что идет до него "уходит" в первую переменную, после - в следующую. Пожалуйста, подскажите, как можно допустить... подробнее

Показать сообщение отдельно
nikita7991
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 120

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

05.05.2014, 18:10. Просмотров 215. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.