дядя паскаль

[Гость]

программисты пд помагите плз,вообщем задача такая: дано предложение,найти слова у которых последняя буква д,если таких слов нет,то сообщить об этом.Вот собственно текст проги мой,она почему то проверяет тока 1 слово,в чем проблемма.

 

 

var

a:string;

i,n:integer;s:string;g:integer;

begin

writeln('vvedite predlojenie',a);

readln(a);

For i:=1 to length(a) do

begin

n:=length(a);

g:=pos(' ',a);

s:=copy(a,g-1,1);

end;

If s='d'then

writeln('slovo okan4ivaysheesa na d:','  ',a)

else

writeln('net slov okan4ivayshihsa na d');

readln(a);

end.

 

[Гость]

up temky,rly nyjna pomosh

[Fint]

Дай угадаю, он только последнее или предпоследнее, если в конце нет пробела проверяет?

[gromak94]

Идиот, ты сразу по всему предложению пробегаешь.

ОМГ, как могут проблемы с этим?

[Гость]

он проверяет первое слово в предложении

[Fint]

For замени на постусловие и повторяй проверку, пока не будет конец строки

[Гость]

For замени на постусловие и повторяй проверку, пока не будет конец строки

щас попробую

[dinkelan]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

[Fint]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

хуевый троль ты

[HungryMole]

так у тебя вывод сообщения о слове с 'd' не в цикле же

[askael]

тебе нужно находить конец(пробел) слова, и проверять  та буква ли там ,а потом удалять его и снова  проверять строку  и так  по н раз (н  сколько слов)

[Donatello]

знаю только тетю делфи

[dinkelan]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

хуевый троль ты

я не тролю 

[askael]

и еще счетчик поставить , K=k+1 ( если в конце та буква ) и если счетчик равен 0 то вывести что  слов нет

[Gukoff]

Im_groza_Hax, ты безграмотен как в русском языке, так и в коде, программирование - не твоё. :(

 

Ужас, какой же ущербный код 

[Fint]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

хуевый троль ты

я не тролю 

такую задачи через файлы решать это рак 

[askael]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

хуевый троль ты

я не тролю 

такую задачи через файлы решать это рак 

 

this

[dinkelan]

Я бы сделал через доп файл и использовал EOF, хз мб я быдлокодер 

хуевый троль ты

я не тролю 

такую задачи через файлы решать это рак 

ок представь реальную ситуацию: тебе дают текст из 100 слов. Что ты делать будешь? ручками вбивать? а так копипаст=профит

[dimko-_-syan]

проходил в школе

[LethalDoseInjecter]

программисты пд помагите плз,вообщем задача такая: дано предложение,найти слова у которых последняя буква д,если таких слов нет,то сообщить об этом.Вот собственно текст проги мой,она почему то проверяет тока 1 слово,в чем проблемма.

 

 

var

a:string;

i,n:integer;s:string;g:integer;

begin

writeln('vvedite predlojenie',a);

readln(a);

For i:=1 to length(a) do

begin

n:=length(a);

g:=pos(' ',a);

s:=copy(a,g-1,1);

end;

If s='d'then

writeln('slovo okan4ivaysheesa na d:','  ',a)

else

writeln('net slov okan4ivayshihsa na d');

readln(a);

end.

OH MY GOD

 

n:=length(a); ахуенно используется в проге.

 

Pos(subS, S) определяет позицию первого вхождения подстроки subS в строку S. Результат – целое число, равное номеру позиции, где находится первый символ искомой подстроки. Если вхождение подстроки не обнаружено, то результат функции будет равен 0.

 

Кароче во 1х он будет чекать только 1е слово т.к. Pos(subS, S) определяет позицию первого вхождения подстроки subS в строку S.

 

Во 2х у тебя проверка на 'd' вне цикла.