Вычислите значение функции

@ЮляСергеева · Регистрация: 08.11.2017

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

Разветвление в цикле

Составьте блок-схемы алгоритмов решения задач и программы на языке PASCAL с использованием цикла с предусловием, с постусловием, используя условный оператор IF.

Вычислите значение функции Z:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=w^2+1\\\\w=\begin{cases}ax & \text{, } x\,>\,a \\\\ x\cdot \ln (ax) & \text{, } x=a \\\\ ax^2 & \text{, } x\,<\,a \end{cases}\\\\a=2.5\\\\x\in [1;\,5]\\\\\Delta x=0.5<br />$

@Puporev · 11.11.2017, 15:57

Pascal

const a=2.5;
      xn=1;
      xk=5;
      dx=0.5;
var x,w,z:real;
begin
writeln('С предусловием');
x:=xn;
while x<=xk do
 begin
  if x>a then w:=a*x
  else if x=a then w:=x*ln(a*x)
  else w:=a*x*x;
  z:=w*w+1;
  writeln('x=',x:0:1,' w=',w:5:2,' z=',z:6:2);
  x:=x+dx;
 end;
writeln;
writeln('С постусловием');
x:=xn;
repeat
if x>a then w:=a*x
else if x=a then w:=x*ln(a*x)
else w:=a*x*x;
z:=w*w+1;
writeln('x=',x:0:1,' w=',w:5:2,' z=',z:6:2);
x:=x+dx;
until x>xk;
end.

@ЮляСергеева 0 / 0 / 0 Регистрация: 08.11.2017 Сообщений: 14
		1
	Вычислите значение функции 11.11.2017, 15:33. Показов 1080. Ответов 1 Метки нет (Все метки) Разветвление в цикле Составьте блок-схемы алгоритмов решения задач и программы на языке PASCAL с использованием цикла с предусловием, с постусловием, используя условный оператор IF. Вычислите значение функции Z: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=w^2+1\\\\w=\begin{cases}ax & \text{, } x\,>\,a \\\\ x\cdot \ln (ax) & \text{, } x=a \\\\ ax^2 & \text{, } x\,<\,a \end{cases}\\\\a=2.5\\\\x\in [1;\,5]\\\\\Delta x=0.5<br />$ 0

	11.11.2017, 15:57

Опции темы

Вычислите значение функции

Решение