| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
 Trimis: 15.03.2008 23:02 Titlul subiectului: Problema 24 |
|
|
| Citat: |
Scrieþi un program care citeºte de la tastaturã o propoziþie de cel mult 80 de caractere litere ºi spaþii ºi apoi eliminã spaþiile redundante din propoziþie, adicã cele de la începutul ºi de la sfîrºitul textului, precum ºi spaþiile numeroase dintre cuvintele propoziþiei.
De exemplu, dacã se citeºte propoziþia:
| Cod: |
| Afara ninge cu fulgi mari. |
Rezultatul afisat va fi :
| Cod: |
| Afara ninge cu fulgi mari. |
|
| Cod: |
program prob24;
var s:string[80];
i:byte;
spt:boolean;
begin
writeln('Dati un string:'); readln(s);
spt:=false;
for i := 1 to length(s) do
begin
if not (spt and (s[i]=' ')) then write(s[i]);
spt := s[i]=' '
end
end. |
 |
|
| Sus » |
|
 |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:26 Titlul subiectului: |
|
|
| Cod: |
{scrieti un program care citeste de la tastatura o propozitie de cel mult 80 de
caractere litere si spatii si apoi elimina spatiile redundante din propozitie
adica cele de la incelutul si de la sfarsitul textului, precum si spatiile
multiple dintre cuvintele propozitiei}
program ex24;
var s:string;
n,i:integer;
begin
write('Propozitia: ');readln(s);
i:=length(s);
while s[i]=' ' do begin
delete(s,i,1);
i:=length(s);
end;
i:=1;
while i<=length(s) do if (s[i]=' ') and (s[i+1]=' ') then repeat
if i+1<length(s) then delete(s,i+1,1);
until (s[i+1]<>' ') or (i=length(s))
else i:=i+1;
if s[1]=' ' then delete(s,1,1);
write(s);
end.
|
|
|
| Sus » |
|
|
|
|
