Question

Napisz program, który wypisze liczby od 1 do 12 i od 12 do 1.

Aby wykonać ćwiczenie powinieneś:

1) wpisz nazwę pliku i identyfikator w nazwie programu 1do12do1,

2) po identyfikatorze programu wstaw komentarz {Twoje nazwisko},

3) wprowadzić właściwy typ danych,

4) wpisać kod, zapisać na dysku, skompilować program i poprawić ewentualne błędy,

5) uruchomić program i przetestować,

6) zastosuj następującą instrukcję: While Do,

Zadanie wykonaj w dev-Pascalu

Answer 1

Wersja kodu taka, jaką rozsądny i zdrowy umyślnie człowiek by napisał:
Program nazwijsegojakchcesz;
Var I: 1..12;
Begin
For I := Low(I) To High(I) Do
Write(I, ' ');
Writeln;
Writeln('-----------');
For I := High(I) Downto Low(I) Do
Write(I, ' ');
End.

Wersja kodu zgodna z treścią zadania:
Program nazwijsegojakchcesz;
Var I: 0..13;
Begin
I := Low(I)+1;
While (I < High(I)) Do
Begin
Write(I, ' ');
Inc(I);
End;

Writeln;
Writeln('-------------');

I := High(I)-1;
While (I > 0) Do
Begin
Write(I, ' ');
Dec(I);
End;
End.
http://ideone.com/4QdeHI