www.techinf1.fora.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.techinf1.fora.pl Strona Główna
->
dla grupy 1
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Turbo Pascal
----------------
dla grupy 1
dla grupy 2
programiki pisane 'po godzinach'
przykladowe zadania
rzeczy ktorych nie bralismy:)
WAŻNE-ZAGLADNIJ
troche trudniejsze-wyzsza szkola jazdy
C++
----------------
C + +
Przegląd tematu
Autor
Wiadomość
isar
Wysłany: Nie 15:22, 03 Lut 2008
Temat postu: Petla While-Do
a wiec teraz petla While Do
wyglada ona tak:
While warunek Do
begin
dzialanie
end;
czyli:
While a>b do
begin
a:=a+1
end;
program niby nic nie robi, ale mozemy zobaczyc chociaz po czesci dzialanie petli
program sprawdza czy warunek (a>B) jest prawdziwy jesli tak robi to co po begin, czyli dodaje do A liczbe 1 i znowu sprawdza czy a>b
while=do mometu kiedy, warunek jest prawdziwy. do -wykonaj
a wiec prosty program wypisujacy 'ti1' 10x;)
program czwarty;
var a : integer;
begin
a:=1;
while a<=10 do
begin
writeln('ti1');
end;
readln;
end.
zastosowalem cos takiego: <= oznacza to "mniejsze lub rowne"
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin