строковые данные в Паскале

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
ксюньк@
Сообщения: 2
Зарегистрирован: 24 янв 2008, 19:53

24 янв 2008, 21:04

привет!!! помогите, пожалуйста, написать программу:

"определить количество символов в самом длинном слове произвольной строки текста. используя оператор форматированного вывода вывести на экран ПЕРВУЮ БУКВУ САМОГО ДЛИННОГО СЛОВА"

у меня всегда последняя буква строки выводится:

program kontr268;
var a: string;
i,l,pr,ppr,dl,max: integer;
bukva: char;
begin
writeln ('vvedite stroky');
readln (a);
l:= length (a);
max:=0;

for i:= 1 to l do
begin
pr:= pos (' ',a); {naxodim poziciu pervogo probela.}
for i:= pr+1 to l do {nachinaya s etogo chisla,}
begin
ppr:= pos (' ',a); {naxodim poziciy cledyushego probela.}
dl:=ppr-pr; {vichyslyaem dlinu slova mezhdu probelami}
if dl>max then {esli ona bolshe dlinny samogo dlinnogo slova,}
max:=dl; {eto slovo stanovitsa samym dlinnim.}
pr:=ppr; {posledniy probel stanovitsa pervym}
end;
bukva:=a[i-max];

writeln ('pervaya bukva samogo dlinnogo slova ',bukva);
end.
BBB
Сообщения: 1272
Зарегистрирован: 27 дек 2005, 13:37

25 янв 2008, 10:31

Еще раз та же тема тут:

http://forum.developing.ru/showthread.php?t=12729
Ответить