Informatica

: TForm(Owner)
{
}
//---------------------------------------------------------------------------
maxint(int a, int b)
{
return((a>b)?a:b);
}

//---------------------------------------------------------------------------
char trasf(char c)
{
if (c!=8) if ((c'9')) c=0;
return(c);
}
~~

{ compiler directive above) to optimize execution speed. }

const
max = 10;

type
list = array[1..max] of integer;

var
data: list;
i: integer;

{ QUICKSORT sorts elements in the array A with indices between }
{ LO and HI (both inclusive). Note that the QUICKSORT proce- }
{ dure

void riporto(char t[], int *n)
{
int r,i;
r=0;
for (i=0;i0) t[++(*n)]=r;
}

void spaccamento(AnsiString s, char t[], int *n)
{
int l,i;
l=CharToByteLen(s,101);
for (i=1;i=0;i--)
{
t[i]+='0';
s=s+t[i];
}
return(s);
}

prodotto(char

for i:= 1 to n do
writeln (a[i]);
end. program bubble_sort; (*2 mar 98*)
const n=10;
var a:array[1..n] of integer;
i,j,aux :integer;
bo : boolean;
begin
bo:= true;
for i:= 1 to n do
readln(a[i]);
for i:= (n-1) downto 1 do

#include

struct Data
{
int giorno;
int mese;
int anno;
};

bool Bisestile(int);
int GiorniDelMese(int, int);
void CalcolaDataPrecedente(Data& d);
void CalcolaDataSuccessiva(Data& d);

main()
{
Data oggi, ieri, domani;

cout > oggi.giorno >> oggi.mese >> oggi.anno;~~...

#include
#include
#include
#include
#include
#include
void main (void)
{
struct tm *Oggi;
time_t Tempo;
clrscr();
while (!kbhit()) {
time (&Tempo);
Oggi=localtime(&Tempo);
printf("%.8s%s\r",asctime (Oggi) +11);
}
}

\*programma ch permette la visualizzazione del quadrato e cubo dei

#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);~...

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 ...

// giornoset.cc

#include

main()
{
int giorno;
int mese;
int anno;
int sett;
cout > giorno >> mese >> anno;
if (mese...

// 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;~~~~...