Pascal

CCASS\ \Pascal\\

Pascal

CCASS\ \Pascal\\

QPascal(

ProgramChangeTime(input,output);

varTime,Sec:integer;

3)

ProcedureChangeHour(varTime:integer);

varHour:integer;

begin

7)

8)

write(‘Enterhour:’);readln(Hour);

Time:=Time+Hour*3600

end;

ProcedureChangeMin(varTime:integer);

varMin:integer;

begin

write('Enterminute:');

readln( );

Time:=Time+

end;

begin

Time:=0;

ChangeHour(Time);

ChangeMin ;

write('Entersecond: ');

readln(Sec);

Time:=Time+Sec;

writeln('Totaltimeinsecondis',Time)

end.

a) 2 12 20

Pascal ( )

CCASS\ \Pascal\\

Pascal

CCASS\ \Pascal\\

Qpascal

3)

3)

end;

ProgramSquare(input,output);vari,j:integer;

begin

fori:=1to2do

begin

forj:=1to2dowrite('#':2);

writeln

end;

fori:=1to3do

begin

forj:=1to3dowrite('*':2);

writeln

end;

fori:=1to4do

begin

forj:=1to4dowrite('O':2);

writeln

end

a)

b) 4-910-15 16-21

c)

"symbol"(

);

"size"()procedureDrawsquare(begin

TOC\o"1-5"\h\z

d) (c)

(c) (d)

(c) (d)g)

( )

Entertheradiusofasphere:2

Findthevolume.

Findthesurfacearea.

Exittheprogram

Enteryourchoice(1,2or3):1

Volumeofthesphereis33.49

Entertheradiusofasphere:45

Findthevolume.

Findthesurfacearea.

Exittheprogram

Enteryourchoice(1,2or3):3

volume

programVolArea(input,output);

constPi=3.14;

varchoice:char;

R:real;

procedurevolume;

varv:real;

begin

end;

area

procedurearea;

vara:real;

begin

end;

(*MainProgram*)

begin

repeat

write(‘ ’);

;

writeln;

writeln(‘1. Findthevolume.’);

writeln

writeln