Forum www.ispwsznysa.fora.pl Strona Główna www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Lista 7 zad 4 halikowski

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
stramik
Administrator



Dołączył: 02 Gru 2007
Posty: 126
Przeczytał: 0 tematów

Skąd: Grodków

PostWysłany: Nie 0:59, 09 Gru 2007    Temat postu: Lista 7 zad 4 halikowski

program zad4;

{$APPTYPE CONSOLE}

type
tablica=array[1..5,1..5] of integer;
var
tab:tablica;
q:char;
suma,min,kol:integer;

procedure wypelnij(var tab:tablica);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
repeat
write('Podaj [',i,'][',j,'] element tablicy ');
readln(tab[i][j]);
until (tab[i][j]>9) and (tab[i][j]<21);
end;
end;
end;

procedure sumowanie(tab:tablica;var suma:integer);
var
i:integer;
begin
for i:=1 to 5 do
begin
suma:=suma+tab[1][i];
end;
end;

procedure minimum(tab:tablica;var minimum:integer;kol:integer);
var
i:integer;
begin
min:=tab[1][kol];
for i:=1 to 5 do
begin
if min>tab[i][kol] then
min:=tab[i][kol];
end;
end;

procedure pisz(tab:tablica);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(tab[i][j]:3);
end;
writeln;
end;
end;


begin
repeat
suma:=0;
writeln('Wypelnij tablice elementami z przedzialu <10,20>');
wypelnij(tab);
sumowanie(tab,suma);
writeln;
writeln('Suma elementow pierwszego wiersza wynosi ',suma);
writeln('Podaj numer kolumny z ktorej chcesz obliczyc minimum ');
readln(kol);
minimum(tab,min,kol);
writeln('Minimum w kolumnie ',kol,' wynosi ',min);
writeln;
writeln('Drukowanie tablicy:');
pisz(tab);
writeln('Zakonczyc program ?? t/n');
readln(q);
until (q='t');
end.
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Mardok
Gaduła



Dołączył: 09 Gru 2007
Posty: 91
Przeczytał: 0 tematów


PostWysłany: Nie 20:33, 09 Gru 2007    Temat postu:

program Halik_L7Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,j : integer;
s,sk : integer;
ch : char;
tab : array[1..5,1..5] of integer;

begin

randomize;

repeat

s:=0;
sk:=0;

for i:=1 to 5 do
for j:=1 to 5 do
begin
tab[i,j]:=random(11) + 10;
if i = 1 then s:=s + tab[i,j];
end;

writeln;

for i:=1 to 5 do
begin
for j:=1 to 5 do write(tab[i,j]:3);
writeln;
end;

writeln;
write('Podaj numer kolumny : ');
readln(j);

sk:=tab[1,j];
for i:=1 to 5 do
if tab[i,j] < sk then sk:=tab[i,j];


writeln;
writeln('Suma elementow pierwszego wiersza : ',s);
writeln('Element minimalny wybranej [',j,'] kolumny : ',sk);
writeln;
write('Wykonac ponownie ? [T/N] : ');
readln(ch);

until (ch <> 'T') and (ch <> 't');

end.
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
roy
Administrator



Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów

Skąd: Głuchołazy

PostWysłany: Pon 18:09, 10 Gru 2007    Temat postu:

a ja tak to napialem
Kod:
program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
n=5;
var
tab:array[1..n,1..n] of integer;
suma,min:integer;
i,j,l,x,kol:byte;
k: char;
begin
randomize;
repeat
repeat
writeln('Podaj nr kolumny w ktorej policzyc el minimalny');

readln(kol);
until (kol>0) and (kol<=5);
min:=0;
suma:=0;
for i:=1 to n do begin
  for j:=1 to n do begin
    min:=(tab[i,kol]);
    for x:=1 to n do
    if tab[x,kol]<min then
    min:=tab[x,kol];
    tab[i,j]:=random(31)-10;
    write(tab[i,j]:4);
    if (i=1) then
    suma:=suma+tab[i,j];
  end;
  writeln;
end;


writeln;
writeln('Suma elementow w 1 wierszu to :',suma);
writeln('Element minimalny kolumny ',kol,' to: ',min);
writeln('Czy zakonczyc program t/n');
readln(k);
until (k='t') or (k='T');
  { TODO -oUser -cConsole Main : Insert code here }
end.
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin