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;

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