pascal, tablice, liczby parzyste
-
- Użytkownik
- Posty: 459
- Rejestracja: 16 wrz 2008, o 20:50
- Płeć: Kobieta
- Lokalizacja: gradowa
- Podziękował: 357 razy
pascal, tablice, liczby parzyste
2. W 10 elementowej tablicy D jest zapisanych losowo 10 nie powtarzających się liczb naturalnych z przedziału od 1 do 10. Napisz program wyświetlający informację w których elementach tablicy zapisane są liczy parzyste.
-
- Użytkownik
- Posty: 6
- Rejestracja: 22 maja 2009, o 23:41
- Płeć: Mężczyzna
- Lokalizacja: Kraków
- Pomógł: 4 razy
pascal, tablice, liczby parzyste
Var
D:array[1..10] of byte;
licznik:byte;
Begin
For t:=1 to 10 do
begin
if(D[t] mod 2 = 0) then
write(t);
End;
End.
mam nadzieję że to o to chodzi
D:array[1..10] of byte;
licznik:byte;
Begin
For t:=1 to 10 do
begin
if(D[t] mod 2 = 0) then
write(t);
End;
End.
mam nadzieję że to o to chodzi
-
- Użytkownik
- Posty: 459
- Rejestracja: 16 wrz 2008, o 20:50
- Płeć: Kobieta
- Lokalizacja: gradowa
- Podziękował: 357 razy
pascal, tablice, liczby parzyste
nie wiem dlaczego cały czas wyswietlaja mi sie liczby z przedziału od 1 do 10?
- Dedemonn
- Użytkownik
- Posty: 689
- Rejestracja: 21 lut 2007, o 19:40
- Płeć: Mężczyzna
- Lokalizacja: Z kompa
- Podziękował: 26 razy
- Pomógł: 137 razy
pascal, tablice, liczby parzyste
ROTFL! Przeczytałeś chociaż treść zadania, czy przekleiłeś to bezpośrednio bez spojrzenia na to?mateusz.ex pisze:nie wiem dlaczego cały czas wyswietlaja mi sie liczby z przedziału od 1 do 10?
N/C
-
- Użytkownik
- Posty: 459
- Rejestracja: 16 wrz 2008, o 20:50
- Płeć: Kobieta
- Lokalizacja: gradowa
- Podziękował: 357 razy
pascal, tablice, liczby parzyste
przeczytałem, i rozumie, ale zawsze wyswietlaja mi sie liczby 1,2,3..10, ale to chyba nie mozliwe, ze by za kazdym razem wszystkie wylosowane były parzyste. chyba że nie zrozumiałem:(
-
- Użytkownik
- Posty: 2278
- Rejestracja: 11 kwie 2007, o 18:49
- Płeć: Kobieta
- Lokalizacja: Dąbrowa Górnicza
- Podziękował: 41 razy
- Pomógł: 602 razy
pascal, tablice, liczby parzyste
może coś takiego ale nie jestem pewna.. nie mam w chwili obecnej TP na kompie
Kod: Zaznacz cały
program los;
var d:array[1..10]of byte;
t:integer;
begin
randomize;
for t:=1 to 10 do
begin
d[t]:=random(10)+1;
if(d[t]mod 2=0)then write(t);
end;
end.
-
- Użytkownik
- Posty: 459
- Rejestracja: 16 wrz 2008, o 20:50
- Płeć: Kobieta
- Lokalizacja: gradowa
- Podziękował: 357 razy
pascal, tablice, liczby parzyste
var l: array[1..100] of real;
i,t: integer;
li:real;
begin
randomize;
for i := 1 to 10 do l:= int(random(100));
if (l mod 2 = 0) then writeln(l);
readln;
end.
wyskakuje mi bład, na liczbie 2. (mod 2)-- 31 maja 2009, 13:27 --
dzieki:) działa!
i,t: integer;
li:real;
begin
randomize;
for i := 1 to 10 do l:= int(random(100));
if (l mod 2 = 0) then writeln(l);
readln;
end.
wyskakuje mi bład, na liczbie 2. (mod 2)-- 31 maja 2009, 13:27 --
natkoza pisze:może coś takiego ale nie jestem pewna.. nie mam w chwili obecnej TP na kompieKod: Zaznacz cały
program los; var d:array[1..10]of byte; t:integer; begin randomize; for t:=1 to 10 do begin d[t]:=random(10)+1; if(d[t]mod 2=0)then write(t); end; end.
dzieki:) działa!