5 задач

[Wander]

Составьте пожалуста текст програмок :
1. Вычислить значения выражения
(х * у <>0) and (у > х) при х = 2, у = 1;
2. Вычислить координаты центра тяжести трех материальных точек с массами и координатами по формулам (ссылка на формулу):
3. Записать действие в виде одного условного оператора:
d = max (a, b, c);
4. Составить программу, вычисляющую экстремальное значение функции у=|a|e^bx+cx^2 при изменении аргумента х от 0 до 4 с шагом h
5. Не используя стандартные функции (за исключением abs), вычислить с точностью до 10^-4: рис 1.JPG

[Shuraken]

1.
function CheckedExpr(x: integer = 2; y: integer = 1): boolean;
begin
Result := (х * у <>0) and (у > х);
end;

Остальные звыняйте, надо думать.

[pu4koff]

3 задачу вапще реально решить?

[Shuraken]

Реально, если вспомнить что Case тоже условный оператор.

[pu4koff]

Сообщение от Shuraken

Реально, если вспомнить что Case тоже условный оператор.

а case'ом тут как?
ЗЫ. аж стыдно от незнания стало

[Yogurt]

Сообщение от Shuraken

Реально, если вспомнить что Case тоже условный оператор.

Если хорошо вспомнить оператор Case то получется, что там выражение должно иметь порядковый тип, а всписках значений должны стоять только константы.
А для порядкового типа существует функция High.

P.S. Можно ли использовать кроме одного условного оператора другие, например, цикл For?

[Shuraken]

Увы, через case не получилось, но можно так записать:
if (a > b) and (a > c) then
d := a
else if (b > a) and (b > c) then
d := b
else
d := c;
и это будет один условный оператор в три строки.

[mihaild]

3. Невозможно. С помощью одного условного оператора можно выяснить только один бит информации, а нам необходимо минимум (логарифм 3 по основанию 2).

[mihaild]

2)
function formula(m1,m2,m3,c1,c2,c3 : real):real;
begin
result:=(m1*c1+m2*c2+m3*c3)/(m1+m2+m3);
end;

begin
xc:=formula(m1,m2,m3,x1,x2,x3);
xy:=formula(m1,m2,m3,y1,y2,y3);
end.

[pu4koff]

Сообщение от Shuraken

Увы, через case не получилось, но можно так записать:
if (a > b) and (a > c) then
d := a
else if (b > a) and (b > c) then
d := b
else
d := c;
и это будет один условный оператор в три строки.

это будет 2 условных оператора или я чего-то путаю