задание в делфи

[True_girl]

Срочно помогите сделать задание, я не могу разобраться

Составьте алгоритм и создайте приложение в соответствии с вашим вариантом. Предусмотрите проверку области допустимых значений. В случае неопределенности результата программа должна выдать соответствующее сообщение.

√(a*x+1) + d , |x|<d
z= sin(b*x+1), |x|=d
b3*cos(c*x+1), |x|>d

y=cosz+ln( (z*a) /x)

Входные данные a, b , c, d, x
выходные данные y, z

Зараннее спасибо

[Stilet]

Вот типа такого:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,c,d,x,z,y:double;
begin
 a:=1;b:=2;c:=3;d:=4;x:=3.5;
 if abs(x)<d then z:=sqrt(a*x+1)+d;
 if abs(x)=d then z:=sin(b*x+1);
 if abs(x)>d then z:=b*3*cos(c*x+1);
 if ((z*a)/x)>0 then
  y:=cos(z)+ln((z*a)/x);
 writeln(z:5:2);
 readln;
end.

Правда нужно уточнить с областью допустимых значений для логарифма

[начинающий кодер]

нужно уточнить с областью допустимых значений для логарифма

и еще X<>0

[alina-lisa]

Всем привет! Плиз помогите, не могу сообразить!
for i:=1 to 960 do
for j:=1 to 960 do
begin
if (i+j=960) then
r:=i/6+j/56;
end;
Мне нужно, чтобы еще было условие, проверяющее, что i/6 и j/56 являются целыми числами! как это сделать?

[__STDC__]

использовать mod

[puporev]

if frac(i/6)=0 целое

[alina-lisa]

спасибо огромное))) очень выручили!

[True_girl]

Спасибо, очень помог

[alina-lisa]

У меня есть еще такой вопросик! У меня есть массив с вершинами, например:
1-я вершина: (2 3 7 8 10 12)
2-я: (1 4 5 7 8 10 12 15)
и т.д
Т.е. какие то вершины с 6-ю компонентами, а какие то с 8-ю! Как сделать, чтобы во всех вершинах было по 8 компонент? Ну например, там где не хватает добавить 100 или любое число!

[puporev]

Количество вершин и количество значений в них заранее известно, или это надо придумать?