Mala slova u velika - pascal procedura

kruzer · **Poslato:** 07.11.2002. 17:56:03

zlatko je napisao:

Kod koji si citirao ima bubu, ali ne onu koju si naveo. To

BugiVugi · **Poslato:** 07.11.2002. 19:34:39

Da vidite kako mi se jedan problem ucinio lakim pre neki dan. Devojka mi je dobila od profesora za domaci sledeci zadatak:"Uneti tri boja (a,b,c). Sortirati ih programski tako da izlaz writeln(a,b,c) cini neopadajuci niz." Ja kao, ma to ti je lako, hoces ti da probas ili ja? Naravno, izbor je pao na mene, a trebalo mi je dobrih pola sata (mozda i zbog treme) dok sam konacno ukapirao problem. Imam resenje ali bih voleo da vidim i druga (moze i C(++)). :smoker

zlatko · **Poslato:** 08.11.2002. 09:21:50

kruzer je napisao:

2.

_________________
Oni hipotetički kostrukti o kojima se može govoriti kao o konzistentnim i relativno trajnim dinamičkim sistemima koji objašnjavaju veći deo procesa motivacije, obuhvatajući i ciljeve i motive kroz njihove međusobne relacije, čime se mogu uslovno..

zlatko · **Poslato:** 08.11.2002. 09:23:33

Da bi prekinuo naga

tomdam · **Poslato:** 08.11.2002. 21:20:07

BugiVugi je napisao:

Da vidite kako mi se jedan problem ucinio lakim pre neki dan. Devojka mi je dobila od profesora za domaci sledeci zadatak:"Uneti tri boja (a,b,c). Sortirati ih programski tako da izlaz writeln(a,b,c) cini neopadajuci niz." Ja kao, ma to ti je lako, hoces ti da probas ili ja? Naravno, izbor je pao na mene, a trebalo mi je dobrih pola sata (mozda i zbog treme) dok sam konacno ukapirao problem.

Evo ti elegantno resenje:

Kod:

var a,b,c:integer;
begin
Writeln('Unesi 3 broja');
readln(a,b,c);

If a>b Then
 begin
  a:=a+b;
  b:=a-b;
  a:=a-b;
end;

If a>c Then
 begin
  a:=a+c;
  c:=a-c;
  a:=a-c;
 end;

If b>c Then
 begin
  b:=b+c;
  c:=b-c;
  b:=b-c;
end;
Writeln(a,b,c);
end.

Kao sto vidis radi bez pomocne promenljive.

BugiVugi · **Poslato:** 09.11.2002. 12:44:30

Priznajem da sam od jednostavnog napravio svemirski brod:

Kod:

if (a>b) {
  if (a>c) {
     temp = a;
     a = c;
     c = temp;
     if (a>b) {
      temp = a;
   a = b;
   b = temp;
  }
  } else {
   temp = a;
   a = b;
      b = temp;
   }
  } else if (b>c){
   temp = b;
   b = c;
   c = temp;
   if (a>b) {
    temp = a;
    a = b;
    b = temp;
   }
  } 

:mrbig

kruzer · **Poslato:** 13.11.2002. 01:12:39

Evo jednog interesantog problema, ispisati unetu rec obrnuto.
microsoft
tfosorcim

Moze i ovo: uneti fajl iz komandne linije ispisati obrnuto, dakle poslednje slovo -> prvo slovo, pretposlednje slovo -> drugo slovo....itd.

imam interesantno resenje za ovaj problem al cu kasnije da ga ispisem...prvo da vidim vasha...
btw: ne mogu da se setim kako se zove rec koja se isto cita odnapred i odnazad? aaa?

Black · **Poslato:** 13.11.2002. 02:15:59

kruzer je napisao:

btw: ne mogu da se setim kako se zove rec koja se isto cita odnapred i odnazad?

palindrom
ali to nema veze sa zadatkom koliko sam ja shvatio... ali kad smo vec kod toga cini mi se da sam mozda i u nekoj Cirinoj knjizi procitao zadatak u okviru koga treba testirati rec da li je palindrom

Da li bi ovo radilo ?

Kod:

var
 d,j:integer;
 s:string [20];
begin
 readln (s);
 d:=StrLen(s);
 for j:=d downto 1 do
 write(s[j]);
end.

Kako bi uradili ovo sa palindromima ?

kruzer · **Poslato:** 13.11.2002. 05:29:02

Evo funkcije u C-u(opet kratka, a ti zlatko proveri koliko je brza

) koja proverava da li je rec palindrom...

Kod:

int palindrom(char *str, int n) {
   for (int z=0; z<n/2; z++) if (*(str+z)!=*(str+n-1-z)) return 0;
   return 1;
}

Malo da pojasnim, funkcija se prekida i vraca vrednost 0(false) cim "vidi" prvu nepravilnost... Ako do sredine reci ne naidje na nista lose vraca keca(true)... Dakle ne radi suvisan posao!

