Dopo la fase di sviluppo c’è una fase di manutenzione della procedura. La manutenzione può riguardare le modifiche per correzione degli errori, per adattamenti all’evoluzione dell’ambiente di utilizzo, o per miglioramenti in seguito a nuove richieste dell’utente. Per fare delle modifiche bisogna ripartire delle fasi di analisi e disegno. Nella scelta de
Informatica
Ordina per: Data ↓ Nome ↑ Download Voto Dimensione ↑
end;
program conta_maggiori; (*2 mar 98*)
const n=10;
var a:array[1..n] of integer; (*per ogni elemento indicare*)
i,j,aux,conta :integer; (* il numero degli elemnti *)
begin (* maggiori *)
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
{ 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
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....