Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  calcolo della bolletta telefonica
Language: PASCAL
Code:
program BollettaTelefonica;
Var
 nome: string;
 num_scatt_fin, tot_boll, cost_scat, num_boll2,    
 num_boll1: real;
Cost
 canfis:=30;
Begin
writeln ('Qual è il nome del consumatore?');
readln (nome);
writeln ('qual è il valore della bolletta  attuale?');
readln (num_boll2);
writeln('qual è invece il valore della bolletta  precedente?');
readln (num_boll1);
writeln ('Inserisci il costo unitario dello scatto');
readln (cost_scat);
num_scatt_fin:=num_boll2-num_boll1;
tot_boll:=num_scatt*cost_scat+canfis;
writeln (nome, 'avrà nella sua bolletta un numero di scatti totali uguali a', num_scatt_fin, 'e la bolletta corrente di euro', tot_boll);
readln;
end.     
          
          
          
Comments: