(*
* Date: 03-29-2019
* Course: CSCI-3010
* Description: This program determines the winner of an election, given the total votes they have received.This program also calculates the percentage of votes an individual candidate received. The input are given in separate lines, number of candidates following the last name of candidates following number of votes they received and so on. Our output displays the input data(name and votes received) including the percentage of votes they received, total votes received and the name of winner.
* On my honor, I have neither given nor received unauthorized help while
completing this assignment.
* NAME AND CWID: Bijay Raj Poudel ( 30096130 )
*)
Program ElectionResults(output);
//This program refers to unit 'sysutils'
Uses sysutils;
//global variables
var
candidateNames: array of string;
var
listOfVotes: array of integer;
(*This function returns the percentage of fist parameter over the second parameter passed, i.e percentage of num1 in num2 *)
function percentage(num1, num2: integer): real;
(* local variable declaration *)
var
result: real;
begin
result := ( num1/num2 ) * 100;
percentage := result;
end;
(*This function takes an integer array as parameter
and returns the sum of all integers in thst array*)
function totalVotes(var anArray: array of integer): integer;
var
sum, count :integer;
begin
sum := 0;
for count:= 1 to length(anArray) do
begin
sum := anArray[count] + sum;
end;
totalVotes := sum;
end;
(*This function takes an integer array and return index of higest integer in
the array*)
function maxVote( var anArray: array of integer): integer;
var
highest, count: integer;
begin
highest := 1;
for count := 1 to length(anArray) do
begin
if (anArray[count] > anArray[highest]) then
highest := count;
end;
maxVote := highest;
end;
(*This procedure formats the output and displays all the details about candidates, including the winner of the election*)
procedure toString();
(*local variable declaration*)
var
fmt, fmtInt, fmtDeci: string;
var
count: integer;
begin
//initialising the formatting regualar expressioins
fmt := '%35s';
fmtInt := '%25d';
fmtDeci := '%33f';
writeln( 'Candidate' + format(fmt, ['Votes Received']) + format(fmt, ['% of Total Votes']) );
for count:= 1 to length(listOfVotes) do
begin
fmt:='%-12s';
writeln(format(fmt, [candidateNames[count]]), format(fmtInt, [listOfVotes[count]]), format(fmtDeci, [percentage(listOfVotes[count], totalVotes(listOfVotes))]));
end;
writeln(format(fmt, ['Total']), format(fmtInt, [totalVotes(listOfVotes)]));
writeln('The winner of the election is ', candidateNames[maxVote(listOfVotes)], '.');
end;
(*This procedure uses the data from STDIN and stores it arrays*)
procedure userData();
(* local variable declaration *)
var
numberOfCandidates, count: integer;
begin
readln(numberOfCandidates);
//setting array length
SetLength(candidateNames, numberOfCandidates);
SetLength(listOfVotes, numberOfCandidates);
for count := 1 to 2*numberOfCandidates do
begin
//storing the candidates details in respective arrays of their type.
readln(candidateNames[count]);
readln(listOfVotes[count]);
end;
end;
begin
userData(); //procedure call to start the program
toString(); //function call to display in candidate details and the winner.
end.
About Online Pascal Compiler
Try our Online Pascal Compiler (Version Free Pascal v3.0.2) to Edit, Run, and Share your Pascal Code directly from your browser. This online development environment provides you the latest version Free Pascal v3.0.2.
How to use Online Pascal Compiler?
Write and Execute Code
- Write your program (or, paste it) directly under the "Source Code" tab.
- If you want to save your program, go to the "Project" menu and save it.
- You can directly execute your program without saving it by clicking on on "Execute" button.
User Input
The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.
Online Pascal Compiler: Keyboard Shortcuts
The following are the keyword shortcut of this Online Pascal Compiler:
Shortcut | Description |
⌘ + Enter | Run the program |
⌘ + S | Save Project (Login Required) |
⇧ + ⌘ + S | Save As Project |
⌘ + P | New Project |
⌘ + G | Share Project |
⌘ + Z | Undo Editing |
⌘ + Y | Redo Editing |
⌘ + A | Select All Text |
⌘ + X | Cut Selected Text |
⌘ + C | Copy Selected Text |
⌘ + V | Paste Copied Text |
⌘ + F | Search Text |
⌘ + ⌥ + F | Replace Text |
Shortcut | Description |
Ctrl + Enter | Run the program |
Ctrl + S | Save Project |
Shift + Ctrl + S | Save As Project |
Ctrl + G | Share Project |
Ctrl + Z | Undo Editing |
Ctrl + Y | Redo Editing |
Ctrl + A | Select All Text |
Ctrl + X | Cut Selected Text |
Ctrl + C | Copy Selected Text |
Ctrl + V | Paste Copied Text |
Ctrl + F | Search Text |
Ctrl + H | Replace Text |
Online Pascal Compiler: Save and Share Pascal Code (Project)
Save Pascal Project Online
You can save your Pascal Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.
Share Pascal Project Online
You can use this feature to share your Pascal Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.
More Features of Online Pascal Compiler
- Theme – You can change the current editor's theme from the "Editor Theme" option under "Settings" menu.
- Font Size – You can change the font size of the editor /compiler from from the "Font Size" option under "Settings" menu.
- Tab Size – You can change the tab size from the "Tab Size" option under "Settings" Menu.
- Show/Hide Line Numbers – You can show/hide the line number with the code from the "Show Line Numbers" or "Hide Line Numbers" option under "Settings" Menu.
- And, many more.
Benefits of Using Online Pascal Compiler
There are several benefits of using the Online Pascal Compiler to run your Pascal code:
- Platform independence: You can run your code from any device without taking care of operating systems.
- Convenience: You don't need to install anything for using this.
- No setup required: There is no need for additional setup to run your code.
- Updated version: Our online compiler/editors/terminals are the latest up-to-date.