Вычислить 15 элементов, которые получены в результате вычисления арифметического...

Question

Вычислить 15 элементов, которые получены в результате вычисления арифметического выражения: Y= , где xÎ [0.75;3] с шагом = 0.2.Вычислить все значения и найти количество элементов <0.1<br> Нужна блок-схема и программа в паскале.

Comments

y=?

---

Y=sqrt(x)*sin(x)/2

---

количество значений y<0.1 ?

Answer 1

PROGRAM A19;
{
Вычислить 15 элементов, которые получены в результате вычисления арифметического выражения:
Y=sqrt(x)*sin(x)/2 , где x [0.75;3] с шагом = 0.2.Вычислить все значения и найти количество элементов <0.1<br>}
CONST
    min = 0.75;
    max = 3;
    stp = 0.2;
    val = 0.1;

var j:byte;
    zr, ir:real;

BEGIN
  j := 1;
  ir := min;
  while ir<=max do begin<br>    zr := sqrt(ir)*sin(ir)/2;  
    if (zr      j:=j+1;
    writeln('x=',ir,' y=',zr);

    ir := ir+stp;
  end;
  writeln('количество элементов y < ',val,' = ',j-1);
END.

---

---

Comments

Значений же 12, а не 15 получается, нет?

---

сейчас проверю

---

при x в [0.75;3] с шагом 0.2, не получается 15 элементов

---

13 элемент уже больше 15

---

что-то не то в условии, потому что никого нет меньше 0.1

---

Ага

---

Тоже смотрю

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
 var x:=0.75;
 var kol:=0; 
  while x<=trunc(3+0.2/2) do<br>   begin
    var y:=sqrt(x)*sin(x)/2;
    Write('x=',x,'  ');Writeln('y=',y);
    x:=x+0.2;
    if y<0.1 then inc(kol);<br>   end;
 Println('Количество y<0.1=',kol);<br>end.

Результат:
x=0.75  y=0.295158241192166
x=0.95  y=0.39640968210305
x=1.15  y=0.489415138771753
x=1.35  y=0.566844047305235
x=1.55  y=0.622360374192837
x=1.75  y=0.650845527252713
x=1.95  y=0.648610822565261
x=2.15  y=0.613567255886829
x=2.35  y=0.545333998474535
x=2.55  y=0.445274740480793
x=2.75  y=0.316456576938099
x=2.95  y=0.163530818695244
Количество y<0.1 0 <br>