DOS Roots Lab

Circle Calculator, Rebuilt from 1995

Another early geometric utility: read radius, apply a PI-based formula, and output the circumference in the same text-console style.

Back to DOS Projects

Run DOS Remake

This remake keeps the original one-prompt circumference workflow.

Commands: ENTER to begin, positive numeric radius, Y/N replay, RESET to restart.

CIRC.EXE - Circle Calculator (1995) 
 
  P:\>   
 
 
   
 
  
 
 
 
 
 
 
Original Program Intent
 
 CIRC.PAS is a concise formula program centered on a practical scenario:
            measuring the distance around a round swimming pool.

 

It reflects early comfort with constants, typed numeric variables,
            and formatted output in CRT-based Pascal programs.

 
 
 
Original Pascal Logic
 
From CIRC.PAS (Turbo Pascal, 1995)
 
 
1) PI Constant
 
const
  Pi = 3.15159;
 
 
 
2) Radius Input
 
write('enter the radius of your round swimming pool-- ');
readln(Radius);
 
 
 
3) Circumference Output
 
Circum :=2 * Radius * Pi;
writeln('the distance around your pool is:  ',Circum:1:2);
 
 
 View longer 1995 source excerpt 
program Circ;
  uses crt;

  const
    Pi = 3.15159;
  var
    Circum,Radius : real;

begin
    clrscr;
    write('enter the radius of your round swimming pool-- ');
    readln(Radius);
    Circum :=2 * Radius * Pi;
    writeln('the distance around your pool is:  ',Circum:1:2);
end.
 
 
 
 
 
 
 
 
Developer Notes
 
 
 
What Stayed True
 
     
  • Same single-radius input and immediate circumference result.
    •  
  • Same PI constant value used in the original source.
    •  
  • Same direct classroom-style prompt and output tone.
    •  
 
 
 
What Changed for Web
 
     
  • Browser terminal adds guardrails for invalid numeric entries.
    •  
  • Replay loop lets visitors run multiple values in one session.
    •  
  • RESET command restarts the DOS boot flow on demand.
    •  
 
 
 
 
 
 
 
 
 Back to DOS Projects Previous: Cone Calculator, Rebuilt from 1995