0 / 0 / 1
Регистрация: 23.03.2013
Сообщений: 30
1

Определить, сколько слов из четырех букв входит в строку

20.05.2013, 22:53. Показов 1804. Ответов 3
Метки нет (Все метки)

Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2013, 22:53
Ответы с готовыми решениями:

Определить, сколько слов из четырех букв входит в строку
Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту...

Определить, сколько слов из четырех букв входят в данную строку
Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту...

Определить, сколько слов из четырех букв входящих в эту строку(символьные массивы)
Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту...

Определить, сколько в предложении слов, состоящих не более чем из четырех букв
Написать программу, которая считывает текст написанный в самой программе и определяет, сколько в...

3
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
21.05.2013, 12:52 2
Лучший ответ Сообщение было отмечено Energizer1995 как решение

Решение

Если словами считать группу символов, разделенных пробелами:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var
  s: String;
  i,k: Byte;
BEGIN
Write('Введите строку: ');
Readln(s);
While s[1]=' ' do
Delete(s,1,1);
While Pos('  ',s)>0 do
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do
Delete(s,Length(s),1);
s:=s+' ';
k:=0;
Repeat
 If Length(Copy(s,1,Pos(' ',s)))-1=4 Then
 k:=k+1;
 Delete(s,1,Pos(' ',s));
until s='';
Writeln('Кол-во слов из 4 букв = ',k);
Readln
END.
1
0 / 0 / 0
Регистрация: 10.03.2021
Сообщений: 42
01.05.2021, 12:05 3
как можно етот код записать через массив array of char ??
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7499 / 4368 / 2775
Регистрация: 22.11.2013
Сообщений: 12,501
Записей в блоге: 1
01.05.2021, 17:47 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  s: array [0..70] of Char;
  i, j, k: Integer;
begin
  Write('Строка: '); ReadLn(s); {i:=0; k:=0;}
  while s[i]<>#0 do begin
    while s[i]=' ' do Inc(i); j:=i; 
    while not (s[i] in [#0,' ']) do Inc(i);
    Inc(k,Ord(i-j=4));
  end;
  WriteLn('Строка: ',s);
  WriteLn('Слов из 4 букв: ',k);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2021, 17:47
Помогаю со студенческими работами здесь

Определить, сколько в файле слов, состоящих не более чем из четырех букв
Задание:Написать программу, которая считывает текст из файла и определяет, сколько в нем слов,...

Определить сколько в файле слов, состоящих не более чем из четырех букв
Добрый день. Помогите, пожалуйста, с написанием программы. Вот задание: Написать программу,...

Определить, сколько в предложении слов, состоящих не более чем из четырех букв
Помогите пожалуйста с написанием программы для определения количества слов состоящих не более чем...

Определить сколько слов в предложении состоят из не более чем четырех букв
Написать программу, которая вводит текст, состоящий из нескольких предложений, и определяет,...

Определить, сколько в тексте слов, состоящих из не более, чем четырех букв
#include&lt;stdio.h&gt; #include&lt;conio.h&gt; #define PATH &quot;C:\\h1.txt&quot; void main() { int...

Определить, сколько в файле слов, состоящих не более чем из четырёх букв
Написать программу, которая считывает текст из файла и определяет, сколько в нем слов, состоящих не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru