pocetnik,pomoc,CASE f-ja...

[ bratovuk @ 14.03.2007. 15:35 ] @

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

[ X Files @ 15.03.2007. 15:17 ] @

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.

[ bratovuk @ 16.03.2007. 16:48 ] @

Hvala raiser!

[ dreadknight @ 17.03.2007. 16:38 ] @

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

[ chachka @ 17.03.2007. 17:55 ] @

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;

[ dreadknight @ 17.03.2007. 23:40 ] @

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.

[ bratovuk @ 22.03.2007. 10:49 ] @

Molim Supermoderatora da se izbrise ova tema
Hvala u napred

[ reiser @ 22.03.2007. 13:39 ] @

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

[ bratovuk @ 23.03.2007. 18:49 ] @

@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]}