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 12:32, 06 Lut 2008
Temat postu: wypisywanie liczb parzystych i nieparzystych do tablicy
do obydwu zadan (wypisywanie liczb nieparzystych, i parzystych) bedzie nam potrzebna reszta dzielenia (mod) przez dwa. a zadanie bedzie wygladalo tak:
program parzyste ;
var liczba: integer ;
pet : integer ;
tab : array[1..100] of real;
begin
liczba:=100;
for pet:=1 to 100 do
begin
if liczba mod 2=0 then tab[pet]:=liczba; {jezeli liczba parzysta to}
{ja przypisuje do tablicy}
if liczba mod 2=0 then writeln(liczba); {jezeli liczba jest parzysta to ja }
{wyswietla }
liczba:=liczba-1;
end;
readln;
end.
na tej samej zasadzie robimy program ktory bedzie nam wyswietlal liczby nieparzyste, tylko wynik z dzialania: liczba mod 2 musi wynosic 1.
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin