Pascal Questions and Answers

An electricity supply company calculates the customer monthly bill amounts. Draw a Flow chart and a Pascal Program to input the bill amounts of 10 electricity bills and output total amount of all the electricity bills.

program SumBillAmount;

var
  C,Tot,BillAmt:integer;

begin
  C:=1;
  Tot:=0;
  while (c <=10) do
  begin
    write('Enter a Bill Amount?');
    readln(BillAmt);
    Tot:=Tot+BillAmt;
    C:=C+1;
  end;
  write('Total Bill Amount of all the bill is =');
  writeln(Tot);
  readln;
end.    

A Company calculates the bonus for each employee. Write a Pascal Program to input an Employee number, Sex and Basic Salary and output the Total Salary with Bonus amount of the Employee. (Male gets Bonus 5000 and Female gets Bonus 3000)

program SumBillAmount;

var
  EmpNo:String;
  Sex:char;
  Bonus:integer;
  Basic, Total:real;

begin
  write('Enter a Empoyee No?');
  readln(Empno);
  write('Enter Sex ?');
  readln(Sex);
  write('Enter Basic Salary');
  readln(Basic);
  if (Sex='M') then
     Bonus:=5000
  else
    Bonus:=3000;
  Total:=Basic+Bonus;
  write('Total Salary=');
  writeln(Total:8:2);
  readln;
end.  

Write a Pascal program to Input marks of 50 students into to an array and output the number of students whose mark is greater than the class average mark.

program PrintmorethanAVG;
const
  NoStudents=50;
type
   marks = array [ 1..NoStudents] of integer;

var
  x,StCount:integer;
  StAvg,StTot:real;
  Stmarks:marks;

begin
  x:=1;
  StTot:=0;
  StAvg:=0;
  StCount:=0;
  while (x<=NoStudents) do
  begin
       writeln('Enter a marks?');
       read(Stmarks[x]);
       StTot:=StTot+Stmarks[x];
       x:=x+1;
  end;
  StAvg:=Sttot/NoStudents;
  x:=1;
  while (x<=NoStudents) do
  begin
       if Stmarks[x]>StAvg then
       begin
         StCount:=StCount+1;
       end;
       x:=x+1;
  end;
  write('Number of Students Got More than Average :');
  writeln(StCount);
  readln;
  readln;
end. 

---

Write a Pascal program to Bubble Sort an array

 PROGRAM BubleSort(input, output);
    CONST
        MaxElts = 5;
    TYPE
        IntArrType = ARRAY [1..MaxElts] OF Integer;

    VAR
        arr: IntArrType;

PROCEDURE ReadArr(VAR a: IntArrType);
    VAR
        x:integer;
        BEGIN
            x := 1;
            WHILE x<=MaxElts DO
            BEGIN
                readln(a[x]);
                x := x + 1
            END;
        END;
{procedure to swap data}
PROCEDURE swap(VAR a: Integer; VAR b: integer);
      VAR
          temp:integer;
        BEGIN
            temp:=a;
            a:=b;
            b:=temp;
        END;
{Procedure to bubble sort not an efficient algorithm}
PROCEDURE Bsort(VAR arr: IntArrType);
        VAR
              i, j : integer;
        BEGIN
            FOR i := 1 TO  MaxElts DO
            FOR j := 1 TO MaxElts-1 DO
                IF arr[j] > arr[j + 1] THEN
                BEGIN
                    swap(arr[j],arr[j + 1]);
                END;

        END;
        
{procedure to bubble sort an efficient algorithm}
PROCEDURE BsortEfficient(VAR arr: IntArrType);
	var
              lastswap,i,endloop:integer;
              swapdone:boolean;
        BEGIN
            endloop:=MaxElts;
            swapdone:=False;
            while not swapdone do
            begin
                i:=1;
                swapdone:=True;
                while i<endloop do
                begin
                    IF arr[i] > arr[i + 1] THEN
                    BEGIN
                         swap(arr[i],arr[i + 1]);
                         lastswap:= i;
                         swapdone:=False;
                    END;
                    i:=i+1;
                end;
                endloop:=lastswap
            end;
          end;       
{Procedure to print elements of an array}
PROCEDURE ArrPrint(VAR arr: IntArrType);
VAR
     I:integer;
 BEGIN
     FOR i := 1 TO MaxElts DO
            writeln(arr[i]) ;

 END;
 
 {main Program}
    BEGIN
        ReadArr(arr);
        Bsort(arr);
        ArrPrint(arr);
        readln;
    END.  

---

A student file which is stored in the storage consist of Student Number, Name and Marks. Write a Pascal to below given tasks.

a) Write a procedure to input 20 Records of Students.
b) Write a Procedure to input a record No and Display the Record.
c) Write a procedure to Display all the records.

Const
    StNum=20;
Type
	Str25    = String[25];
	StRec =
			Record
				Stno, Stname : Str25;
				StMarks : integer;
			End;
        mf = File of StRec;
Var
	MarksArray : Array[1..StNum] of StRec;

	MarksFile  : mf;
	i            : 1..StNum;

{procedure to input a record}
Procedure EnterNewMark(var newStMark : StRec) ;
Begin
	Writeln('Please enter the Student Marks Details: ');
	Write('Student No: ');
	Readln(newStMark.Stno);
	Write('Student Name: ');
	Readln(newStMark.Stname);
	Write('Student Marks  : ');
	Readln(newStMark.StMarks);
End;
{procedure to display a record}
Procedure ListNewMark(var m :mf;i :integer);
var
        tempStRec  : StRec;
Begin

     ReSet(m);
     Seek(m, i-1);
     Read(m, tempStRec);
     Close(m);
     Writeln('The Student record details  #',i,':');
     Writeln;
     Writeln('Student No:  ', tempStRec.Stno);
     Writeln('Student Name: ', tempStRec.Stname);
     Writeln('Student Marks:   ', tempStRec.Stmarks);
 end;
{procedure to display all the record}
Procedure ListAllMark(var m :mf);
var
        tempStRec  : StRec;
Begin

     ReSet(m);
     Seek(m, 0);
     while not eof(m) do
     begin
          Read(m, tempStRec);
          Writeln('Student No:  ', tempStRec.Stno);
          Write(chr(9));    {tab}
          Write('Student Name: ', tempStRec.Stname);
          Write(chr(9));
          Write('Student Marks:   ', tempStRec.Stmarks);
     end;
 end;
{Main Program}
Begin
	Assign(MarksFile, 'bookrec.dat');
	ReWrite(MarksFile);

	For i := 1 to StNum do
	Begin
		EnterNewMark(MarksArray[i]);
		{ bookRecArray[i] now contains the book details }
		Write(MarksFile, MarksArray[i]);
	End;

	Close(MarksFile);
	Writeln('Record Successfully saved in a file!');
	Write('Enter a record Number to display  ');
	Readln(i);
        ListNewMark(MarksFile,i);
        Writeln('List All Records.......');
        ListAllMark(MarksFile);
	Readln;
End. 

---