TUTORIAL IT

Program Basic_Arithmetic; 
Uses crt;
Label 20;
Var  A, B, Sum, Subtract, Divide, Multiply, Average:  Real;
Choice : Integer;
YN : Char;


Begin  
20 : Clrscr;
Writeln (' For addition, press 1');
Writeln (' For subtraction, press 2');
Writeln (' For Divison, press 3');
Writeln (' For multiplication, press 4');                            
Writeln ('To calculate Average, press 5');
Writeln ('To exit, Press 6');
Writeln ('Enter a number of your choice');
Choice := Readkey;


If choice = '1' then
Begin
Writeln (' Enter your first number');
Readln (A);
Writeln ('Enter your second number');
Readln (B);
Sum := A + B;
Writeln (' The answer is', Sum); 
Goto 20;
End; 


If choice = '2' then
Writeln ('Enter your first number');
Readln (A);
Writeln ('Enter your second number');                           
Readln  (B);
Subtract := A - B ;
Writeln ('The answer is',  Subtract);
Readln;
Goto 20;
End;


If choice = '3' then
Writeln ('Enter your first number');
Readln (A);
Writeln ('Enter your second number');
Readln (B);
Divide := A / B;
Writeln ('The answer is',  divide);
Readln;
Goto 20;
End;


If choice = '4' then
Writeln ('Enter your first number');
Readln (A);
Writeln ('Enter your second number');
Readln (B);
Multiply := A * B
Writeln ('The answer is',  multiply);
Readln;
Goto 20;
End; 

If choice = '5' then
Writeln ('Enter your first number');
Readln (A);
Writeln ('Enter your second number');
Readln (B);
Sum := A + B;
Average := Sum / 2 ;
Writeln ('The answer is:',  Average);
Readln;
Goto 20;
End;


If choice = '6' then
Writeln (' You are about exiting this program, to continue press Y/N');
YN :=  Readkey;
If YN = 'Y' then
Writeln (' Goodbye');
Halt;
If YN = 'N' then
goto 20; 
end;
End.

#include <iostream.h>
#include <math.h>
void main()
{
int num, a=0;
cout<<"enter a number: ";
cin>>num;
for(int i=2;i<num;i++)//loop begins at 2 since 1 can divide any number
{
  if(num%i==0)
  {
  a++;
  }
 }
 if(a==0)
 {
   cout<<num<<" is a prime number";
 }
  else
  cout<<num<<"is not a prime";
}

#include<iostream.h>
#include<math.h>
int main()
{
int i,n,sum=0;
cout<<"enter a number";
cin>>n;
for (i=1;i<n;i++)
  {
 if(n%i==0)
 sum=sum+i;
  }
 if(sum==n)
  cout<<i<<"is a perfect number";
 else
  cout<<i<<"is not a perfect number";
return 0;
}

#include<iostream.h>
#include<conio.h>
#include<math.h>


void main()
{
 float a,b,c,d,x1,x2;
 
        cout<<"Enter the value of  a: ";
 cin>>a;
        cout<<"Enter the value of  b: ";
 cin>>b;
        cout<<"Enter value of  c: ";
 cin>>c;
 
        d=b*b-4*a*c;

 if(d==0)
 {
  x1=(-b)/(2*a);
  x2=root1;
  cout<<"The Roots are real & equal";
   }
 else if(d>0)
 {
  x1=-(b+sqrt(d))/(2*a);
  x2=-(b-sqrt(d))/(2*a);
  cout<<"the Roots are real & distinct";
 }
 else
 {
  x1=(-b)/(2*a);
  x2=sqrt(-d)/(2*a);
  cout<<"Roots are imaginary";
 }

 cout<<x1<<" "<<x2;
}

//C++ program that computes the least common multiple of two integers. These are represented as a and b below.

#include<iostream.h>
#include<conio.h>
void main()
{
int a,b,i,j; //Variable declarations
clrscr;
cout<<"enter a number: ";
cin>>a;
cout<<"enter a number: ";
cin>>b;
i=a ;
j=b;
 if(a==0||b==0) //Checks if either a OR b is 0
 cout<<" The LCM is 0"; //If 0 from the condition above, a display message is output to the screen
 else
 {
  while(a!=b)//While the value of a is not equal to b execute the statements below
  {
  if(a>b)
  b=b+j;
  else
  if(a<b)
  a=a+i;
  }
  cout<<"LCM:"<<" "<<a;
  }
 }

#include<iostream.h>
#include<math.h>
#include<conio.h>
void main()
{
int a,b,c;
clrscr();
cout<<"enter the first value";
cin>>a;
cout<<"enter  the second value";
cin>>b;
cout<<"enter the third value";
cin>>c;
if (a>b&&b>c)
cout<<"The greatest is: "<<a;
else
if(a<b&&b>c)
cout<<"The greatest is: "<<b;
else
if(a<b&&b<c)
cout<<"The greatest is: "<<c;
else
if(a==b&&b==c)
cout<<"Non is greater!!";
}

Program Arithmetic Operation (Input, Output);  
Uses Crt;  
Label 5;  
Var Sum, Ave, Number: Real;   
    i: integer;   

Begin  
5:   Writeln ('Enter a number');            
Readln (number);            
If Number<0 then goto 10            
Else            
Sum:=Sum+Number;            
i:=i +1;            
IF i<10 then goto 10;             
AVE:= sum/10            
Writeln ('sum=', sum);            
Writeln ('Average=' , Ave);            
Readln; 
End.