- Programming PL
   http://www.programmingpl.pun.pl/index.php
- Pascal i Delphi
   http://www.programmingpl.pun.pl/viewforum.php?id=5
- Poradnik Pascal Funkcja Switch
   http://www.programmingpl.pun.pl/viewtopic.php?id=4

Internetowy Pingwin Ninja - 2013-04-18 20:01:47

piszemy tak:

... tutaj mamy jakis tam kod


read(zmienna);
case Zmienna of
1:begin ..Jakis tam kod
end;
end.

... tutaj mamy jakis tam kod

Przykładowy program:

program Przykład;

var Zmienna:Integer;
begin
Writeln('Aby wyswietlic tekst 1. nacisnij 1, aby wyswietlic tekst 2. wpisz 2.');
Read(Zmienna);
case Znienna of
1:begin
Write('Tekst1');
end;
2:begin
Write('Tekst 2');
end;
end

end.


Jeśli popełniłem błąd w ordokrafi to napiszcie. :D

ZaistyEve - 2013-04-18 20:03:54

Ojj Pingwinie :D

Internetowy Pingwin Ninja - 2013-04-19 20:44:50

Pingwinie? co ty ***** sb myślisz? Jestem internetowym Pingwinem. :offtopic:
:angel:
www.amibl.pun.pl www.undersiemce.pun.pl www.comfon.pun.pl www.maratonkrzeszowice.pun.pl www.athenahutis.pun.pl