btw: ono za obrnutu rec sam se gadno istripovao posto sam zaboravio da napisem da treba resiti rekurzivnom funkcijom...
sorry... ???

BugiVugi · **Poslato:** 13.11.2002. 16:23:24

Function DaLiJePalindrom(niz:rec ; br:word):boolean;
Var
k : word;
Begin
k:=br;
DaLiJePalindrom:=true;
for i:=1 to (br div 2) do
Begin
if niz[i]<>niz[k] then DaLiJePalindrom:=false;
k:=k-1;
End;
End;

Naravno u C-u ovo se pise znatno krace, ali je ideja bitna ...

zlatko · **Poslato:** 14.11.2002. 02:13:45

kruzer je napisao:

Evo funkcije u C-u(opet kratka, a ti zlatko proveri koliko je brza

) koja proverava da li je rec palindrom...

Kod:

int palindrom(char *str, int n) {
   for (int z=0; z<n/2; z++) if (*(str+z)!=*(str+n-1-z)) return 0;
   return 1;
}

Nema

zlatko · **Poslato:** 14.11.2002. 02:24:54

kruzer je napisao:

btw: ono za obrnutu rec sam se gadno istripovao posto sam zaboravio da napisem da treba resiti rekurzivnom funkcijom...
sorry... ???

Pa

rebel_master · **Pridružio se:** 15.11.2002. 10:46:53 **Postovi:** 18

zlatko je napisao:

kruzer je napisao:

Evo funkcije u C-u(opet kratka, a ti zlatko proveri koliko je brza

) koja proverava da li je rec palindrom...

Kod:

int palindrom(char *str, int n) {
   for (int z=0; z<n/2; z++) if (*(str+z)!=*(str+n-1-z)) return 0;
   return 1;
}

Nema

zlatko · **Poslato:** 16.11.2002. 09:13:55

Uvek mo

zlatko · **Poslato:** 16.11.2002. 16:31:58

Rebel je trebao da proveri da li je to

hodac · **Poslato:** 18.11.2002. 00:34:32

Meni zanima kako da ispisem X sa indeksom 1.Takodje kako i da ispisem X na kvadrat.Malo lame pitanja.

kruzer · **Poslato:** 18.11.2002. 01:02:45

hodac je napisao:

Meni zanima kako da ispisem X sa indeksom 1.Takodje kako i da ispisem X na kvadrat.Malo lame pitanja.

pa ako sam te dobro razumeo evo odgovora...
sve spec. simbole u textualnom re

rebel_master · **Pridružio se:** 15.11.2002. 10:46:53 **Postovi:** 18

zlatko je napisao:

Rebel je trebao da proveri da li je to

zlatko · **Poslato:** 18.11.2002. 16:52:51

rebel_master je napisao:

Jesi siguran da nemoze brze?
Ako se vec toliko trudite oko brzine i optimizacije koda evo dokaza da moze josh brze.

Kod:

int palindrom(char *str, int n) {
   int temp = str+n;
   for (int z=0; z<n/2; z++) if (*(str+z)!=*(temp-1-z)) return 0;
   return 1;
}

ovo je jedno od osnovnih pravila kada su u pitanju petlje
i kad kod mora da se optimizuje do maksimuma
,naravno ovde nema veliki znacaj koliko ima kod nekih drugih stvari (demo coding,grafiks,real-time app)

e od ovoga nema brze...

Dokazuje

rebel_master · **Pridružio se:** 15.11.2002. 10:46:53 **Postovi:** 18

Zlatko je napisao:

Svakako da program napisan u C++ pomo

zlatko · **Poslato:** 19.11.2002. 02:37:55

Nisam ba

hodac · **Poslato:** 19.11.2002. 19:11:01

kruzer dobro si me razumeo.Ali nas asistent tvrdi da je moguce. Kako da ostampam ascii karakter u pascalu.

kruzer · **Poslato:** 19.11.2002. 23:21:47

hodac je napisao:

kruzer dobro si me razumeo.Ali nas asistent tvrdi da je moguce. Kako da ostampam ascii karakter u pascalu.

u pascalu ascii pises pozivom standardne funkcije
function chr(i : byte):char;

npr:
.
.
.
writeln(chr(224)); {stampa simbol za alfa}
.
.
.

za index stvarno ne znam, aj ako ti na kraju ASSistent bude rekao napisi vamo kako...mada ne kapiram sto vas muci tim sitnicama.

hodac · **Poslato:** 21.11.2002. 00:39:37

Ma podrzameva dobro znanje iz srednje (koje realno ima 4 %), i citanje literature (a ja sam jce tek nabavio nesto ) , u svakom slucaju hvala.

kruzer · **Poslato:** 21.11.2002. 20:11:37

hodac je napisao:

Ma podrzameva dobro znanje iz srednje (koje realno ima 4 %), i citanje literature (a ja sam jce tek nabavio nesto ) , u svakom slucaju hvala.

pazi ovako... malo sam se zainteresovao za tu malu jedinicu i nema

FONForum

Mala slova u velika - pascal procedura

Ko je OnLine