Строки

[11111]

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

[Карась]

Сообщение от 11111

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

Неплохо бы уточнить откуда программа будет брать "...все слова..."

ЗЫ:
Кстати помнится такая программа уже рассматривалась...

[puporev]

Карась прав, очень уж куцее условие. Вот на всякий случай эта процедура и возможный вариант ее использования.

uses crt;
var st:array[1..3]of string;
    i:integer;
procedure Odbuk(var s:string);
begin
if s[1]=s[length(s)] then
writeln (s);
end;
begin
clrscr;
writeln('Ishodnye slova:');
for i:=1 to 3 do
readln(st[i]);
writeln('nuznye slova:');
for i:=1 to 3 do
odbuk(st[i]);
readln;
end.

[11111]

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

[puporev]

Тогда так:

uses crt;
var st:array[1..3]of string;
    i:integer;a:char;
procedure Odbuk(c:char;var s:string);
begin
if (s[1]=c)and(s[length(s)]=c) then
writeln (s);
end;
begin
clrscr;
write('bukva=');readln(a);
writeln('Ishodnye slova:');
for i:=1 to 3 do
readln(st[i]);
writeln('nuznye slova:');
for i:=1 to 3 do
odbuk(a,st[i]);
readln;
end.