Pune o întrebare
  Tehnologie
jey26
| 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!

3 Raportează Evaluează
Răspuns Câştigător
aalexei
| 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.

RăspundeRăspunde
RSS răspunsuri Ordonare: După relevanţă
2 răspunsuri:
dfeel
| 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.

RăspundeRăspunde Raportează Evaluează
Întrebări similare
Întrebări recente