Question

Musze napisac program w aplikacji Turbo Pascal ktory ma wypisac liczby od 0 do 10 wlacznie

Pierwszy program musi byc z petla for

Drugi program musi byc z petla while .

Answer 1

Pierwszy:

 

var I: Byte; //zmienna byte zajmująca jeden bajt (w prównaniu do longint zajmującego 4 bajty)

Begin

 For I := 0 To 10 Do //iterujemy od 0 do 10

  Writeln(I); //i wypisujemy na standardowe wyjście

End.

 

 

Drugi:

var I: Byte;
Function Add(var I: Byte): Byte; //przekazywanie przez referencję (osobiście bardzo to lubię). Działa to na zasadzie, że jeżeli przekażemy do tej funkcji jakąś zmienną, to ta funkcja ją zinkrementuje i zwróci zinkrementowaną (czyli podniesioną o jeden) wartość.
Begin
I := I+1; //dodajemy 1 do I
Add := I; //i zwracamy wartość I
End;
Begin
I := -1; //ustawiamy I na -1, ponieważ po wykonaniu add(i) zmienna I będzie miała wartość 0, a mamy wyświetlić liczby od 0 do 10
While (Add(I) < 11) Do //pętla while
Writeln(I); //wyświetlamy
End.

 

Ew.bardziej zrozumiała wersja 2:

var I: Byte;

Begin

 I := 0;

 While (I < 10) Do

 Begin

  Writeln(I);

  Inc(I);

 End;

End;