Informatica

#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

// Fare la fusione del vettore (3,7,8,5) con il vettore (1,4,9,6).
#include
void main()
{
int vet1[4];
int vet2[4];
int vet3[4*2];
int i,j,n,m,x,k;
//Caricamento del primo array.
n=4;
for(i=0;i...

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

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

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

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