pocetnik,pomoc,CASE f-ja...

pocetnik,pomoc,CASE f-ja... 14.03.2007. u 16:35 · pre 239 meseci #1

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

Re: pocetnik,pomoc,CASE f-ja... 15.03.2007. u 16:17 · pre 239 meseci #2

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.

Re: pocetnik,pomoc,CASE f-ja... 16.03.2007. u 17:48 · pre 239 meseci #3

Hvala raiser!

Re: pocetnik,pomoc,CASE f-ja... 17.03.2007. u 17:38 · pre 238 meseci #4

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

Potpis

www.starisloveni.com
www.inspiratron.org

Re: pocetnik,pomoc,CASE f-ja... 17.03.2007. u 18:55 · pre 238 meseci #5

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;

Potpis

"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

Re: pocetnik,pomoc,CASE f-ja... 18.03.2007. u 00:40 · pre 238 meseci #6

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.

Potpis

www.starisloveni.com
www.inspiratron.org

Re: pocetnik,pomoc,CASE f-ja... 22.03.2007. u 11:49 · pre 238 meseci #7

Molim Supermoderatora da se izbrise ova tema
Hvala u napred

Re: pocetnik,pomoc,CASE f-ja... 22.03.2007. u 14:39 · pre 238 meseci #8

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

Re: pocetnik,pomoc,CASE f-ja... 23.03.2007. u 19:49 · pre 238 meseci #9

@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;)

Forum kao aplikacija na telefonu

Srodne teme