Srodne teme

02.12.2001. Zanima me...
07.07.2004. Pretrazivanje i Filtriranje Baze
19.04.2004. kako bi ovo riješili?
23.05.2004. trodimenzionalne rijeci
10.09.2004. php i igra pogadjanja rijeci
05.10.2004. Recnik Engleskog jezika sa atributima rijeci
12.12.2004. prebrojavanje rijeci
10.01.2007. kakaoke nema rijeci ??

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

program oko rijeci

[es] :: Pascal / Delphi / Kylix :: program oko rijeci	[ Pregleda: 673 \| Odgovora: 4 ]	Postavi temu Odgovori

Autor

atlas

Član broj: 20158
Poruke: 168
*.as.ka.bih.net.ba.

Profil

program oko rijeci

^{05.03.2005. u 00:39}

treba mi program u Pascalu koji ce za unesenu recenicu ispisati istu,sa istim redoslijedom reci ali obrnutim poretkom slova...

primjer

MAJA IDE U SUMU.
--> AJAM EDI U UMUS.

^{05.03.2005. u 00:39}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

Re: program oko rijeci

^{05.03.2005. u 01:26}

Evo ti u delphi-ju. Trebalo bi da je isto i u paskalu (ne mogu da se setim dal ima copy ili nesto drugo).

Code:

function Obrni(S: String): String;
var R,Res: String;
  Poz,I: Integer;
begin
  Res:='';
  while s<>'' do
    begin
      Poz :=pos(' ',S);
      if Poz = 0 then
        Poz := Length(S)+1;
      R:= copy(S,1,Poz-1);
      S:= copy(S,Poz+1,255);
      for I:= Length(R) downto 1 do
        Res := Res + copy(R,i,1);
      if S<>'' then
        Res := Res+' ';
    end;
    Obrni := Res;
end;

^{05.03.2005. u 01:26}

bancika
Branislav Stojkovic
Nis, New York

Član broj: 24844
Poruke: 620
213.244.208.*

ICQ: 84215453
Sajt: www.storm-software.co.yu/..

Profil

Re: program oko rijeci

^{05.03.2005. u 01:39}

Code:

var s, s1: string;
     pocetak, j, i: Integer;
begin
  ReadLn(s); s1 := '';
  i := 1;
  while i <= Length(s) do
   begin
     while (i<=Length(s)) and not (UpCase(s[i]  in ['A'..'Z']) do
      Inc(i);
     Pocetak := i;
    while (i<=Length(s)) and (UpCase(s[i]  in ['A'..'Z']) do
      Inc(i);
    for j := i downto pocetak do s1 := s1 + s[j];
   end;
  WriteLn(s1)
end

ovo je onako iz glave, mozda (verovatno) ne radi, ali eto ti ideje

Ride the rainbow, crack the sky

^{05.03.2005. u 01:39}

atlas

Član broj: 20158
Poruke: 168
*.as54.ze.bih.net.ba.

Profil

Re: program oko rijeci

^{05.03.2005. u 23:57}

Imal neko ideju preko for,goto strukture za ovaj program

^{05.03.2005. u 23:57}

sasas
Saša Slavnić
looking for...
Na lepom plavom Dunavu

Član broj: 35478
Poruke: 611
195.246.3.*

Profil

Re: program oko rijeci

^{06.03.2005. u 01:18}

ss.

Code:

var
  i: byte;
  ulaz, rec, rezultat: string[255];
begin
  readln(ulaz);
  for i := byte(ulaz[0]) downto 1 do
    if ulaz[i] = ' ' then begin
      rezultat := rec + ' ' + rezultat;
      rec := '';
    end else rec := rec + ulaz[i];
  rezultat := rec + ' ' + rezultat;
  writeln(rezultat);
end.

When something is hard to do, then it's not worth doing.

^{06.03.2005. u 01:18}

[es] :: Pascal / Delphi / Kylix :: program oko rijeci

[ Pregleda: 673 | Odgovora: 4 ]

Srodne teme

02.12.2001. Zanima me...
07.07.2004. Pretrazivanje i Filtriranje Baze
19.04.2004. kako bi ovo riješili?
23.05.2004. trodimenzionalne rijeci
10.09.2004. php i igra pogadjanja rijeci
05.10.2004. Recnik Engleskog jezika sa atributima rijeci
12.12.2004. prebrojavanje rijeci
10.01.2007. kakaoke nema rijeci ??

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.