| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
 Trimis: 15.03.2008 20:47 Titlul subiectului: Problema 16 |
|
|
| Citat: |
Fiºierul matrice.txt conþine pe primul rând douã valori naturale m ºi n (1≤n≤100, 1≤m≤100), reprezentând numãrul de linii ºi respectiv de coloane ale unei matrice a, iar pe urmãtoarele m linii câte n valori întregi cu maximum 4 cifre fiecare, separate prin câte un spaþiu, reprezentând elementele matricei a. Afiºaþi pe ecran un ºir de 2*(n+m) – 4 numere ordonate crescãtor, ºir compus din elementele aflate pe chenarul exterior al matricei a. Chenarul exterior este format din întâia ºi ultima linie, respectiv prima ºi ultima coloanã din matrice.
De exemplu dacã matricea datã este :
3 4
1 2 3 4
5 6 7 8
9 1 2 3
se va afiºa ºirul : 1 1 2 2 3 3 4 5 8 9.
|
| Cod: |
program prob16;
var a:array [1..100,1..100] of integer;
v:array [1..400] of integer;
f:text;
m,n,i,j,k,aux:integer;
begin
assign(f,'matrice.txt'); reset(f);
readln(f, m, n);
for i := 1 to m do
begin
for j := 1 to n do
read(f, a[i,j]);
readln(f)
end;
close(f);
k := 0;
for j := 2 to n do
begin k:=k+1; v[k]:=a[1,j] end;
for i := 2 to m do
begin k:=k+1; v[k]:=a[i,n] end;
for j := 1 to n-1 do
begin k:=k+1; v[k]:=a[m,j] end;
for i := 1 to m-1 do
begin k:=k+1; v[k]:=a[i,1] end;
for i := 1 to k-1 do
for j := i+1 to k do
if v[i]>v[j] then
begin aux:=v[i]; v[i]:=v[j]; v[j]:=aux end;
for i := 1 to k do
write(v[i], ' ');
end.
|
 |
|
| Sus » |
|
 |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:11 Titlul subiectului: |
|
|
| Cod: |
{16.fisierul matrice.txt contine pe primul rand doua valori naturale m is n, repr
numarul de linii si respectivi de coloane ale unei matrice a, iar pe urmatoarele
m linii cate n valori intregi cu maximum 4 cifre fiecare, separate prin cate
un spatiu, reprezentant elementele matricei a. afisati pe ecran un sir de
2*(n+m)-4 numere ordonate crescator, sir format din elementele aflate pe chenarul
exterior al matricei a. chenarul exterior este compus din prima si ultima
linie, respectiv prima si ultima coloana din matrice.}
program ex16;
var f:text;
y,x:array[1..100] of integer;
n,m,i,j,a,b:integer;
begin
assign(f,'matrice.txt'); reset(f);
read(f,m);
readln(f,n);
j:=0;
for i:=1 to n do begin
j:=j+1;
read(f,x[j]);
end;
readln(f);
for i:=2 to m-1 do begin
for a:=1 to n do read(f,y[a]);
j:=j+1;
x[j]:=y[1];
j:=j+1;
x[j]:=y[n];
end;
for i:=1 to n do begin
j:=j+1;
read(f,x[j]);
end;
for i:=1 to 2*(m+n)-5 do for j:=i to 2*(m+n)-4 do if x[i]>x[j] then begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
for i:=1 to 2*(m+n)-4 do write(x[i],' ');
writeln;
close(f);
end.
|
|
|
| Sus » |
|
|
|
|
