String тип данных в решении.

@deadbeat · Регистрация: 27.02.2010

Author24 — интернет-сервис помощи студентам

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

Пример :
Заданная буква: Ж
Предложение: Глаголом жечь сердца людей.
Вывод: жечь.

Заранее благодарю. Уже замучился составлять ее, не могу составить алгоритм для универального определения длины нужного слова, чтобы потом его вывести на экран, т.к. тип задания copy(a,5,5) , где первая переменая в скобках это переменная- строка, 5ка - позиция первой буквы искомого слова, а 5 - длина слова, но я то не могу наперед знать длину слова, а другой способ задания промежутка не знаю.

@STGE · 12.03.2010, 23:57

Pascal

Program stroka;
Uses crt;
Var a,s: string; i,j: byte;
Begin
Clrscr;
a:='Прок порт пакт друг характер плуг каста лапа пурга';
Writeln(a);
For i:=1 to length(a) do
begin
If ((a[i]='П') or (a[i]='п')) and ((i=1) or (a[i-1]=' ')) then
begin
s:=Copy(a,i,pos(' ',a));
Write(s);
end;
end;
End.

@кот Бегемот · 13.03.2010, 00:04

Pascal

var
a,b:string;
s:char;
i:integer;
begin
writeln('vvedite stroku');
readln(a);
writeln('vvedite bukvu');
readln(s);
a:=a+' ';
for i:=1 to length(a) do
if a[i]<>' ' 
    then 
       b:=b+a[i]
        else
        begin
    if b[1]=s then writeln(b);
    b:='';
   end;
readln;
end.

Добавлено через 4 минуты
STGE
Ваша программа - частный случай, в условии букву

заданную

то есть её надо ввести, задать

@STGE · 13.03.2010, 00:36

кот Бегемот,автор темы не указал каким именно образом должна задаваться буква => может быть несколько вариантов (константа, переменная, вводиться с клавиатуры).

@deadbeat 0 / 0 / 0 Регистрация: 27.02.2010 Сообщений: 8
		1
	String тип данных в решении. 12.03.2010, 22:30. Показов 1035. Ответов 3 Метки нет (Все метки) Составить програму, которая бы в заданном предложении выводила слова, начинающиеся на заданную букву целиком. Пример : Заданная буква: Ж Предложение: Глаголом жечь сердца людей. Вывод: жечь. Заранее благодарю. Уже замучился составлять ее, не могу составить алгоритм для универального определения длины нужного слова, чтобы потом его вывести на экран, т.к. тип задания copy(a,5,5) , где первая переменая в скобках это переменная- строка, 5ка - позиция первой буквы искомого слова, а 5 - длина слова, но я то не могу наперед знать длину слова, а другой способ задания промежутка не знаю. 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	13.03.2010, 00:36	4
	кот Бегемот,автор темы не указал каким именно образом должна задаваться буква => может быть несколько вариантов (константа, переменная, вводиться с клавиатуры). 1