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
...
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...
ESAGON.1PAS
program apotema_esagono (input, output);
(*Questo programma calcola l'apotema dell' esagono*)
var
a:real;
begin
writeln ('Questo programma calcola l''apotema dell'' esagono');
writeln ('');
writeln ('');
writeln ('Inserisci il valore del lato dell'' esagono');
readln(a);
writeln ('Il risultato...
program area_triangolo;
var a,b,c,p,area:real;
begin
writeln('inserisci a b c');
read (a,b,c);
if c >= (a+b)
then begin
write('Il triangolo non esiste');
end;
if c*c (a*a+b*b)
then begin
p:=(a+b+c)/2 ; (*semiper....
program verifica_presenza ;
var x,i :integer;
z :boolean;
a :array [1..10] of integer;
begin
i:=1;
z:=false;
write ('Inserisci il numero da ricercare, x= ');
readln(x);
writeln ('Inserisci la sequenza di numeri ');
for i:=1 to 10 do
begin
readln(...
// perim.cc
#include
#include
struct punto {
double x;
double y;
};
double
lung(punto p1, punto p2)
{
double dx = p2.x - p1.x;
double dy = p2.y - p1.y;
return sqrt(dx * dx + dy * dy);
}
main()
{
punto polig[100];
int i;~~~~...
// giornoset.cc
#include
main()
{
int giorno;
int mese;
int anno;
int sett;
cout > giorno >> mese >> anno;
if (mese...
COMPITO IN CLASSE SUGLI ARRAY LINGUAGGIO PASCAL
Data la seguente dichiarazione
const n=10;
type tv=array[1..n] of integer
produrre i seguenti sottoprogrammi.
1)procedure SORTEGGIA che riempie il vettore con numeri pari compresi
fra -1000 e 1000 estremi compresi.
2)procedure VISUAL ...
#include
#include
#include
#include
int gdriver=DETECT,gmode;
void main()
{ int x,y,z,i,u,n,m,s,o,t,r,gdriver=DETECT,gmode;
clrscr();
printf("inserisci la coordinata x del centro\n");
scanf("%d",&x);
n=x;
m=x;
printf("inseriscila coordinata y del centro \n");
scanf("%d",&y);~...