Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Salsiccione
Language: PASCAL
Code:
program esercizio1;
var
salsiccia,bacon,maionese,uova,salsiccione:integer;
procedure swap(sugo:integer;var cotechino:integer);
var
tempo:=integer;
begin
tempo:=sugo;
sugo:=cotechino;
cotechino:=tempo;
writeln(sugo,cotechino);
end;
begin
salsiccione:=0;
writeln('Dammi il valore della salsiccia, bacon, maionese e uova');
readln(salsiccia,bacon,maionese,uova);
swap(salsiccia,bacon);
writeln(salsiccia,bacon);
swap(maionese,uova);
writeln(maionese,uova);
begin
salsiccione:=salsiccia;
 if(bacon>salsiccione)
 then
 salsiccione:=bacon;
 if(maionese>salsiccione)
 then
 salsiccione:=maionese;
 if(uova>salsiccione)
 then
 salsiccione:=uova;
end;
writeln('Il migliore resta sempre il salsiccione',salsiccione);
readln;
end.
 
Comments: