Pomos s podprogramem – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Pomos s podprogramem – Pascal – Fórum – Programujte.comPomos s podprogramem – Pascal – Fórum – Programujte.com

 

Spuštěný nový filmový web Filmožrouti.cz — vše o Avengers, Pacific Rim, Thor, Star Wars…
freeze
~ Anonymní uživatel
5 příspěvků
21. 4. 2018   #1
-
0
-

Potřeboval bych poradit jak tohle přesně udělat(matici mxn naplnit náhodnými čísly od 1 do 99,urči podprogramem součet prvku prvního sloupce a součet prvku posledního sloupce,zjisti který součet je nejnižši,zobraz matici)Tohle mám hotové prakticky se dá říct že všechno jen nevím jak s těmi podprogramy :/

program matice;
uses crt;
var a:array[1..10,1..10] of integer;
    m,n,i,j,s,r,sums,sumr:integer;
begin
clrscr;
write('Zadej pocet radku matice:');
readln(m);
write('Zadej pocet sloupcu matice:');
readln(n);
randomize;
sums:=0;
sumr:=0;
write('Zadej sloupec matice pro soucet:');
readln(r);
if r>m then begin writeln('Zadej znovu cislo sloupce musi byt mensi nez ',m+1);
readln(r);
end;
write('Zadej sloupec matice pro soucet:');
readln(s);
if s>n then begin writeln('Zadej znovu cislo sloupce musi byt mensi nez ',n+1);
readln(s);
end;
for i:=1 to m do for j:=1 to n do a[i,j]:=random(99)+1;
for i:=1 to n do sumr:=sumr+a[i,r];
for i:=1 to m do sums:=sums+a[i,s];
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8);
writeln;
   end;
writeln('Soucet prvku ',r,'. sloupce je:',sumr);
writeln('Soucet prvku ',s,'. sloupce je:',sums);
readln;
if sums>sumr
then
write('Prvni sloupec je mensi nez posledni')
else write('Posledni sloupec je mensi nez prvni');
writeln;
readln;
  end.

Nahlásit jako SPAM
IP: 193.165.236.–
gna
~ Anonymní uživatel
667 příspěvků
21. 4. 2018   #2
-
0
-

   

type
    TMatice = array of array of integer;

function vygeneruj(vyska, sirka: integer): TMatice;
var
    matice: TMatice;
    radek, sloupec: integer;
begin
    setlength(matice, vyska, sirka);
    for radek := low(matice) to high(matice) do
        for sloupec := low(matice[radek]) to high(matice[radek]) do
            matice[radek,sloupec] := random(5) + 1;
    vygeneruj := matice;
end;

function secti_sloupec(matice: TMatice; sloupec: integer): integer;
var
    radek, soucet: integer;
begin
    soucet := 0;
    for radek := low(matice) to high(matice) do
        soucet := soucet + matice[radek,sloupec];
    secti_sloupec := soucet;
end;

procedure vypis(matice: TMatice);
var
    radek, sloupec: integer;
begin
    for radek := low(matice) to high(matice) do
        begin
            for sloupec := low(matice[radek]) to high(matice[radek]) do
                write(matice[radek,sloupec]:3);
            writeln;
        end;
end;

var
    matice: TMatice;
    prvni, posledni: integer;

begin
    matice := vygeneruj(4, 5);
    vypis(matice);

    prvni    := secti_sloupec(matice, low(matice[0]));
    posledni := secti_sloupec(matice, high(matice[0]));
    writeln('prvni    ', prvni);
    writeln('posledni ', posledni);
end.
Nahlásit jako SPAM
IP: 213.211.51.–
Zjistit počet nových příspěvků

Přidej příspěvek

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 9 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý