Две задачки на функции Опции

[:phoenix]

1.
X1/2-ln(x+1)
a=0
b=4
шаг=0.25
Составить таблицу значений функции y=f(x) на отрезке a до b с шагом h. Вид функции, значения a, b, h взять из вышеперечисленных данных.
Для построения таблицы значений использовать цикл с предусловием в вариантах с нечетными номерами и цикл с постусловием в вариантах с четными номерами. Таблица должна выводиться на экран в два столбца с заголовками ‘x’ и ‘f(x)’


2.
Вычислить объем детали и её массу, если деталь имеет форму прямоугольного параллелепипеда с 4 сквозными отверстиями цилиндрической формы равных размеров. Размеры детали и плотность заданы.

[volvo]

1. Номер варианта не знаю, так что цикл с предусловием

Код

var
a,b,y:extended;

begin
a:=0; b:=4;
writeln('x':10, 'f(x)':10);
while a<=b do
  begin
    y:=sqrt(a) - ln(a + 1);
    writeln(a:10:1, y:10:3);
    a:=a+0.25;
  end;
readln
end.

P.S. В следующий раз давайте нормальные заголовки...

2.

Размеры детали и плотность заданы.

Может, вам они и заданы, но для решения явно условий не хватает...

Сообщение отредактировано: volvo - 21.12.2004 21:39

[FreeMan]

Код

var a,b,c,r,ro:real;
begin
writeln('vvedi storoni (a,b,c), radius otverstia i plotnost'');
writeln('c-storona, paralelnaya otverstiyam');
readln(a,b,c,r,ro);
writeln('V=',a*b*c-pi*r*r*c*4, ' m=',ro*(a*b*c-pi*r*r*c*4));
readln;
end;

Вот так.

[Digitalator]

FreeMan, отверстий 4 штуки и не сказано как расположены

условий не хватает...

[FreeMan]

Тогда это часный случай