Concetti Chiave
- Il programma accetta cinque numeri interi dall'utente e li memorizza in un array.
- Una procedura ordina i numeri dell'array in ordine crescente utilizzando un algoritmo di ordinamento base.
- Il programma identifica e visualizza il numero maggiore e il numero minore dall'array ordinato.
- Viene fornita un'opzione per l'utente di premere un tasto per continuare dopo ogni procedura principale.
- Alla fine del programma, vengono mostrati i numeri in ordine crescente e il programma termina con un messaggio finale.
PROCEDURE
program procedura;uses crt;
(*Data una serie di 5 numeri, trovare il maggiore, il minore e sistemarli in ordine crescente*)
var A: array [1..5] of integer;
I,J,X: integer;
tasto:char;
procedure INPUT;
begin
clrscr;
writeln (' ');
for I:=1 to 5 do
begin
write ('Introdurre il numero intero n',I,'=');
readln (A);
end;
end;
procedure SISTEMA_NUMERI;
begin
for I:=1 to 4 do
for J:=I+1 to 5 do
if A>A[J] then
begin
X:=A[J];
A[J]:=A;
A:=X;
writeln (' ');
end;
end;
procedure MAGGIORE_E_MINORE;
begin
writeln (' ');
writeln ('Il numero minore Š ', A[1]);
writeln ('Il numero maggiore Š ', A[5]);
end;
procedure OUTPUT;
begin
writeln (' ');
writeln ('Elenco dei 5 numeri in ordine crescente: ');
writeln (' ');
for I:=1 to 5 do
writeln (A, ' ');
end;
procedure PROSEGUIRE;
begin
writeln ('Digitare un tasto per continuare');
repeat
tasto:=readkey;
until tasto chr(32);
end;
begin
INPUT;
writeln (' ');
PROSEGUIRE;
SISTEMA_NUMERI;
writeln (' ');
PROSEGUIRE;
OUTPUT;
writeln (' ');
PROSEGUIRE;
MAGGIORE_E_MINORE;
PROSEGUIRE;
write (' ');
writeln (' --TERMINE PROGRAMMA-- ');
readln
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
