Вычислить значение выражения

@seferus · Регистрация: 11.08.2014

Author24 — интернет-сервис помощи студентам

Использовать цикл с постусловием Repeat

a,x,t - константы,значениями которых задаться самостоятельно.

@Joy · 25.12.2014, 07:36

Pascal

const hs=0.5;
var
  Ws,a,x,t,z:real;
begin
  repeat
    write('a,x,t=');readln(a,x,t);
  until x>0;
  z:=0.0;
  repeat
    z:=z+hs;
    Ws:=(abs(a*a*a)+exp(ln(sqr(sin(z)))/3))/(sqrt(x)*exp(a*t));
    writeln(z:6:1,Ws:8:4);
  until z>=2.5;
end.

@seferus 0 / 0 / 2 Регистрация: 11.08.2014 Сообщений: 75
		1
	Вычислить значение выражения 24.12.2014, 22:13. Показов 985. Ответов 1 Метки нет (Все метки) Использовать цикл с постусловием Repeat a,x,t - константы,значениями которых задаться самостоятельно. 0

	25.12.2014, 07:36

Вычислить значение выражения

Решение