Ominide 50 punti

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.

Registrati via email