Program Kolo Krug Uses Crt Var R integer

  • Slides: 8
Download presentation

Програма Program Kolo. Krug; Uses Crt; Var R: integer; L, S: real; Begin Text.

Програма Program Kolo. Krug; Uses Crt; Var R: integer; L, S: real; Begin Text. Back. Ground(1); Clr. Scr; Text. Color(13); Goto. XY(15, 2); Write('ПРОГРАМА ОБЧИСЛЕННЯ ДОВЖИНИ КОЛА I ПЛОЩI КРУГА'); Goto. XY(22, 7); Text. Color(14); Write('Введiть радiус кола R='); Readln(R); L: =2*3. 14*R; S: =3. 14*sqr(R); Window(15, 10, 60, 15); text. Back. Ground(4); Clr. Scr; Goto. XY(12, 3); Text. Color(10); Writeln('Довжин а кола L=' , L: 5: 2); Goto. XY(12, 5); Text. Color(2); Go. To. XY(23, 12); Writeln('Площа круга S=' , S: 5: 2); Readln; End.

Program 1 Uses crt Var a integer BeginProgram 1 Uses crt Var a integer Begin
Program prim Uses crt Var A P integerProgram prim Uses crt Var A P integer
program Andrey uses crt var i integer beginprogram Andrey uses crt var i integer begin
Program 1 Uses crt Var a integer BeginProgram 1 Uses crt Var a integer Begin
Program prim Uses crt Var A P integerProgram prim Uses crt Var A P integer
Procedure menaxy integer var yx integer Var xProcedure menaxy integer var yx integer Var x
1 uses crt var a b integer procedure1 uses crt var a b integer procedure