Quote
u137847...@spawnkill.ip-mobilphone.net (y_542...@yahoo.com) wrote in message news:<l.1012959598.1941131591@[63.127.215.130]>...
> please help. i need the code in below translated to borland pascal:
> let's say: num1min :=10 num1max :=20 num2min :=10 num2ref :=100
const
num1min : integer = 10;
num1max : integer = 20;
num2min : integer = 10;
num2ref : integer = 100;
val
blabla : text; (* also here you put all your other variables *)
begin
...
repeat
(* some stuff go here too *)
num1[a] := num1min + num1incr;
num2[a] := num2min + num2incr;
until num2 > num2ref;
(* to print 2 screen use these part *)
if num1 <= num1min then
writeln (num1, ' <= ',num1min);
if (num1 < num1max) and (num1min < num1) then
writeln (num1,' = ',num1);
if num1 >= num1max then
writeln (num1,' >= ',num1max);
(* to print 2 file use these one *)
assign (blabla,'my_file.txt');
rewrite (blabla);
if num1 <= num1min then
writeln (blabla,num1, ' <= ',num1min);
if (num1 < num1max) and (num1min < num1) then
writeln (blabla,num1,' = ',num1);
if num1 >= num1max then
writeln (blabla,num1,' >= ',num1max);
close (blabla);
...
end.
are you used to c programing?
Vasko
Quote
> Repeat
> (* some stuff go here *)
> num1[a] := num1min + num1incr.
> num2[a] := num2min + num2incr.
> Until num2 > num2ref
> Then like to print the results after the test is stopped to screen/file:
> If num1 <= num1min then print "val <= actual value of num1min"
> If num1min < num1 < num1max then print "val = actual value of num1"
> If num1 >= num1max then print "val >= actual value of num1max".
