test.pas

袖珍型的pascal编译器

{This is a super test Program}
Program test;

Const 	MAX = 1000+(78*7+9);
		SUPERMAX = MAX +1;

Var	i,j,a,v:Integer;
		t1,t2:Array[1 .. 100] of Integer;
		r1,r2,r3:	Record
						x,y:Integer;
						nval:Integer;
						value:Real;
						svalue:Char
						End;
		r:Record
			z:Integer
			End;


{testing procedures}
Procedure Tipareste(n,k:Integer);
Var i:Integer;
	j:Real;

Begin {proc Tipareste}


Case i Of
1,2,3:
	Begin 
		i:=0;
		i:=i+1;
	End
Otherwise
	i:=1
End;



For i:= 1 To n Do
	Print("Nr:",n);
j:=i;
if i=1 then							
		print("i este egal cu 1");
		
End;	{proc Tipareste}


{testing functions}
Function Factorial(Var n,k,g:Integer):Integer;
Var i,j:Integer;

Procedure test;
Var i:Integer;
Begin
For i:= 1 To 10 Do
Tipareste(10,i);
r3.value := (10.0 + 6) / 7 + t1[1];
r3.svalue := '\n';
End;

Begin {function factorial}
{j := 1;}
For i:=1 To n Do 
	Tipareste(1,10);
	j:= (j+10)*7;
Test;
{Factorial:=j;}
End; {function factorial}



Begin{Program principal}
t1[4]:=factorial(t1[1],t2[2],t1[4]);
r1.x := 1;
If a<5 Then a:=1;
Print ("Insert a value :");
Read (v);
Print ("The Value :",v,235263.5);
Tipareste(10,7);
End.{Programul principal}