Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
LewisCableCompanyPasprogramme
//Created by Tyana Lewis //DeCarteret College //Created on November 20, 2020 //In partial fulfilment of the subject CSEC Information Technology Program Lewis_Cable; // State the name of the program Uses CRT; Var Counter, Monthly_Fee, Annual_Fee: Integer; Special_Refund, Total_Special_Refund: Real; First_Name, Last_Name: String; //Declares string values Const Rate= 0.05; // Declares a constant set to 5% Begin // Welcome Page for Program Writeln ('-----------------------------------------------------------------------'); Writeln ('***********************************************************************'); Writeln ('****************WELCOME TO LEWIS CABLE COMPANY*************************'); Writeln ('***********************************************************************'); Writeln ('-----------------------------------------------------------------------'); Writeln ('***********************************************************************'); Writeln ('-----------------------------------------------------------------------'); Writeln (' Press Enter to Continue '); Readln (); clrscr; // Clear screen function to clear the welcome screen before data entry. Monthly_Fee:=0; Annual_Fee:=0; Special_Refund:=0; Total_Special_Refund:=0; For Counter:= 1 to 20 Do Begin Writeln ('Customer #:', Counter); Writeln ('First Name:'); Readln (First_Name); Writeln ('Last Name:'); Readln (Last_Name); Writeln ('Monthly Fee'); Readln (Monthly_Fee); Annual_Fee:= Monthly_Fee * 12; Writeln ('Annual Fee;', Annual_Fee); If Annual_Fee > 30000 Then Special_Refund:= Annual_Fee * Rate Else Special_Refund:= 0; Writeln (First_Name, ' ', Last_Name, ' ', 'has recieved a refund of:', Special_Refund:0:2); Total_Special_Refund:= Total_Special_Refund + Special_Refund; Writeln ('-----------------------------------------------------------------'); Writeln (); End; Writeln ('Total Special Refund:', Total_Special_Refund:0:2); Readln (); End.
run
|
edit
|
history
|
help
0
135
Ex5b20
Mengubah biner ke desimal
IT101 - W4_1
Random Numbers
Union of set with array of elements
task 3
Huong11a2@
For9
Escribir numeros a palabras hasta 4 digitos