Informatica

Risultati 391 - 393 di 393
Filtra per:   Tutti (399)   Appunti (322)   Riassunti (25)   Tesine (23)   
Ordina per:   Data   Nome ↑   Download   Voto   Dimensione ↑   
Download: 237Cat: Informatica    Materie: Appunti    Dim: 1 kb    Pag: 1    Data: 25.05.2000

{ 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

Download: 96Cat: Informatica    Materie: Appunti    Dim: 0 kb    Pag: 1    Data: 25.05.2000

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

Download: 117Cat: Informatica    Materie: Appunti    Dim: 0 kb    Pag: 1    Data: 25.05.2000

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


Come usare