Skocz do zawartości


Zdjęcie

[PASCAL] Tablice dwuwymiarowe


  • Zamknięty Temat jest zamknięty
Brak odpowiedzi do tego tematu

#1 Iss66

Iss66

    Początkujący

  • 11 postów

Napisano 26 05 2009 - 14:39

Witam wszystkich, oto zadanie które mam do napisania.

Napisz program w Pascalu, który:
a ) stworzy tablice 10 x 10 liczb
b ) wypełnij ją losowymi wartościami z zakresu [-10, +10]
c ) wszystkie nieparzyste liczby w tej tablicy zamieni na 0


To co udało mi się napisać poniżej:
CODE-BOX
Program tablice;
uses Crt;
var
tablica:array[1..10,1..10]of integer;
i,j,x,y:byte;
begin
clrscr;
randomize;
writeln;
writeln('Rozmiar tablicy:10x10');
writeln('Liczby z zakresu od -10 do 10');
writeln;
writeln;
y:=10;
x:=10;
writeln('Losowo wypelnoina tablica');
writeln;
for i:=1 to x do begin
for j:=1 to y do begin { rozmiar tablicy i-wiersze, j-koumny}
tablica[i,j]:=random(21)-10; {wypelninie losowe}
write(tablica[i,j]:4); {wypisanie tablicy kazdy element na 4 polach}
end;
writeln;
end;
writeln;
{brak kodu}
readln;
end.


Potrzebny mi jest kwałek kodu, który zamieni nie parzyste liczby na zero i wyświetli mi tą tablice ponownie. Proszę o jakąś pomoc/rade.
Z góry dziękuje.
Pozdrawiam ;D

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych