Здравствуйте. Помогите пожалуйста решить вторую задачу на Visual Basic 6.0, Pascal ABC, Dev C++ или хотя бы что-нибудь из этого. Даю 46 баллов.
Здравствуйте.
Помогите пожалуйста решить вторую задачу на Visual Basic 6.0, Pascal ABC, Dev C++ или хотя бы что-нибудь из этого.
Даю 46 баллов.
Гость
Ответ(ы) на вопрос:
ГостьЕсли считать, что 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
begin
p:=p*sin(c);
c:=c+h;
end;
y:=s+p;
writeln('y = ',y);
end.
Результат:
y = 32.691988532689
Гость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
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
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 и тд
Не нашли ответ?
Похожие вопросы