Solve all pascal programs

questions.pas

(************************************************************************
   Area of Circle - Program to find Area of a circle
*************************************************************************)
program AreaOfCircle;

const
PI = 3.141592654; // constant value of PI

var 
r : integer; // radius declaration
area: real; 
   
begin
  writeln('Area of a Circle Program');
  writeln('Please Enter Radius');
  readln(r);
  area := 2 * PI * (r * r); 
  writeln('Area of Circle ', area:7:2); // Area should have a precision of 7 and an scale of 2. Scale is decimal places, Precision is whole number part
end.



(************************************************************************
   Largest Number - Program to find largest number of two numbers
*************************************************************************)
program LargestNumber;

var 
firstNumber : integer;
secondNumber: integer;
   
begin
  writeln('Program to Determine Largest Number');
  writeln('Please Enter firstNumber');
  readln(firstNumber);
  writeln('Please Enter secondNumber');
  readln(secondNumber);
    
  if (firstNumber > secondNumber) then
     writeln('The Largest Number is ', firstNumber)
  else
     writeln('The Largest Number is ', secondNumber);
end.





(************************************************************************
   Largest of Three Numbers - Program to find largest number of three numbers
*************************************************************************)
program LargestOfThreeNumbers;

var 
firstNumber : integer;
secondNumber: integer;
thirdNumber: integer;
   
begin
  writeln('Program to Determine Largest Number');
  writeln('Please Enter firstNumber');
  readln(firstNumber);
  writeln('Please Enter secondNumber');
  readln(secondNumber);
  writeln('Please Enter thirdNumber');
  readln(thirdNumber);
    
  if (firstNumber > secondNumber)  AND (firstNumber > thirdNumber) then
     writeln('The Largest Number is ', firstNumber)
  else if (secondNumber > firstNumber) AND (secondNumber > thirdNumber) then
     writeln('The Largest Number is ', secondNumber)
  else 
    writeln('The Largest Number is ', thirdNumber);
end.



(************************************************************************
   Loop 1 - 20 - Program to print from 1 to 20
*************************************************************************)
program PrintOneToTwenty;
var
   a: integer;

begin
   for a := 1 to 20 do
   writeln(a);
end.



(************************************************************************
   Area of Triangle - Program to find area of triangle
*************************************************************************)
program AreaOfTriangle;
var
   length: integer;
   breadth: integer;
   area : real;

begin
   writeln('Program to find AreaOfTriangle');
   writeln('Please Enter Length');
   readln(length);
   writeln('Please Enter Breadth');
   readln(breadth);
   area := ((1/2) * breadth * length);
   writeln('Area of Triangle = ', area:7:2);
end.




(************************************************************************
   Student Data - Using Array
*************************************************************************)
program StudentData;

var
    name: array[1..15] of string;
    age: array[1..15] of integer;
    gender: array[1..15] of string;
    n : integer;

begin
    // Read the names,age and gender into array
   for n := 1 to 2 do
   begin
     writeln();
     writeln('**** READING DETAILS ',n,' *********');
     writeln();
     write('Input Name ', n, ' - ');
     readln(name[n]);
     write('Input Age ', n, ' - ');
     readln(age[n]);
     write('Input Gender ', n, ' - ');
     readln(gender[n]);
     writeln();
     writeln('**** READING DETAILS ',n,' *********');
     writeln();
   end;
   
   // Print them out
   for n := 1 to 2 do
   begin
      writeln();
      writeln('**** PRINTING DETAILS ', n, ' *********');
      writeln();
      writeln('Name = ', name[n]);
      writeln('Age = ', age[n]);
      writeln('Gender = ', gender[n]);
      writeln();
      writeln('**** PRINTING DETAILS ', n, ' *********');
      writeln();
   end;
end.





(************************************************************************
   Student Data - Using Records
*************************************************************************)
program StudentData;

type 
Profile = record
   name: packed array [1..10] of char;
   age: integer;
   gender: packed array [1..10] of char;
end;

var
    ProfileInformation: array[1..50] of Profile;
    n : integer;

