ну идея такая.Помогите решить задачу:
Скласти програму обчислення значення функції використовуючи,в якості підпрограми процедури алгоритм знаходження модуля.
function y(x: Extended): Extended;
function locAbs(AValue: Extended): Extended;
begin
if AValue < 0 then
locAbs := -AValue
else
locAbs := AValue;
end;
var
locResult: Extended;
begin
{
по уму стоит вычислить корни кв. уравнения x1 x2,
при которых знаменатель обращается в ноль
и вставить проверку области допустимых значений такого типа:
if (x = x1) or (x = x2) then
begin
writeln('diviZion by НОЛЬ !!!!')
locResult := 0;
end
else
begin
}
locResult := 4*x*x-x+5;
locResult := locAbs(locResult);
locResult := (x + locAbs(x*x - 5)) / locResult;
{end;}
y := locResult;
end;
а чем дельфи рылом не вышел ?...
Borland Pascal for Windows ???
...
как работать с модулями WinTypes и WinProcs и ваще API функциями )
на чем сказали писать на том и приходится, а хотя забью наверно, попробую делфи помучатьа чем дельфи рылом не вышел ?
зачем именно так хитро ?
C тя литра сокаЛюди помагите решить задачу по информатике!!!
Дан одномерный массив М(К). Сформировать новый массив В(К) каждый элемент которого равен удвоенному элементу массива (К=10). Вывести элементы нового массива в строку и вычислить их сумму.
:val: Заранее спасибо.