[Turbo Pascal] - Jak wyświetlić parzyste i nieparzyste liczby w tablicy?

Question

zrobiłem taki prosty programik mam teraz pytanko znacie jakiś fragmenty kodu/operacji by z tych liczb np. wyświetlał same parzyste i nieparzyste czy po przekątnych np. same 4 a reszta 0 i inne operacje jakieś przedstawiające działanie tablic

wrych · Answer

Chyba niezbyt jasno sformułowałeś pytania...
Jedna z odpowiedzi byłaby taka:

    
for i := 1 to 3 do 
      for j := 1 to 3 do if i = j then T[i, j] := 4 else T[i, j] := 0;

lady_dark21 · Answer

orginał programik daje takie liczby

1, 1, 9
3, 3, 7
4, 2, 4

teraz muszę dopisać fragment kodu by wyświetlił same liczby parzyste, nieparzyste

i np. przekątna (1, czy 2) o liczbie 3 po ukosie
reszta ma być zapisana np. zerami

z parzystymi i nie wiem ze sie robiło takie cosik
if (i mod 2 )=1 nieparzyste
if (i mod 2 )=0 parzyste
then writeln;

tylko gdzie i jak to wstawić bo kombinuje i ciągle podstawa się wyświetla

1, 1, 9
3, 3, 7
4, 2, 4

to co podałeś to ma być przekątna zapewne tylko ze nie wiem gdzie to zapodać
plis jak umiesz to napisz cały kod bo oszaleć można z tymi tablicami dwuwymiarowymi

co do pojedynczej kolumny czy wiersza umiem zmienić liczbę jak coś

wrych · Answer

W Twoim programie brakuje procedury Randomize, której zadaniem jest "zamieszanie kul w bębnie maszyny losującej" i dlatego zawsze otrzymujesz te same liczby.

Tablice dwuwymiarowe nie są takie trudne, tylko przemyśl ich budowę...
Pierwszy wiersz, i = 1:
T[1, 1] T[1, 2] T[1, 3] (kolumny: j = 1, 2, 3)
Drugi wiersz, i = 2:
T[2, 1] T[2, 2] T[2, 3] (kolumny: j = 1, 2, 3)
Trzeci wiersz, i = 3:
T[3, 1] T[3, 2] T[3, 3] (kolumny: j = 1, 2, 3)
Oczywiście wymiary nie muszą być identyczne (ale tak było w Twoim przykładzie).
Dla i=j dostajemy przekątną, np:
T[1, 1] = 4, T[2, 2] = 4, T[3, 3] = 4 a reszta przyjmuje wartość 0 (mój fragment kodu).
Druga przekątna w tym przypadku spełnia warunek i + j = 4, zatem można ją wypełnić np. 1 w taki sposób:

for i := 1 to 3 do 
      for j := 1 to 3 do if (i + j) = 4 then T[i, j] := 1 else T[i, j] := 0;

Z wydrukiem wartości parzystych lub nieparzystych dobrze kombinujesz - reszta z dzielenia przez rozstrzyga o parzystości (0) i nieparzystości (1)...

lady_dark21 · Answer

bez randomize jest ,żebym miał te same liczby dzięki za pomoc z przekątnymi w końcu skumałem zrobiłem z nieparzystymi - luknij niby ok tylko czemu sprawdza mi tylko 3 wiersz a te 2 pierwsze nie ?? jak dam np. for j:=1 to 3 do if (i mod 2)=0 then T[2,j]:=0; to mi sprawdza 2 wiersz i ewent. zamienia na 0 tak jak powinno być analogicznie z 1 wierszem T[1,j]:=0; - jak zrobić by całość tablicy sprawdzało od 1 do 3 wiersza

lanky · Answer

Przeanalizuj sobie kod i zobacz jakie głupoty powypisywałeś.


for j:=1 to 3 do if (i mod 2)=0 then T[i,j]:=0;

w tym momencie to oznacza co


for j:=1 to 3 do if (3 mod 2)=0 then T[3,j]:=0;

A dlaczego tak oznacza? bo powyżej zakończyła się twoja pętla
"for i:=1 to 3 do" i zmienna "i" stanęła na liczbie 3

i zobacz sobie gdzie wstawiłeś begin

lady_dark21 · Answer

napiszesz mi to poprawnie tak żeby wyświetlał liczby parzyste d bo muszę spadać do pracy ;widzę że będę miał co analizować dzięki pozdrawiam

lanky · Answer


program tablice;
 uses CRT;
 var
    T         :array[1..3,1..3] of integer;
    i,j       :integer;


  begin
    for i:=1 to 3 do
      for j:=1 to 3 do T[i,j]:=random(10)+1;



 begin
      for i:=1 to 3 do begin
        for j:=1 to 3 do write(' ',T[i,j]:2);
        writeln;
       end;
      readln;

    end;
end.

zrobiłem taki prosty programik mam teraz pytanko znacie jakiś fragmenty kodu/operacji by z tych liczb np. wyświetlał same parzyste i nieparzyste
czy po przekątnych np. same 4
a reszta 0

i inne operacje jakieś przedstawiające działanie tablic

[Turbo Pascal] - Jak wyświetlić parzyste i nieparzyste liczby w tablicy?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu