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
practica 3 ejercicio 6
Triangle.pas
Kotak_Adit
Find the greatest integers - v3
test29
janja - naloga 1 - 11.7.2013
НОД через функцию с возможностью вычисления для трёх и более чисел
test25
floor and ceiling
practica 3 ejercicio 2