program matrice;
uses crt;
const nr=6;nc=3;
type mat=array[1..nr,1..nc] of integer;
var m:mat;j,i:byte;som:integer;
begin
clrscr;
randomize;
som:=0;
for i:=1 to nr do
for j:=1 to nc do
begin
m[i,j]:=random(34);
write(m[i...
Informatica
Risultati 391 - 393 di 393
Filtra per:
Tutti (399) Appunti (322) Riassunti (25) Tesine (23)
Ordina per: Data ↑ Nome ↑ Download Voto Dimensione ↑
Ordina per: Data ↑ Nome ↑ Download Voto Dimensione ↑
Dim Appo As Integer
Me.TxtOrdinato.Text = ""
For I = 0 To UBound(V)
For J = I + 1 To UBound(V)
If V(I) >= V(J) Then
Appo = V(I)
V(I) = V(J)
V(J) = Appo
End If
Next J
Me.TxtOrdinato.Text = Me.TxtOrdinato.Text & " " & V(I)
Next I
...