| Головна » Статті » Pascal » Приклади програм |
Розрахунок числа Пі методом інтегрування Pascal
| program babay; uses crt; var Рi, i, h:double; begin clrscr; Рi:=0; i:=-1; h:=0.0000000000000000001;{крок, що рівний 10-19} while (i<=0) do{рахую інтеграл} begin pi:=pi+sqrt(1-i*i); i:=i+h; end; pi:=pi*4; pi:=pi/10000000000000000000; writeln(pi);{вивожу отримане значення} readln(i);{зупиняю у такий спосіб програму} end. | |
| Переглядів: 159 | | |
| Всього коментарів: 0 | |