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(...
Informatica
Ordina per: Data ↑ Nome ↑ Download Voto Dimensione ↑
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...
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...
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
...