begin
    // Read the names,age and gender into array
    
   for n := 1 to 2 do
   begin
     writeln();
     writeln('********** READING DETAILS ',n,' *************************');
     writeln();
     write('Input Name ', n, ' - ');
     readln(ProfileInformation[n].name);
     write('Input Age ', n, ' - ');
     readln(ProfileInformation[n].age);
     write('Input Gender ', n, ' - ');
     readln(ProfileInformation[n].gender);
     writeln();
   end;
   
   // Print them out
   for n := 1 to 2 do
   begin
      writeln();
      writeln('************ PRINTING DETAILS ', n, ' ***********************');
      writeln();
      writeln('Name = ', ProfileInformation[n].name);
      writeln('Age = ', ProfileInformation[n].age);
      writeln('Gender = ', ProfileInformation[n].gender);
      writeln();
   end;
end.



(************************************************************************
   Area and Circumference - Using Functions
*************************************************************************)
program areaCircumference;

const 
PI = 3.142;

var
   r : integer;
   circumferenceArea, circleArea: real;

function areaOfCircle(radius: integer): real;
var
   area: real;
begin
   area := radius * radius * PI;
   areaOfCircle := area;
end;

function circumferenceOfCircle(radius: integer): real;
var
   circumference: real;
begin
   circumference := 2 * PI * radius;
   circumferenceOfCircle := circumference;
end;

begin
   write('Please Enter Radius ');
   readln(r);
   circleArea := areaOfCircle(r);
   circumferenceArea := circumferenceOfCircle(r);
   writeln( 'Area of Circle : ', circleArea:7:2);
   writeln( 'Circumference of Circle : ', circumferenceArea:7:2);
end.



(************************************************************************
   Conversion Between Celsius and Fahrenheit
*************************************************************************)
program converter;


var
   fahrenheit : real;
   celsius : real;
   option : integer;

begin
    writeln('Program to Convert fahrenheit to celsius and vice versa');
    write('Please Choose Option ');
    readln(option);
    case option of 
        1: 
          begin
            write('Please enter degree in celsius ');
            readln(celsius);
            fahrenheit := ((9 * celsius)/5  + 32);
            writeln('Degree in Fahrenheit = ', fahrenheit:7:2);
          end;
        2: 
          begin
            write('Please enter degree in fahrenheit ');
            readln(fahrenheit);
            celsius := ((5/9) * (fahrenheit - 32));
            writeln('Degree in Celsius = ', celsius:7:2);
          end;
        else
		begin
			writeln('Please select either 1 or 2');
			exit;
		end;
    end; 
end.


(************************
   Factorial - Iterative
*************************)
program factorialIterative;
var 
   result,n,s,i: integer;
   
function recursive(n: integer): integer;
begin
   i:=1;
   s:=1;
   while i<=n do 
   begin
      s:=s*i;
      i:=i+1;
   end;
   recursive := s;
end;

begin
  write('n = ');
  readln(n);
  result := recursive(n);
  writeln(n,'! = ',s);
end.



(************************
   Factorial - Recursion
*************************)
program factorialRecursion;

var n, f: integer;

function factorial(n: integer): integer;
begin
  if n>1 then
    factorial:= n * factorial(n-1)
  else
    factorial:=1;
end;

begin
  write('n = ');
  readln(n);
  f:= factorial(n);
  writeln(n,'! = ',f);
end.



(************************************************************************
   Area and Circumference - Using Procedures
*************************************************************************)
program areaCircumference;

const 
PI = 3.142;

var
  r,res: integer;
  circumferenceArea, circleArea: real;

procedure areaOfCircle(radius: integer; var res: real);
var
  area: real;
begin
  area := radius * radius * PI;
  res := area;
end;

procedure circumferenceOfCircle(radius: integer; var res: real);
var
  circumference: real;
begin
  circumference := 2 * PI * radius;
  res := circumference;
end;

begin
  write('Please Enter Radius ');
  readln(r);
  areaOfCircle(r, circleArea);
  circumferenceOfCircle(r,circumferenceArea);
  writeln( 'Area of Circle : ', circleArea:7:2);
  writeln( 'Circumference of Circle : ', circumferenceArea:7:2);
end.