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

  1. Пожалуйста помогите разобраться с табуляцией в Borland Pascal Пример: y = 3 sin ^ 2 ( 5 * x + 0, 5 ) при X є [0; 0; 2] Заранье Спасибо.Добавлено через 2 часа 22 минуты Уважаэмые форумчане помогите решить, в завтра сдача сессии робота нужна по зарез!


textual

Код к задаче: «Вычислить значение выражения - Turbo Pascal»

function f(x: real): real;
begin
result := 3 * sqr(sin(5*x + 0.5));
end;
 
var x,y,dx: real;
i,n: integer;
begin
n := 10;
dx := (2 - 0)/n;
WriteLn('|  x  |   y   |');
for i:=0 to n do
begin
x := 0 + i * dx;
y := f(x);
 WriteLn('| ',x:1:3,' | ',y:1:4,' |');
end;
 
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5



Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

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

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса: