Описание опыта работы (стр. 4 )

Program MonteKarlo;

Var S, X,Y: real;

i, M,N: longint;

Begin

Randomize;

write('Введите количество точек: ');

readln(N);

i:=0;

M:=0;

While i<=N do

begin

X:=2*Random-1;

Y:=2*Random-1;

if X*X+Y*Y<=1 then M:=M+1;

i:=i+1;

end;

S:=4*M/N;

writeln('N=',n, ' S=',S);

readln;

End.

Приложение 4

&

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

¦

до

ре

ми

фа

соль

ля

си

до

ре

ми

фа

соль

ля

си

до

ре

ми

фа

соль

ля

си

Малая октава

Первая октава

Вторая октава

до

до-диез

ре

ре-диез

ми

фа

фа-диез

соль

соль-диез

ля

ля-диез

си

до

до-диез

ре

ре-диез

ми

фа

фа-диез

соль

соль-диез

ля

ля-диез

си

до

до-диез

ре

ре-диез

ми

фа

фа-диез

соль

соль-диез

ля

ля-диез

си

131

139

147

156

165

175

185

196

208

220

233

247

262

277

294

311

330

349

370

392

415

440

466

494

523

554

587

622

659

698

740

784

831

880

932

988

Кодирование мелодии