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

Описать функцию WordK(S, K) строкового типа, возвращающую K-е слово строки S

07.06.2012, 18:38. Показов 2633. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Описать функцию WordK(S, K) строкового типа, возвращающую K-е слово строки S (словом считается набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки). Если количество слов в строке меньше K, то функция возвращает пустую строку. Используя эту функцию, выделить из данной строки S слова с данными номерами K1, K2, K3.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2012, 18:38
Ответы с готовыми решениями:

Описать функцию строкового типа, возвращающую строку длины N, заполненную повторяющимися копиями строки-шаблона
Срочно, пожалуйста помогите решить. QBasic Описать функцию FillStr(S$, N) строкового типа,...

Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого неотрицательного числа N
Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого...

Описать функцию CompressStr(S) строкового типа, выполняющую сжатие строки
Описать функцию CompressStr(S) строкового типа, выполняющую сжатие строки S по следующему правилу:...

Описать функцию DecToHex(N) строкового типа
Описать функцию DecToHex(N) строкового типа, возвращающую строковое представление целого ...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
07.06.2012, 19:48 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
Var s:string;
    k1,k2,k3:integer;
Function WordK(s:string;k:integer):string;
Var s1,s2:string;
    i,j:integer;
    b:boolean;
Begin
    i:=0;s2:='';b:=true;
    While (Pos(' ',s)<>0)and(b) do
     Begin
      inc(i);
      j:=Pos(' ',s);
      s1:=Copy(s,1,j-1);
      Delete(s,1,j);
      if i=k then 
       Begin
        b:=false;
        s2:=s1;
       End;
     End;
    WordK:=s2;
End;    
Begin
    write('Введите строку: ');readln(s);
    write('Введите k1: ');readln(k1);
    write('Введите k2: ');readln(k2);
    write('Введите k3: ');readln(k3);
    writeln(WordK(s,k1));
    writeln(WordK(s,k2));
    writeln(WordK(s,k3));
    readln;
End.
2
07.06.2012, 19:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2012, 19:48
Помогаю со студенческими работами здесь

Описать функцию FillStr(S,Len) строкового типа
Ребят, помогите решить, пожалуйста! Описать функцию FillStr(S,Len) строкового типа, возвращающую...

Описать функцию IntFileSize целого типа, возвращающую размер файла
Доброе время суток господа! Помогите пожалуйста срочно с задачей:Описать функцию IntFileSize(Name)...

Описать функцию getInt(Name,k) целого типа, возвращающую k-й элемент файла
очередная просьба о срочном и по максимуму простом решении этой задачи...( Описать функцию ...

Описать функцию целого типа, возвращающую число строк в текстовом файле
Описать функцию TextSize(Name) целого типа, возвращающую число строк в текстовом файле с именем...


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

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

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