| jey26 a întrebat:

Hey! Cine îmi poate poate sugera un program Pascal care identifica cel mai lung cuvînt dintr-o fraza citită de la tastatura. Va rog!

Răspuns Câştigător
| aalexei a răspuns:

Var s, s1, max:string;
begin
write('scrie ceva: '); readln(s);
s:=s+' '; max:='';
while pos(' ', s)>0 do
begin
s1:=copy(s,1,pos(' ', s)-1);
delete(s, 1, pos(' ', s));
if length(s1)>length(max) then max:=s1;
end;
writeln('cel mai lung cuvint este = ', max);
end.

2 răspunsuri:
| dfeel a răspuns:

Nu stiu Pascal dar am incercat sa caut pentru tine pe net. Daca ai idee de pascal poate te ajuta asta:
http://forum.codecall.net/topic/55231-reading-longest-word-within-a-string/
Daca nu, imi pare rau, poate chiar este cineva care stie pascal la propriu.

| jey26 explică (pentru aalexei):

Multumesc!

Întrebări similare