Apperòòòòò...

Mentre giravo fra i blog...
prima quello della Pola, solite caxxxxe...
poi quello del Baha simpaticiussimo...
Mi sono imbattuto in quello dell'albo!





Ecco cosa postava!

Program Cambio;
Uses crt;
type
k=array[1..10] of real;
var
n,im,e:real;
i:integer;
a,b:k;
const
cam=0.6313;
Begin
clrscr;
writeln('Inserisci il numero di registro');
readln(n);
im:=n*1000;
writeln('Franchi=',im:10:2);
writeln('Euro=',im*cam:10:2);
e:=im*cam;
a[1]:=500;
a[2]:=200;
a[3]:=100;
a[4]:=50;
a[5]:=20;
a[6]:=10;
a[7]:=5;
a[8]:=2;
a[9]:=1;
a[10]:=0.5;
writeln('Tagli');
for i:=1 to 10 do
Begin
write(a[i]:3:2,'=');
if e>=a[i]
then
Begin
b[i]:=trunc(e/a[i]);
e:=e-(a[i]*b[i]);
end
else
b[i]:=0;
writeln(b[i]:2:0);
end;
writeln('Non dati=',e:1:2);
readln
end.

AZZ! Praticamente è il programma che ci chiedeva il prof nel 5 ex!
Dopo averlo riletto attentamente sono giunto a 2 riflessioni:
- L'idea di fondo c'era
- Non l'avrei mai fatto nè giusto nè così ne niente...

LODE ALL'ALBO