05/02/07 12:13
Allora, ho creato questo programma, e quando nel comando writeln specifico che deve stampare la scritta, la stampante fa nulla e il programma sembra bloccato, nel senso che se faccio Invio non si chiude... come posso risolvere questo problema? Eppure ho specificato il modulo Printer, ma non stampa.
program bacco;
uses crt,printer;
var bot:integer;
litri,totale,sconto:real;
ris:char;
begin
clrscr;
writeln('Numero di bottiglioni ordinati');
readln(bot);
litri:=bot*1.5;
totale:=litri*1750;
if litri>45 then sconto:=totale*10/100;
writeln('Consegna a domicilio?');
readln(ris);
if ris='s' then totale:=totale+5000;
totale:=totale-sconto;
totale:=(round(totale/100))*100;
writeln('Il totale da pagare Š ',totale:5:0,' Lire');
writeln(lst,'Bacco & soci');
writeln(lst);
writeln(lst,bot,' bottiglioni = ',litri,' Litri');
writeln(lst);
writeln(lst,'Totale da pagare = ',totale,' Lire');
writeln(lst);
readln
end.
program bacco;
uses crt,printer;
var bot:integer;
litri,totale,sconto:real;
ris:char;
begin
clrscr;
writeln('Numero di bottiglioni ordinati');
readln(bot);
litri:=bot*1.5;
totale:=litri*1750;
if litri>45 then sconto:=totale*10/100;
writeln('Consegna a domicilio?');
readln(ris);
if ris='s' then totale:=totale+5000;
totale:=totale-sconto;
totale:=(round(totale/100))*100;
writeln('Il totale da pagare Š ',totale:5:0,' Lire');
writeln(lst,'Bacco & soci');
writeln(lst);
writeln(lst,bot,' bottiglioni = ',litri,' Litri');
writeln(lst);
writeln(lst,'Totale da pagare = ',totale,' Lire');
writeln(lst);
readln
end.
Fammi sapere se è una buona guida...
.
