Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- BEGIN REAL A,B,C,D'
- READ D'
- FOR A:= 0.0 STEP D UNTIL 6.3 DO
- BEGIN
- PRINT PUNCH(3),££L??'
- B := SIN(A)'
- C := COS(A)'
- PRINT PUNCH(3),SAMELINE,ALIGNED(1,6),A,B,C'
- END'
- END'
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement