test.pas

C++ mfc 源代码

//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;

Procedure Tipareste(n,k:Integer);
Var i:Integer;

Begin // proc Tipareste
For i:= 1 To n Do
	Print("Nr:",n);
End;	// proc Tipareste

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;
r3.svalue := 45;
End;

Begin // function factorial
//j := 1;
For i:=1 To n Do 
	Tipareste(1,10);
	j:= j+10;
//Factorial:=j;
End; // function factorial



// Program principal

Begin
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