Pomoc oko zadatka iz pascala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Za vreme raspusta odlucio sam malo da se pozabavim programiranjem. Kum mi je dao njegovu knjigu iz koje je on ucio da programira u pascalu i delphiju od S.Langfield. Prve 4 lekcije sam "sredio" majstorski tj sve zadatke sam iz prve resio. E sad dosao sam do lekcije Iteracija i dobio sam zadatak da napisem program koji u istom redu ekrana pomoc petlje for 4 puta prikazuje rec "zdravo".
Ideju nemam ama bas nikakvu tj sve sto sam probao nije valjalo. Svaka pomoc je dobrodosla

• 2Ovo se svidja korisnicima: NIx Car, DenisUA98
  
  Registruj se da bi pohvalio/la poruku!

Jel znas kako se koristi for naredba? Tj. jesi radio nekad bilo sta u petlji?
Ideja ti je ovde jednostavna, uzmes neku promenljivu "i" i postavis njenu vrednost na 1.
Zatim postavis for petlju koja ce da se krece po tom "i" od 1 do 5 ( dok je manje od 5) i stavis ispod jedan write sa tom recju koja ti treba.
I ce ti uzimati vrednosti 1,2,3,4, a kad dodje do 5 - "iskocice" iz petlje i imaces znaci 4 puta napisano to sto ti treba.

• 1Ovo se svidja korisniku: N1k0l4
  
  Registruj se da bi pohvalio/la poruku!

Napisano: 29 Apr 2011 11:29

samo sam koristio if..then petlju i naredbu case of.
Uspeo sam hvala nisi morao za rodjendan da se trosis na mene

Dopuna: 29 Apr 2011 12:43

ima jos nekih zadataka koje ne znam da resim tj nemam ideju za kod...ali to cemo kad slavlje prodje

Dopuna: 29 Apr 2011 15:11

imam samo jos jedno pitanje oko zadatka: d napisite program koji od korisnika zahteva da upise broj zvedica u redu i broj tekvih redova koje treba prikazati.
Ja sam napisao sledeci kod
program Project2; {$APPTYPE CONSOLE} uses   SysUtils;   var   x,z,m:integer; begin readln(x); readln(z); for m:=1 to x do write('*'); for m:=1 to z do writeln('*'); readln;    end .
ali uvek dobijem da mi je samo prvi red ok a ovi ostali da nisu...u cemu gresim?

• 1Ovo se svidja korisniku: NIx Car
  
  Registruj se da bi pohvalio/la poruku!

Ta druga petlja ti ispisuje samo po jednu zvezdicu.



For i:=1 To BrojRedova Do   begin     For j:=1 To BrojZvezdica Do       Write('*');     WriteLn('');   end;