LewisCableCompanyPasProgramme, Pascal

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;

Variables
Counter, Monthly_Fee, Annual_Fee: Integer;
Special_Refund, Total_Special_Refund: Real;
First_Name, Last_Name: String; //Declares string values

Constant
Rate= 0.05; // Declares a constant set to 5%

Begin
// Welcome Page for Program
WriteIn ('-----------------------------------------------------------------------');
WriteIn ('***********************************************************************');
WriteIn ('****************WELCOME TO LEWIS CABLE COMPANY*************************');
WriteIn ('***********************************************************************');
WriteIn ('--------(c) 2020 Updated Information Processing System-----------------');
WriteIn ('***********************************************************************');
WriteIn ('-----------------------------------------------------------------------');

WriteIn ('                   Press Enter to Continue                             ');

ReadIn  ();
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
          WriteIn ('Customer #:', Counter);
          WriteIn ('First Name:');
          ReadIn  (First_Name);
          WriteIn ('Last Name:');
          ReadIn  (Last_Name);
          WriteIn ('Monthly Fee');
          ReadIn  (Monthly_Fee);
          
          Annual Fee:= Monthly_Fee * 12;
          WriteIn ('Annual Fee;', Annual_Fee);
          
                 If Annual_Fee > 30000 Then
                    Special_Refund:= Annual_Fee * Rate
                    Else
                    Special_Refund:= 0;
        
          WriteIn (First_Name,  ' ', Last_Name,  ' ', 'has recieved a refund of:', Special_Refund:0:2);
          
          Total_Special_Refund:= Total_Special_Refund + Special_Refund;
          
          WriteIn ('-----------------------------------------------------------------')
          WriteIn ();
    End;
    
    WriteIn ('Total Special Refund:', Total_Special_Refund:0:2);
    
ReadIn ();

End.


run \| edit \| history \| help	0