Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2 курс / Численные методы / Задание 3 / Beta / Program1
.pas var y,n,x:real;
i,k,tos:integer;
begin
writeln('wwedi tochnost');
readln(tos);
for i:=1 to tos do
begin
x:=random;
y:=random;
if y>=0 then
if y<=1 then
if y<=sqrt(1-x*x)
then k:=k+1
else k:=k+0
else k:=k+0
else k:=k+0
end;
n:=4*k/tos;
writeln(n);
end.
i,k,tos:integer;
begin
writeln('wwedi tochnost');
readln(tos);
for i:=1 to tos do
begin
x:=random;
y:=random;
if y>=0 then
if y<=1 then
if y<=sqrt(1-x*x)
then k:=k+1
else k:=k+0
else k:=k+0
else k:=k+0
end;
n:=4*k/tos;
writeln(n);
end.
Соседние файлы в папке Beta