Подсчитать слова в тексте.Турбо Паскаль
Слова в тексте разделены пробелом. Подсчитать количество слов длина которых не превышает 4-х букв
Цитата:
Originally posted by Dural
Слова в тексте разделены пробелом. Подсчитать количество слов длина которых не превышает 4-х букв
Слова в тексте разделены пробелом. Подсчитать количество слов длина которых не превышает 4-х букв
var s : string;
pre, post : integer;
counter : integer;
begin
writeln ('stroka?');
readln (s);
pre := 1;
counter := 0;
while (pos (' ', s) > 0) do
begin
if (pos(' ', s) - pre) < 6 then inc (counter);
pre := pos (' ', s);
s[pre] := '0';
if pre > (length(s)-5) then inc (counter);
end;
writeln (counter);
end.
Надо только добавить проверку для случая одного слова в строке. Лениво:)
Цитата:
Originally posted by sss_guest
Надо только добавить проверку для случая одного слова в строке. Лениво:)
Надо только добавить проверку для случая одного слова в строке. Лениво:)
проще к исходной строке добавить один пробел
может и мне кто поможет буду рад
ну вот кароче условия задачи:
дана матрица размером m на n составить програму которая сортирует эту матрицу в порядке возрастания или убывания , по элементам заданного столбца или заданной строки.
Заранее спасибо
ну вот кароче условия задачи:
дана матрица размером m на n составить програму которая сортирует эту матрицу в порядке возрастания или убывания , по элементам заданного столбца или заданной строки.
Заранее спасибо
Помгите решить задачу в Паскале : "Напишите программу подсчета числа вхождений слова X в слово Y " Просьба решить поп простому, а о учитель не примет. Заранее спасибо!