Вопрос Помогите пожалуйста по информатике паскаль циклы

[ТОРТИК]

Циклические вычислительные процессы. Решение задач, содержащих вычисление конечных сумм и произведений

Составить циклический код на языке паскаль



Z = x*(sin x3 + cos2*y),

y=0,5;

0,3<x<1,8 ∆x=0,15

 

[Клифф]

В данном циклическом коде на языке Паскаль решается задача вычисления значения переменной Z по заданной формуле. Значение переменной y равно 0.5, а переменная x изменяется в диапазоне от 0.3 до 1.8 с шагом 0.15. В каждой итерации цикла вычисляется значение Z и выводится на экран.

 

[Алексааввы]

Эту задачу можно решать по разному. Вот, например, есть такой экономичный вариант: uses crt;
const y = 0.5;
var x: real; u: real = cos(2 * y);

procedure s();
begin writeln('——————————————————————————') end;

begin clrscr; s; writeln(' x z'); s; x := 0.3;
repeat writeln(x: 5: 2, x * (sin(x * x * x) + u): 20: 15);
x := x + 0.15 until x > 1.8; s; end

А экономичнее такой вариант тем, что не нужно на каждом шаге цикла вычислять значение выражения cos(2y), которое можно вычислить в самом начале всего один раз!
И вообще, смотрите что у Вас написано:
Z = x*(sin x3 + cos2*y) - это что за функция?
У меня и у Сеппенена это такая функция:
z(x,y) = x·[sin(x³)+cos(2y)]
У Кузнецова это x·[sin(x³)+cos(y²)]
А у Штейна это х·[sin(x³)+cos²]
А Вам какую надо?

 

[Денис999666]

Ну допустим

program CalculateZ;

uses
Math;

var
x, y, Z: Real;
step: Real;
begin
y := 0.5;
step := 0.15;
x := 0.3;

writeln(' x | Z');
writeln('------------------------');
while x

 

[Эдуардик]

омогите пожалуйста по информатике паскаль циклы
Циклические вычислительные процессы. Решение задач, содержащих вычисление конечных сумм и произведений
Составить циклический код на языке паскаль

Z = x*(sin x3 + cos2*y),
y=0,5;
0,3<x<1,8 ∆x=0,15

program CyclicProcess;
var
x, z, y: real;
begin
x := 0.3;
while x <= 1.8 do
begin
y := 0.5;
z := x * (sin(x * x * x) + cos(2 * y));
writeln('x = ', x:5:2, ' z = ', z:10:5);
x := x + 0.15;
end;
end.