Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to print marks memo using pascal

Critics Rating:

Users Rating:

(*PROGRAM TO PRINT MARKS MEMO*)

program student;

uses crt;

var

name,roll:string;

x,y,z,i,a:integer;

begin

clrscr;

write("ENTER STUDENT NAME : ");

readln(name);

write("ENTER ROLL NO : ");

readln(roll);

write("ENTER MATHS MARKS : ");

read(x);

if x>100 then

begin

writeln;

writeln(" ENTER BELOW 100 ");

exit;

end;

write("ENTER PHYSICS MARKS : ");

read(y);

if y>100 then

begin

writeln;

writeln(" ENTER BELOW 100 ");

exit;

end;

write("ENTER COMPUTER MARKS : ");

read(z);

if z>100 then

begin

writeln;

writeln(" ENTER BELOW 100 ");

exit;

end;

begin

if (x<35) then

begin

writeln;

writeln;

writeln(" SORRY FAILED IN MATHS ");

exit;

end;

if (y<35) then

begin

writeln;

writeln;

writeln(" SORRY FAILED IN PHYSICS ");

exit;

end;

if (z<35) then

begin

writeln;

writeln;

writeln(" SORRY FAILED IN COMPUTERS ");

exit;

end;

end;

a:=(x+y+z) div 3;

clrscr;

writeln;

writeln;

writeln(" MARKS MEMO OF B.S.C [computer] STUDENTS ");

writeln(" --------------------------------------- ");

writeln;

writeln(" STUDENT NAME : ",name);

writeln;

writeln(" ROLL NO : ",roll);

writeln;

writeln(" MATHS MARKS : ",x);

writeln;

writeln(" PHYSICS MARKS : ",y);

writeln;

writeln(" COMPUTER MARKS : ",z);

writeln;

writeln(" PERCENTAGE : ",a," % ");

if (a<=100) and (a>=80) then

begin

writeln;

writeln(" YOU HAVE GOT DISTINCTION");

writeln;

writeln(" VERY GOOD ");

end

else

if (a<80) and (a>=60) then

begin

writeln;

writeln(" YOU HAVE GOT FIRST CLASS ");

writeln;

writeln(" KEEP IT UP ");

end

else

if (a<60) and (a>=40) then

begin

writeln;

writeln(" YOU HAVE GOT SECOND CLASS ");

writeln;

writeln(" TRY TO IMPROVE ");

end;

end.

Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.