Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста с решением задачи((( нужно завтра сдать(
Помогите пожалуйста с решением задачи((( нужно завтра сдать(
Дана строка символов, состоящая из строчных латинских букв и пробелов. Группы символов, разделённые пробелами(одним или несколькими) и не содержащие пробелов внутри себя будем называть словами. Вывести на печать слова начинающиеся на букву "а" , и самое короткое из них
1 | Автор: dima6666 | 2012-06-07, 20:50   |  Репутация: [ + 0 ]
var
a,s,q:string;
i,j:integer;
begin
q:='111111111111111111111111111111111111111111111111111111111111111111111111';
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s)-1 do
if (s[j]=' ')and(s[j+1]=' ') then delete(s,j,1);
repeat
if pos('a',s)<>0 then begin
delete(s,1,pos('a',s)-1);
a:=copy(s,1,pos(' ',s));
write(a);
delete(s,1,pos(' ',s));
if length(a)<length(q) then q:=a;
end;
until (pos('a',s)=0)or(pos(' ',s)=0);
writeln;
writeln(q);
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-08, 13:13   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-08, 13:13   |  Репутация: [ + 211 ]
в итоге получаю ответ ввиде множества единиц
3 | Автор: dima6666 | 2012-06-09, 00:08   |  Репутация: [ + 0 ]
а ты не утруднись и введи строку, где есть слова начинающиеся на букву а))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-06-09, 01:50   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-06-09, 01:50   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
а ты не утруднись и введи строку, где есть слова начинающиеся на букву а))
, если в строке последнее последнее слово начинаеться на "а" то выводит только слова начинающиеся на "а" все кроме этого(последнего) а самое короткое невыводит, если же последнее слово в строке на любую другую букву то тогда всё работает))) ну вобщем и на этом спасибо))) проверяют работоспособность программы только по скринам) сделаю скрины где посл. слово не на "а"))
5 | Автор: dima6666 | 2012-06-09, 10:35 | Изменено: dima6666 - Сб, 2012-06-09, 10:36   |  Репутация: [ + 0 ]
5 | Автор: dima6666 | 2012-06-09, 10:35 | Изменено: dima6666 - Сб, 2012-06-09, 10:36   |  Репутация: [ + 0 ]
Ну я ведь не на контестер слал код)
Конечно есть недочёты)
Удачи)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-06-09, 12:24   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста с решением задачи((( нужно завтра сдать(
Страница 1 из 11
Поиск: