Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)

@Fantoccini · Регистрация: 25.02.2015

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

Здравствуйте.
Нужно программно решить систему с использованием трёх видов операторов цикла (счётчик, постусловие, предусловие). + Блок схема (с ней, скорее всего, я и сам справлюсь.)

$https://www.cyberforum.ru/cgi-bin/latex.cgi?T=\begin{cases}<br /> 0,5sin(x)+2cos(x) & \text{ , } x \gt 1,2 \\ <br /> zx-cos(z) & \text{ , } x=1,2 \\ <br /> sin(x)-2z & \text{ , } x \lt 1,2<br /> \end{cases}\\z=1,7 \\x\in [0;1,6] \\\Delta x=0,3$

Благодарен за любую помощь.

@Joy · 26.02.2015, 05:48

с постусловием

Pascal

const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
begin
  x:=0.0;
  repeat
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  until x>1.6;
  readln;
end.

Добавлено через 4 минуты
с предусловием

Pascal

const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
begin
  x:=0.0;
  while x<=1.6 do begin
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  end;
  readln;
end.

Добавлено через 2 минуты
счетчик

Pascal

const dx=0.3;
      z=1.7;
      eps=0.0000001;
var
  t,x:real;
  i:integer;
begin
  x:=0.0;
  for i:=1 to round(1.6/0.3)+1 do begin
    if x>1.2+eps then t:=0.5*sin(x)+2*cos(x) else
    if x<1.2-eps then t:=sin(x)-2*z else t:=z*x-cos(x);
    writeln(x:8:2,t:10:6);
    x:=x+dx;
  end;
  readln;
end.

@Fantoccini 0 / 0 / 0 Регистрация: 25.02.2015 Сообщений: 2
		1
	Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие) 25.02.2015, 13:17. Показов 4012. Ответов 1 Метки нет (Все метки) Здравствуйте. Нужно программно решить систему с использованием трёх видов операторов цикла (счётчик, постусловие, предусловие). + Блок схема (с ней, скорее всего, я и сам справлюсь.) $https://www.cyberforum.ru/cgi-bin/latex.cgi?T=\begin{cases}<br /> 0,5sin(x)+2cos(x) & \text{ , } x \gt 1,2 \\ <br /> zx-cos(z) & \text{ , } x=1,2 \\ <br /> sin(x)-2z & \text{ , } x \lt 1,2<br /> \end{cases}\\z=1,7 \\x\in [0;1,6] \\\Delta x=0,3$ Благодарен за любую помощь. 0

Опции темы

Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)

Решение