Uvod u programiranje: C++, Pascal

stranica ne postoji

Probaj ponovno promijenio sam link.

greškom sam stavio pogrešan.

Petica za trud iako bi se ovdje moglo puno toga reći ali ima vremena za polemike među programerima,inače za početnike ali početnike početaka je ok.hmmmm

Da si pročitao do kraja shvatio bi da je svrha te podstranice upravo da upozori na takve prijevare na net-u a ne da mi pošaljete lozinke, taj blog sam pronašao preko google-a (a znamo da ih ima mnogo).

Odlomak sa podstranice:

Ovaj blog obečava milijune ako pošajete mail na facebookpokerchip1000@net.hr. Ako bolje pogledate shvatit će te da se navedena adresa nalati na Net.hr portalu koji nema nikakve veze sa facebook serveima. I ovdje vas traži vaše korisničko ime i lozinku, što nikad nemojte odavati.

    Facebook serveri imaju odlične mjere sigurnosti i nikako ih ne možete zaobići pomoću maila. Još jedna otežavajuča okolnost za varanje je i taj što texas holdem poker na facebook-u uređuje Zynga. Stoga zaboravite na to da će vam netko dati milijune čipova, jedini način da ih zaradite je da igrate, uživate u igri i čipovi će sami doći.

Gotov je i uvod u klase i objekte.

Nadam se da ću ovaj tjedan uspjeti objasniti klase malo naprednije i pobliže te pojasniti koji zadatak sa natjecanja i pokoji algoritam...

Super! Vjerujem da ce koristiti nekim ucenicima.

Samo molim te ispravi neke stvari - recimo Pascal tipovi varijabli i naredbe - tu imas vise gresaka. Raspon za char je od "nultog" znaka do 255-tog znaka (dakle, znakovi u prosirenoj ASCII tablici) - znaci, rijec je o znakovima, a ne brojevima, kao u C++-u, gdje se char moze promatrati kao znak, ali i kao broj (signed char ima spominjan raspon od -128 do 127). U Pascalu za to moras raditi konverziju (funkcije Ord i Chr). Uporabom operatora + znakovi (charovi) se spajaju u string, a ne da se oni zbroje. Delphi i Free Pascal za tu namjenu imaju tipove ShortInt (-128..127) i Byte (0.255).

String je niz charova - u biti jednodimenzionalno polje charova, kod kojeg nulti clan oznacava broj znakova u stringu. "Logicki operatori" (zapravo bi trebalo pisati "Logicki tip") u Pascalu nije bool nego boolean i ima raspon true ili false. Ispitivanje jednakosti - operator == postoji u C++-u, dok se za tu namjenu u Pascalu koristi operator =.

Takodjer, operator za dijeljenje kad ti je rezultat integer nije / nego div.

Trebalo bi dopisati i operator za negaciju: not.

Tako je. Cak bi se zapravo moglo reci za vecinu slucajeva: ne samo da moze, nego mora. Jer ako koristis operator div, dobit ces cijeli broj (dakle bez decimala) cak i ako ti je varijabla u koju ces spremiti rezultat operacije tipa real.

Zaista mi je cudno da tako nesto pise u udzbeniku - to mi vise lici kao da su uzeli teoriju od C++-a i onda pokusavali preoblikovati za Pascal, ali su pola toga propustili. Mislim da bi bilo bolje da za izvor uzmes neki web-site na engleskom jeziku.

Nisam kod detaljno gledao, cini se OK - ali ne i ovaj primjer. Prvo glede formatiranja koda - savjetovao bih ti da malo drugacije uvlacis retke. Naime, dok je kod C++-a cesta praksa pisati { za pocetak bloka naredbi na kraju reda, u Pascalu begin u pravilu ide u novi red, a i cesto se ono unutar begin..end uvlaci za dva razmaka - sve to radi preglednosti. Znaci, imas kod:

program Koliko_je_vecih;
var a,b:integer;
begin
    writeln('Unesi prvi broj');
    readln(a);
    writeln('Unesi drugi broj');
    readln(b);
    if ((a>5)or(b>5)) then begin      Prvo provjeravamo da li je barem jedan
    writeln('Veći je',b');            broj veći od 5.
    if ((a>5)and(b>5)) then begin     Provjeravamo da li su oba broja veća od 5.
    writeln('Veći je',a);
    end;
    end                          Ako nakon end ide else nakon end ne ide .(točka)
    else begin
    writeln('Nijedan nije veći');
    end;
    readln;
end.

Iz tog koda uopce ne kuzis koji blokovi naredbi su vanjski, koji unutarnji. Znaci, oblikovano bi trebalo biti nekako ovako (ja inace i begin i end uvlacim za dva mjesta, ali mislim da to drugi ne cine ili bar ne mnogi od njih):

program Koliko_je_vecih;
var
  a, b: integer;
begin
  writeln('Unesi prvi broj');
  readln(a);
  writeln('Unesi drugi broj');
  readln(b);
 
  if (a>5) or (b>5) then
  begin    
    writeln('Veći je',b');          
    if (a>5) and (b>5) then
    begin
      writeln('Veći je', a);
    end;
  end
  else
  begin
    writeln('Nijedan nije veći');
  end;
 
  readln;
end.
Sad se jasno vidi da je onaj drugi if unutar prvog. Uoci jos jednu stvar - ako u pascalu imas samo jednu naredbu u if-then, ili unutar repeat itd., ne trebas ih zatvarati u blok begin..end. Znaci, gornji primjer se moze preglednije napisati kao:
program Koliko_je_vecih;
var
  a, b: integer;
begin
  writeln('Unesi prvi broj');
  readln(a);
  writeln('Unesi drugi broj');
  readln(b);
 
  if (a>5) or (b>5) then
  begin    
    writeln('Veći je', b');
    if (a>5) and (b>5) then
      writeln('Veći je', a);  
  end
  else
    writeln('Nijedan nije veći');
  
  readln;
end.

Jos jednu stvar bih ti preporucio: writeln, readln i sl. je bolje pisati kao WriteLn, ReadLn itd. Uobicajena konvencija kod Pascala je da u nazivima identifikatorima (znaci, nazivima varijabli, funkcija, klasa/objektnih tipova) svaku rijec zapocinjes velikim slovom. Kako je writeln kratica za "write line", to bi bilo idealno (i preglednije) pisati kao WriteLn.
Takodjer, za razliku od C++-a, uvjet za if ne moras zatvarati u zagradu - znaci, umjesto if ((a>5)or(b>5)) then bolje je pisati if (a>5) or (b>5) then - preglednije je. A jos jedna konvencija uobicajena i kod programskih jezika i kod opcenito pisanja teksta u knjigama/novinama je - iza interpunkcijskih znakova, a ispred slova, ide razmak. Znaci, writeln('Veći je',a); je bolje napisati kao WriteLn('Veći je', a);

Naravno, nitko te ne sili da se drzis tih konvencija, ali kod ce ti biti pregledniji, citkiji. A ona vezana uz uvlacenje redaka naredbi koje su na hijerarhijski nizoj razini je prakticki obavezna - bez toga imas rasulo u kodu.



Sad, sto se tice koda... Program nisam izvrsio, ali ovako naocigled ima gresku. Ako upises brojeve 6 za a i 1 za b, program ce ti ispisati da je broj 1 (iliti b) veci od 5! Ispravan kod je:


  if (a>5) or (b>5) then
    begin   
      if (a>5) then WriteLn('Veći je ', a);
      if (b>5) then WriteLn('Veći je ', b);
    end
  else
    writeln('Nijedan nije veći');

Ma nemoj to smatrati kao "toliko pogresaka" - jedine pogreske koje si ucinio su "logicka" (algoritamska) zbog cega ti program ne radi dobro i to sto nisi uvlacio redove (sto je mozda jedan od uzroka sto si napravio algoritamsku pogresku, jer nisi vidio sto se kad/u kojem slucaju izvrsava). Sve ostalo nisu pogreske, ali su korisne stvari za znati i za primjenjivati, jer se to tako inace radi. Pogledaj npr. izvorni kod primjera koji su dosli s Free Pascalom.

Ovo bas i nisam shvatio. U svom kodu nisam pisao nikakve skracene oblike - ako mislis na zagrade kod if uvjeta, to nije skraceni oblik, nego si ti stavio zagrade koje su suvisne, kojima u prvom redu tu ni nije mjesto. Ako mislis to sto sam uklonio begin..end blokove unutar kojih je samo jedna naredba i to je tesko smatrati kracenjem. Naime, grananje if je oblika if <condition> then <command> else <command>. Sad je samo stvar u tome da ti jednu naredbu (<command>) mozes (ali ne moras) zamijeniti blokom naredbi (begin <command> <command> <command> ... end;)

Ne znam zasto si se gubio - mozda bas zbog toga sto si mislio da su naredbe oblika if <condition> then begin <command>...<command> end else begin <command>...<command> end. A to nije tako. Ako pogledas, to je zapravo - kompliciranje.  A ne da je oblik bez blokova kracenje.

E, da - tamo na stranicu s tipovima varijabli i naredbama medju operatore trebao bi dodati i operator pridruzivanja, odnosno := (dakle, varijabla := vrijednost; )

Sad ces znati. Blok begin..end sluzi tome da zamjenis jednu naredbu s vise njih.

Tako je, u ovom slucaju treba begin..end, a kad bi bilo samo WriteLn, onda bi bilo samo if (....) then WriteLn('blalval');

S tim da pokusaj pisati kod uvazavajuci Pascalovu konvenciju - znaci, rezervirana rijec begin ide u novi red, a sve unutar begin..end bloka uvuces za dva razmaka:

if (....) then
begin
  c:=a+b;
  a:=a+2;
  WriteLn('blalval');
end;

Ako to ne radis, onda ti je tesko iscitati koje naredbe se odnose na taj if. Ovako odmah vidis da je rijec o tri naredbe. U ovom slucaju to i nije neki problem, ali ako imas if unutar if-a, onda zbilja tesko mozes vidjeti koje naredbe se odnose na koje if-grananje i lakse ces napraviti gresku.