Нужна блок-схема.
Составить программу табулирования функции y=(3x^2-4)/(x+1) на интервале [0.5; 2.5] с шагом 0.1
program alr;
var a,b,h,x:real;
function y(t:real):real;
Begin
y:=(3*sqrt(t)-4)/(t+1);
end;
begin
write('введите начало и конец отрезка');
readln(a,b);
writeln('Введите шаг табул');
readln(h);
writeln('аргумент функ');
x:=a;
repeat
writeln();
x:=x+h;
Until x>b
Readln;
End

В условии дана функция:

\[y=\frac{3x^2-4}{x+1}\]

В программе нужно использовать \(x^2\), а не \(\sqrt{x}\).

Блок-схема:

• Начало.
• Ввод \(a\), \(b\), \(h\).
• Присвоить \(x:=a\).
• Проверка: \(x\leq b\)?
• Если да, вычислить \(y=\frac{3x^2-4}{x+1}\), вывести \(x\) и \(y\), затем выполнить \(x:=x+h\).
• Вернуться к проверке \(x\leq b\).
• Если нет — конец.

Программа на Pascal:

program alr;
var a, b, h, x, z: real;
begin
  write('Введите начало, конец и шаг: ');
  readln(a, b, h);
  x := a;
  while x <= b do
  begin
    z := (3*x*x - 4) / (x + 1);
    writeln('x = ', x:4:1, ' y = ', z:8:3);
    x := x + h;
  end;
  readln;
end.

0 0 Пожаловаться