1 / 1 / 2
Регистрация: 19.04.2011
Сообщений: 50
1

Вывести на экран слова, содержащие три буквы, и подсчитать их количество

08.11.2011, 14:31. Показов 1487. Ответов 2
Метки нет (Все метки)

Здравствуйте!!!
Помогите пожалуйста решить задачи!((

2)дана строка, состоящая из слов,разделенных пробелами,вывести на экран,слова содержащие три буквы и подсчитать их количество.
Со стоками работать , как с единым объектом. Т.е с использованием строковых процедур и функций.
(delete,insert,str,val,copy,pos,...)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2011, 14:31
Ответы с готовыми решениями:

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

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

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

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

2
16 / 16 / 8
Регистрация: 10.09.2011
Сообщений: 117
08.11.2011, 20:22 2
Лучший ответ Сообщение было отмечено elli-il как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
Program stroki2;
Var s:string[255] k,n:integer;
Begin
Readln(s);
For n:=1 to length(s) do 
   Begin
   If (s[n]=' ') then k:=k+1;
End;
Writeln(k);
End.
Прога для вычисления колва слов в строке!
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.11.2011, 20:44 3
Вторая задачка, другой вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s:string;
    k, i: integer;
begin
     write ('s=');
     readln (s);
     s:=' '+s+' ';
     writeln ('Слова, состоящие из 3х букв');
     for i:=1 to length(s)-4 do
         if (s[i]=' ') and (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]<>' ') and (s[i+4]=' ')
            then
                begin
                     writeln (s[i+1],s[i+2],s[i+3]);
                     inc(k);
                end;
     writeln ('Количество слов из 3х букв = ',k);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2011, 20:44
Помогаю со студенческими работами здесь

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

Вывести на экран слова, содержащие три буквы
дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

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

Вывести на экран слова, содержащие три буквы
всем привет, помогите решить: Дан текст. Вывести на экран слова, содержащие три буквы. ...


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

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

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