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

Определить количество слов в строке - Pascal

22.02.2010, 00:46. Просмотров 1060. Ответов 1
Метки нет (Все метки)

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

Добавлено через 11 минут
Еще напишите пожалуйста процедуру сортировки прямым выбором.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 00:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество слов в строке (Pascal):

Определить количество слов в строке
1. Дана строка, состоящая из русских слов, разделенных пробелами (одним или...

Определить количество слов в строке
Задана строка s. Слова в строке отделяются друг от друга хотя бы одним...

Определить количество повторяющихся слов в строке.
Дана строка символов, определить количество повторяющихся слов, разделители -...

Определить количество слов, начинающихся на заданную букву в строке
Задача: определить, количество слов начинающихся на заданную букву в сроке ...

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

В строке символов определить количество слов, у которых длина больше указанной пользователем
В строке символов определить количество слов, у которых длина больше указанной...

1
Puporev
Модератор
54124 / 41757 / 28869
Регистрация: 18.05.2008
Сообщений: 98,280
22.02.2010, 08:17 #2
Лучший ответ Сообщение было отмечено Linch как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const ds=['А'..'п','р'..'ё',' '];//допустимые символы - русские буквы и пробел
var s:string;
    i,k:byte;
begin
clrscr;
repeat
k:=0;
writeln('Введите строку из русских слов, разделенных пробелами:');
readln(s);
for i:=1 to length(s) do
if not (s[i] in ds)then k:=1;
if k=1 then writeln('Строка введена неверно. Повторите ввод.');
until k=0;
s:=' '+s;//добавим пробел в начало
k:=0;
for i:=1 to length(s)-1 do
if(s[i]=' ')and(s[i+1]<>' ')then k:=k+1;//если пробел, а впереди не пробел, новое слово
write('В строке ',k,' сл.');
readln
end.
Добавлено через 9 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{сортировка выбором по возрастанию}
uses crt;
const nmax=1000;
type mas=array [1..nmax]of integer;
//процедура сортировки выбором минимального элемента - по возрастанию
procedure SortVyb(var m:mas;n:integer);
//вспомогательная процедура поска номера минимального элемента в непросмотренной части массива
procedure Min(i:integer;var nmin:integer);
var j:integer;
begin
nmin:=i;//текущий пока минимальный
for j:=i+1 to n do//смотрим впереди
if m[j]<m[nmin] then nmin:=j;//если есть меньше, запоминаем его индекс
end;
var i,nmin,buf:integer;
begin
for i:=1 to n-1 do
 begin
  Min(i,nmin);//находим мин
  buf:=m[i];//запоминаем текущий, он больше
  m[i]:=m[nmin];//на его место мин
  m[nmin]:=buf;//больше - вперед
 end;
end;
var a:mas;
    n,i:integer;
Begin
clrscr;
randomize;
repeat
write('Введите размер массива до ',nmax,' n=');
readln(n);
until(n>0)and(n<=nmax);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)-9;
  write(a[i],' ');
 end;
writeln;
SortVyb(a,n);
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 08:17
Привет! Вот еще темы с решениями:

Определить минимальное количество первых символов слов, по которым можно различить слова в строке
Задание 1 Строка состоит из нескольких слов, разделенных пробелом. Определить...

Определить минимальное количество первых символов слов, по которым можно различить слова в строке
Строка состоит из нескольких слов, разделенных пробелом. Определить минимальное...

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

Количество слов в строке.
ПОЖАЛУЙСТААААА помогите,написать программу на Паскале!Подсчитать количество...


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

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

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