Образовательный форум - онлайн помощь в учебе
Помощь в решении задач => Программирование => Тема начата: Faizov от 19 Ноября 2009, 22:06:42
-
Дана строка, состоящая из слов, разделенных пробелами. Определить кол-во слов палиндромов.
в общем я тут написал процедуры ввода строки, процедуру,которая определяет, слово, палиндром или не палиндром
и процедуру,которая подсчитывает кол-во палиндромов.
Подскажите, что дальше делать, тут еще с пробелом надо че-то сделать, помогите написать процедуру, которая учитывает пробел, точнее не учитывает, в общем..я че-то зациклился
Uses crt;
var
sim:string;
kol,kpal:byte;
Procedure vvod(var sim:string; var kol:byte);
begin
writeln('Введите слова через пробелы');
read(sim);
kol:=length(sim);
end;
Procedure palindrom(slovo:string; var p:boolean);
var
n,i:byte;
begin
p:=true;
n:=length(slovo) div 2;
for i:=1 to n do
begin
if slovo<>slovo[n-i+1] then
p:=false;
end;
end;
Procedure kolpal(p:boolean; var kpal:byte);
begin
if p then kpal:=kpal+1
end;
-
писал в 1ом семестре такую прогу...
-
Ты не сможешь написать эту прогу?...
-
внизу моего сообщения прикреплен файл с ней