Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Scrilkor
0 / 0 / 1
Регистрация: 21.06.2015
Сообщений: 11
#1

Вывести слова в столбец с указанием длины каждого слова - Pascal

30.09.2015, 09:18. Просмотров 204. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var s:string;
    i,k,m:byte;
begin
writeln('Vvedit PIB : ');
readln(s);
s:=s+' ';
Writeln('Dovjuna ryadka : ',Length(s));
for i:=1 to length(s) do
if s[i]=' ' then m:=m+1;
writeln('kilkist sliv : ',m);
writeln('Dovjunu sliv');
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else
 begin
  if k<>0 then write(k,' ');
  k:=0;
 end;
end.

http://www.cyberforum.ru/pascal/thread118756.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2015, 09:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести слова в столбец с указанием длины каждого слова (Pascal):

Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре
дана строка, между словами не менее одного пробела, в конце точка. Вывести все...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка....

Напечатать все слова, перенеся первую букву каждого слова в конец слова
приветствую вас))) помогите пожалуйста даме... Текст задан строкой var St:...

Изменить строку, продублировав слова, из которых можно составить слова-палиндромы четной длины
Добрый вечер всем. На главной странице я увидел эту надпись: Я очень...

Вывести на экран все слова строки данной длины
помогите!! на паскале

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,940
30.09.2015, 20:28 #2
Изначально: (С) Zverit
Программа рассчитана на то, что между словами один пробел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  stroka:string;
  k,i:integer;
begin
  readln (stroka);
  for i:=1 to length(stroka) do
    begin
      if (stroka[i]=' ') Or (i=length(stroka)) then
        begin
          write(': ',k);
          writeln;
          k:=0;
        end
      else
        begin
          write(stroka[i]);
          inc(k);
        end;
    end;
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2015, 20:28
Привет! Вот еще темы с решениями:

Напечатать все слова последовательности, удалив из каждого слова нечётные буквы, если слово имеет нечётное количество символов
Напечатать все слова последовательности, удалив из каждого слова нечётные ...

Дано предложение.Вывести количество повторений в нём каждого слова
ПОМОГИТЕ С ЗАДАЧЕЙ!!! Дано предложение.Вывести количество повторений в нём...

Вывести на экран через один пробел последние буквы каждого слова
Дана текстовая строка, состоящая из слов, разделенных одним пробелом. Вывести...

Вывести различные слова, указав для каждого из них число вхождений в последовательность
Дана последовательность до 30 слов в каждом из которых от 1 до 5 символов,...


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

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

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