Algoritmy a datové struktury - Program_3 - Všichni Všem


Materiál je formátu doc

Program_3

Detail materiálu

Autor:
Přidáno: 21.09.2010 12:47
Kategorie: Protokoly
Předmět: Algoritmy a datové struktury
Známka: Nehodnoceno
Hodnoceno: x
Popis: Sestavte proceduru pro vypočet součtu n-zadaných prvku a použijte ji pro řešení následující úlohy: Je dána matice typu R/S s celočíselnými prvky. Sestavte program, který zadanou matici načte ze vstupního souboru, vytiskne ji do výstupního souboru, vyti


Stáhnout materiál

Oznámkuj materiál: 1 2 3 4 5

Nahlásit materiál

Doporučit přátelům




Náhled materiálu: Pozor! Náhled nemusí odpovídat skutečnosti. (v náhledu chybí obrázky a formátování se může lišit)

Algoritmy a datové struktury
Program č. 3

 

 

 

 

 

 

 

 

 

 

 

 



Zadání programu
č. 7
Sestavte proceduru pro vypočet součtu n-zadaných prvku a použijte ji pro řešení následující úlohy:
Je dána matice typu R/S s celočíselnými prvky. Sestavte program, který zadanou matici načte ze vstupního souboru, vytiskne ji do výstupního souboru, vytiskne součet prvků jednotlivých sloupců a z těchto součtů vytiskne minimální hodnotu. Úlohu proveďte pro matici typu 6/5.
Zdrojový program

program Prog3;
{Sestavte proceduru pro soucet n-zadanych prvku a pouzijte ji pro reseni
nasledujici ulohy:
Je dana matice typu R/S s celociselnymi prvky. Sestavte program, ktery danou
matici nacte ze vstupniho souboru, vytiskne ji do vystupniho souboru, vytiskne
soucet prvku jednotlivych sloupcu a z techto souctu vytiskne minimalni hodnotu.}

{$APPTYPE CONSOLE}

uses
SysUtils;
type pole2= array [1..100,1..100] of integer;
var r,s,i,j,sc,min: integer;
a: pole2;
vstup, vystup: text;
procedure soucet(n,k:integer;var st: integer);
type pole= array [1..100,1..100] of integer;
begin
st:= st + a[n,k]
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
assign (vstup,\'vst.txt\');
assign (vystup,\'vys.txt\');
reset (vstup); rewrite (vystup);
read (vstup,r,s);
writeln (vystup,\'zadana matice\');
writeln (\'zadana matice\');
for i:= 1 to r do begin
for j:= 1 to s do begin
read (vstup,a[i,j]);
write (vystup,a[i,j]:6);write (a[i,j]:6);
end;
writeln (vystup);
writeln
end;
for j:= 1 to s do begin
sc:=0;
for i:=1 to r do begin
soucet(i,j,sc)
end;
writeln (vystup,\'soucet \',j,\'. sloupce je: \',sc);
writeln (\'soucet \',j,\'. sloupce je: \',sc);
if j=1 then min:=sc
else begin
if sc<min then min:=sc
end;
end;
writeln (vystup,\'Nejmensi ze souctu prvku jednotlivych sloupcu je: \',min);
writeln (\'Nejmensi ze souctu prvku jednotlivych sloupcu je: \',min);
close (vstup); close (vystup);
readln
end.
Vstupní soubor (vst.txt)
6 5
5 3 5 1 2
0 2 8 1 1
6 9 3 3 2
1 1 0 2 3
9 6 5 1 0
6 9 5 6 1
Výstupní soubor (vys.txt)
zadana matice
 


...
pokud chcete materiál celý, musíte si jej stáhnout (stažení je zdarma)

 
novinky

Přidat komentář

Ohodnoť materiál Program_3.


 
typ

Podobné materiály

Podobné materiály k materiálu: Program_3


 

lupa
Rychlá navigace
přejdi rychleji k hledaným materiálům


 
statistika
Statistika
Jak jsme na tom?

Studentů: 40994
Materiálů střední školy: 3630
Materiálů vysoké školy: 1596
Středních škol: 806
Vysokých škol: 63



© 2010 - 2020 Všichni Všem - Smluvní podmínky | Kde to jsem? | Kontakty | Reklama
Tento web používá k poskytování služeb, personalizaci reklam a analýze návštěvnosti soubory cookie. Používáním tohoto webu s tím souhlasíte. Další informace