[es] - pocetnik,pomoc,CASE f-ja...

bratovuk
Belgrade

Član broj: 134201
Poruke: 95
*.adsl-1.sezampro.yu.

Profil

^{14.03.2007. u 15:35 - pre 208 meseci}

Ucim Turbo Pascal..i stade mi mozak kod 4 glave knjige, Milan Cabarkapa,Osnovi prog. u pascalu...
..
evo koji zadatak me buni:

zad br. 22. str 52:

Napisati CASE naredbu ekvivalentnu sledecoj if naredbi:

if k=0
then r:=r+1
else
if k=1
then s:=s+1
else
if (k=2) or (k=3) or (k=4)
then t:=t+2

Molim vas za odgovor.
PS. Nemojte da se ljutite sto ovo ne znam, pocetnik sam!

HVALA

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4902
*.dynamic.sbb.co.yu.

Jabber: xfiles@elitesecurity.org

+638 Profil

Re: pocetnik,pomoc,CASE f-ja...

^{15.03.2007. u 15:17 - pre 208 meseci}

Sorry, greškom obrsiah reiser-ov odgovor.

Nick autora poruke: reiser
Vreme brisanja: 15.03.2007. - 17:13 GMT

Ovo je sadrzaj originalne poruke:
--cut here--

Code:

Case k of
  0       : r := r + 1;
  1       : s := s + 1;
  2, 3, 4 : t := t + 2;
End;

--cut here--

Još jednom - izvinjenje reiser-u.

Odgovor na temu

bratovuk
Belgrade

Član broj: 134201
Poruke: 95
*.adsl-1.sezampro.yu.

Profil

Re: pocetnik,pomoc,CASE f-ja...

^{16.03.2007. u 16:48 - pre 208 meseci}

Hvala raiser!

Odgovor na temu

dreadknight
Nikola Milosevic
Beograd

Član broj: 113813
Poruke: 66
*.dynamic.sbb.co.yu.

Sajt: www.inspiratron.org

+3 Profil

Re: pocetnik,pomoc,CASE f-ja...

^{17.03.2007. u 16:38 - pre 208 meseci}

aj ovde da postavim,da ne otvaram novu temu. Ili bi valjalo da postoji neka tema tipa Delphy problemi ili nekako sl.
Kako se deklarise u Delphy-ju text datoteka? I kako se koristi onda assign? Mislim da sam cak i deklarisao text datoteku negde gde su deklarisane globalne promenljive,a posle jel treba da stavim tamo gde pise procedure Button1Click(nesto ovde unutra,pa jer treba da dopisem var datoteka:text);
Pre sam radio u pascalu na fakultetu,nest mali i u delphiju ali kod ovoga sam se bagovao danas preko pola sata i nisam mogao da nadjem nista u helpu

www.starisloveni.com
www.inspiratron.org

Odgovor na temu

chachka
Srđan Mijatov
Programer
BUS Computers
Kikinda

Član broj: 53780
Poruke: 576
*.dialup.neobee.net.

Sajt: www.baze-podataka.net

+4 Profil

Re: pocetnik,pomoc,CASE f-ja...

^{17.03.2007. u 17:55 - pre 208 meseci}

Bolje da si otvorio novu temu.
Valjda ce ti ovo pomoci

Code:

procedure TForm1.Button1Click(Sender: TObject);
  var
    f: TextFile;
begin
  AssignFile(f, 'ime_fajla');
  Append(f); // otvaranje fajla za dodavanje novog teksta
(* Rewrite(f) ; // otvaranje (ili kreiranje) fajla za dodavanje novog teksta uz brisanje predhodnog teksta *)
  WriteLn(f, 'neki_tekst');
  Flush(f);
  CloseFile(f);
end;

"The best code is no code at all."
- Zidar (ES član)
"Biggest obstacle to learning
SQL is unlearning procedural
programming." - Joe
Celko
"Minimize code, maximize data."
- A. Neil Pappalardo

Odgovor na temu

dreadknight
Nikola Milosevic
Beograd

Član broj: 113813
Poruke: 66
*.dynamic.sbb.co.yu.

Sajt: www.inspiratron.org

+3 Profil

Re: pocetnik,pomoc,CASE f-ja...

^{17.03.2007. u 23:40 - pre 208 meseci}

malo mi je glupo da se otvara tema kad nekom padne na pamet da nesto pita i onda svaka tema ima po 3 posta:pitanje,odgovor i Hvala.

Hvala,koliko vidim ovde je malo drugacije od pascala,ovde je umesto text,textfile,umesto assign,assign file... Igracu se ja s tim.

www.starisloveni.com
www.inspiratron.org

Odgovor na temu

bratovuk
Belgrade

Član broj: 134201
Poruke: 95
*.adsl.sezampro.yu.

Profil

Re: pocetnik,pomoc,CASE f-ja...

^{22.03.2007. u 10:49 - pre 208 meseci}

Molim Supermoderatora da se izbrise ova tema
Hvala u napred

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: pocetnik,pomoc,CASE f-ja...

^{22.03.2007. u 13:39 - pre 208 meseci}

Tema nije glupa i nema potrebe da se brise, mozda jos nekome pomogne. Nema potrebe da spamujes.

Odgovor na temu

bratovuk
Belgrade

Član broj: 134201
Poruke: 95
*.adsl-1.sezampro.yu.

Profil

Re: pocetnik,pomoc,CASE f-ja...

^{23.03.2007. u 18:49 - pre 208 meseci}

@raiser
Pa ajd, nije glupa:)

Imam problem, napisao sam jedan prost program, i kad ga pokrenem nikako da izadjem iz njega!( naredba je
while x<1E08 do x:=sqr(x) , ma u sustini naredba je nebitna!) ...Dal zna neko sta se kuca da bi se vratio na editor( pokusavao sa exit,back, end....i nista!) Koristim TP07...

Hvala unapred;)

_{[Ovu poruku je menjao bratovuk dana 28.03.2007. u 14:26 GMT+1]}

Odgovor na temu