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 2
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ść
tehran
Wysłany: Sob 22:08, 09 Lut 2008
Temat postu: Pętla repeat-until
skladnia petli:
repeat
instrukcja_1;
instrukcja_2;
until
warunek{np.zmienna a>3}
I teraz prosty przyklad:
program wypisujacy kwadraty kolejnych liczb petla repeat-until.
program kwadraty; {program ma nazwe kwadraty}
var {deklarujemy zmienne}
a,b:integer; {zmienne mieszcza sie w zakresie 2 bajtow i sa calkowite}
begin {zaczynamy program}
repeat {nastepuje otwarcie peli}
writeln (' kwadrat ' , i , 'wynosi' ,i*i);
i:=i+1; {co obieg petli i zwiekszamy o 1}
until i>100; {jesli zmienna i bedzie wieksza od
readln; 100 to paskal wypisze kwadraty
end. kolejnych liczb}
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin