Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.71K
1 Posted Topic
Re: Pascal Examples
> a random problem generator, test your math skills program learn; uses crt; var a,b,c,e,f,right: integer; d:real; label 1,2,3,4,5; begin textbackground(green); textcolor(white); clrscr; repeat inc(f); until f=100000; randomize; 1: e:=random(3)+1; b:=random(200)+1; c:=random(200)+1; if e=1 then d:=b+c; if e=2 then d:=b-c; if e=3 then d:=b*c; writeln(' ',b:3); if e=1 then write('+ …
The End.