Pascal Matica

Pe7er

1.potrebujem spočítať párne čísla v matici, aj ich vypísať
2.spočítač nepárne čísla v matici aj ich vypísať
3.spočíatť párne čísla pre jednotlivé stĺpce matice
4.spočítať nepráne čísla pre jednotilvé stĺpce matice
5.aritmetický priemer všetkých prvkov matice
- aritmetický priemer nepárnych prvkov
- aritmetický priemer párnych prvko

v akom jazyku?

neutronmind

Precitaj si nazov temy.

agy · Príspevok od používateľa **agy** » 23 jan 2009, 0:05

... nvm ci si este dobre pametam sintax pascalu ale skusim nieco
1. zadanie

Kód: Vybrať všetko

for (i:=1 to pocet_riadkov) do 
 for (j:=1 to pocet_stlpcov) do
  begin 
    if (prvok[i][j] mod 2 = 0) then 
      begin  
        sucet:=sucet+prvok[i][j]; 
        println (prvok[i][j]);
      end;
  end;

2. zadanie

Kód: Vybrať všetko

for (i:=1 to pocet_riadkov) do 
 for (j:=1 to pocet_stlpcov) do
  begin 
    if (prvok[i][j] mod 2 = 0) then 
      begin  
        sucet:=sucet+prvok[i][j]; 
        println (prvok[i][j]);
      end;
  end;

Pe7er

vďaka za snahu ale to tvoje riešenie je fakt nejaké divné a ešte tým spočítaním prvkov myslím, že koľko ich tam vlastne je ich počet

//autoeditácia príspevku ( 23 Jan 2009, 14:14 )
fakt to nikto nevie ?

veď ti sem dal riešenie. Divné nie je (len v tom druhom robí tiež párn, zabudol rovnása zmeniť na nerovnosť). Ak chceš iba ich počet, tak namiesto sucet:=sucet+prvok[j]; bude iba inc(sucet);
Ďalšie dve sú analogické s týmto, ale bude iba jeden cyklus (raz na riadky, v ďalšom na stlpce)

Pe7er

no lenze ja ked zadam if a[i,j] mod 2 = 0 vyhodi mi to chybu

akú chybu? Možno máš zle vytvorenú maticu, možno..

IkemeR

"println" je čo? nie nahodou writeln?

neutronmind

Hej, writeln; println sa pouziva napr. v Jave.

Pe7er

asi to bude tou maticou pretoze generuje cisla aj s desatinnmi ciarkami, neviete ako vygenerujem maticu s celymi cislami <

A ako vlastne generuješ tú maticu?

Pe7er

takto nejak

Kód: Vybrať všetko

randomize;
for i:=1 to pocr do 
  for j:=1 to pocs do
     a[i,j]:=random*200-100

tak dávaj random(200)-100;

agy · Príspevok od používateľa **agy** » 24 jan 2009, 22:22

matica: http://www.hojko.com/pascal-matica-t111658.html