Kapcsolódó sorozat: Programozzunk Pascalban (109)

(1)

(104)

• 

  Programozzunk Pascalban: a repeat until ciklus

  2009. március 28. 13:26:49 |

  Készítette: Csontos

  Az alábbi tippben a Pascal programozási nyelv alapjaiba nyújtunk betekintést, először a repeat until ciklust tanulhatjuk meg.

  

• Amire szükségünk lesz

  számítógép

• A repeat until ciklus

  user crt;
  var
  a.b:string; // megadjuk a változókat
  begin
  clrscr // képernyő törlése
  a:= ’Videosmart’; // megadjuk a változó értékét, ha szöveg az érték, akkor mindig ’aposztrof közé kell rakni’
  repeat // a repeat ciklus indítása
  writeln <’Hova töltöm fel ezt a videót?’>;
  readln;
  if a-b then writeln <’Jó’> // ha a-b akkor azt írja ki, hogy Jó, ha nem akkor pedig Rossz. A sor végére nem teszünk pontosvesszőt, mert ez a két utasítás egybe tartozik
  else writeln <’Rossz’>;
  until a-b; // addig kérdezi, amíg nem adjuk meg a jó választ
  readln; // vár az enter lenyomására, így nem lesz vége a programnak azonnal
  end.