For I := 1 to 1000 do begin X := random ; y := random; . . .

↑

▷ Содержание

⇐ ПредыдущаяСтр 3 из 3

for i := 1 to 1000 do begin x := RANDOM ; y := RANDOM; ...

end;....... end.

    Программа на ПАСКАЛЕ для вычисления числа Рi;

      Надо подобрать такое значение N, при котором Pi= 3.1415

    Добавить в программу операторы, которые будут вычислять  ещё указанную площадь

programpipi;usescrt;

varx,y:real; p:longint;

{Programkorni_PKU;}

 {usescrt;}

Procedure korni;

 varx1,x2,p,q,d:real;

 beginwriteln('Wedite p,q');

 read(p,q); d:=p*p/4-q;

 ifd>0 then beginx1:=-p/2+sqrt(d);

x2:=-p/2-sqrt(d);

writeln('x1= ',x1:4:2,' x2= ',x2:4:2);end;

ifd=0 then beginx1:=-p/2;x2:=-p/2;

writeln('x1=x2= ',x1:4:2); end;

ifd<0 thenwriteln('KORNI MNIMYE');

readln; end;

functionpii:real;

 vari,n:integer;

beginrandomize;

writeln('n=?');

read(n);

 fori:=1 ton do begin

x:=random;//случайные вещественные числа от 0 до 1

y:=random;

if(x*x+y*y)<1 theninc(p);

 end;

pii:=p/i*4;//умножаем на 4 так как мы якобы "стреляли" в 1-ю четверть координатной сетки

end;

beginclrscr;randomize;

writeln(pii);

end.

РЕШЕНИЕ ПРИВЕДЕННОГО КВАДРАТНОГО УРАВНЕНИЯ

{Programkorni_PKU;}

 {usescrt;}

Procedure korni;

 varx1,x2,p,q,d:real;

 beginwriteln('Wedite p,q');

 read(p,q); d:=p*p/4-q;

 ifd>0 then beginx1:=-p/2+sqrt(d);

x2:=-p/2-sqrt(d);

writeln('x1= ',x1:4:2,' x2= ',x2:4:2);end;

ifd=0 then beginx1:=-p/2;x2:=-p/2;

writeln('x1=x2= ',x1:4:2); end;

ifd<0 thenwriteln('KORNI MNIMYE');

readln; end;

Теорема ВИЕТА

X1+X2=-P

X1*X2=Q

Познавательные статьи:



Техника нижней прямой подачи мяча

Комплекс физических упражнений для развития мышц плечевого пояса

Стандарт Порядок надевания противочумного костюма

Общеразвивающие упражнения без предметов