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