Ответы
Ответ дал:
0
begin
var a := -4.0;
var b := 5;
var h := 1.5;
while a <= b do
begin
var y := 3 * a - power(sin(a), 3);
writeln('F('+a+') = ' + (y:4:2));
a += h;
end;
end.
Ответ дал:
0
И где repeat ?
Ответ дал:
0
begin
var (a, b, h) := (-4.0, 5.0, 1.5); // общее
// первая
var x := a;
while x <= b + h / 2 do
begin
var t := Sin(x);
var y := 3 * x + t * t * t;
Writeln(x:4:1, y:21:15);
x += h
end;
Writeln;
// вторая
x := a; // если отдельная прогркмма, добавить var вначале
repeat
var t := Sin(x);
var y := 3 * x + t * t * t;
Writeln(x:4:1, y:21:15);
x += h;
until x > b + h / 2
end.
Приложения:
![](https://st.uroker.com/files/674/674b45510b006958c5719bbc3daa5c3a.jpg)
Ответ дал:
0
бомбалейло спасибо
Ответ дал:
0
Можно заменить еще var t := Sin(x);
var y := 3 * x + t * t * t; одной строкой var y := 3*x+Sin(x)**3;
var y := 3 * x + t * t * t; одной строкой var y := 3*x+Sin(x)**3;
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад