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
->
przykladowe zadania
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: Śro 23:42, 06 Lut 2008
Temat postu:
nie wszyscy tutaj beda wiedziec o co chodzi, wrzucaj komentarze
program zapelnianie;
uses crt;
var
x:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do {petla, ktora sluzy do sterowania tablica}
begin
x[i]:=5;{tablica sterowania zmienna i, (wiecej pisze pod programem;)}
end;
readln; {czyli musimy wciskac enter zeby program przeszedl}
{dalej.}
end.
*************************************************************
for i:=1 to 10 do
x[i]:=5;
a wiec tak, w petli uzywamy zmiennej I, ktora co obieg petli zwieksza sie o 1.
do sterowania tablica tez uzywamy tej samej zmiennej. a wiec przy pierwsyzm obiegu petli bedziemy przypisywac do pierwszej pozycji w tablicy, a po nastepnym obiegu juz do drugiej pozycji.
*************************************************************
zastosowany USES CRT; jest tutaj uzyty do obslugi ekranu, np dodawanie koloru teksu, koloru tła, czyszczenie ekranu. opis dodawania kolorow jest w dziale z rzeczami ponad programowymi.
tehran
Wysłany: Śro 22:15, 06 Lut 2008
Temat postu: zapelnianie tablic 5
program zapelnianie;
uses crt;
var
x:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
x[i]:=5;
end;
for i:=1 to 10 do
writeln(x[i]);
readln;
end.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin