Здравствуйте. Помогите пожалуйста решить вторую задачу ** Visual Basic 6.0, Pascal ABC,...

Question

Здравствуйте.
Помогите пожалуйста решить вторую задачу на Visual Basic 6.0, Pascal ABC, Dev C++ или хотя бы что-нибудь из этого.
Даю 46 баллов.

---

Comments

Непонятно как определять c(j)

Answer 1

Const
  b = 18;
  h = 5;

var
  a: array [1..4] of real := (2.1, 3.2, 4.8, 5.7);

begin
  var y := 1.0;
  var c := 15;
 
  var j := 1;
  while j <= 3 do <br>  begin
    c += h;
    y *= sin(c);
    j += 1;
  end;
 
  for var i := 1 to 4 do
    y += a[i] + sqrt(b);
 
  writeln('y = ', y);
end.

Sub Zadanie17890266_2()
    a = Array(0, 2.1, 3.2, 4.8, 5.7)
    b = sqr(18)
    c = 15
    h = 5
    yy = 1.0

    j = 1
    do while j<=3<br>        c = c + h
        yy = yy * sin(c)
        j = j + 1
    loop

    for i = 1 to 4
        yy = yy + a(i) + b
    next

    MsgBox yy
End Sub


Call Zadanie17890266_2()

я брала что С_0=15, h - шаг, тогда с_1=20 и тд

Comments

Dev C++ не знаю. Написано на VBScript и PascalABC.Net

Answer 2

Если считать, что c₁=15, c₂=20, c₃=25, то программа на паскале будет такой:
var a:array[1..4] of real;
b,c,h,i:integer;
p,s,y:real;
begin
a[1]:=2.1; a[2]:=3.2; a[3]:=4.8; a[4]:=5.7;
b:=18;
s:=0;
for i:=1 to 4 do s:=s+(a[i]+sqrt(b));
p:=1;
c:=15; h:=5;
while c<=25 do<br> begin
 p:=p*sin(c);
 c:=c+h;
 end;
y:=s+p;
writeln('y = ',y);
end.

Результат:
y = 32.691988532689