Циклический вычислительный процесс

[dv666]

Помогите, пожалуйста, решить задачу. Т.к. учусь на химика и ничего не понимаю в паскале
Задание звучит так:
Составить таблицу значений функции Y при изменении аргумента X на интервале от А до В с шагом Н, если при некоторых значениях аргумента функция не определена, то вывести соответствующее сообщение.
И дана формула: y=G*x^2+9*sin(sqrt(5,2+x))
Также даны значения А=-7,1; В=-2,2; G=3,48; H=0,8

[KantalSoft]

Здравствуйте,
Я могу написать для Вас такую программу.
В течении одного дня вышлю исходный код.
Но я пишу на C#
Если такой вариант Вас устраивает напишите мне на okantalinski@hotmail.com

[sheka]

Обращайтесь! Сделаю. 255507394

[pproger]

чеж народ вы делаете. сишника на паскале писать заставили... неужели !!!5!!! минут лень потратить? (я с маном потратил 10). или все такие алчные?

функцию неопределенной считаю при отрицательном подкоренном выражении.

const h: real = 0.8;
const g: real = 3.48;

var
x, y, p: real;
a, b: real;

begin
a := -7.1;
b := -2.2;
x := a;
p := 5.2 + x;

while (x < b) do
begin
if (p <= 0) then
begin
writeln('function not defined on X = ', x);
end
else begin
y := g * sqr(x) + 9 * sin(sqrt(p));
writeln('X = ', x, ' Y = ', y);
end;
x := x + h;
p := 5.2 + x;
end;
end.

[dv666]

Спасибо огромное