Народ, , нужно написать програмку в эксель vba вычислить объем детали и ее массу, если деталь имеет форму прямоугольного параллелепипеда с четырьмя сквозными отверстиями цилиндрической формы равных размеров. размеры детали и плотность заданы. и еще пример рассчитать там же: u=lg(x^2+y^2+1), где x=arctg(a+b) y=sin(ab-2) a и b вводом заранее )

Объем прямоугольного параллелепипеда с длиной а, шириной b и высотой h  может быть найден, как произведение площади основания ab на высоту, т.е. Vп=abh.
Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4.
Окончательно V = Vп-4Vц = h(ab-πD²).
Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV

В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.

Файл с рабочей книгой MS Excel 2003 дан во вложении.
На всякий случай ниже приводятся коды, прописанные в кнопках.

Private Sub CommandButton1_Click()
    ' ввод
    a = Cells(1, 2).Value
    b = Cells(2, 2).Value
    h = Cells(3, 2).Value
    D = Cells(4, 2).Value
    rho = Cells(5, 2).Value
    'расчет
    V = h * (a * b + Pi * D ^ 2)
    m = rho * V
    ' вывод
    Cells(7, 2) = V
    Cells(8, 2) = m
End Sub

Private Sub CommandButton2_Click()
    a = CDbl(InputBox("Введите значение a"))
    b = CDbl(InputBox("Введите значение b"))
    x = Atn(a + b)
    y = Sin(a * b - 2)
    u = Log(x ^ 2 + y ^ 2 + 1)
    MsgBox "y=" + CStr(u)
End Sub

1.
var
f_name,s_name:string;
begin
writeln('Введите имя');
readln(f_name);
writeln('Введите фамилию');
readln(s_name);
writeln('Доброе утро ',f_name,' ',s_name);
end.

2.
var
s,a:real;
i:integer;
begin
s:=0;
for i:=1 to 5 do
begin
writeln('Введите число №',i);
readln(a);
s:=s+a;
end;
writeln('Сумма=',s)
end.

3.
var
s,a:real;
i:integer;
begin
s:=1;
for i:=1 to 3 do
begin
writeln('Введите число №',i);
readln(a);
s:=s*a;
end;
writeln('Произведение=',s);
end.

4.
var   
a, b, c, max:
integer;
 begin   
 write ('Введите три числа: ');   
readln (a, b, c);    
if a >= b then       
max := a    else       
max := b;    
if c > max then       
max := c;    
writeln ('Максимальное число: ', max); 
end.

Вообщем стратегия такая: сначала наращиваем мощности, а потом копим печеньки
Программа вычисляет оптимальную максимальную мощность. Это оказывается 9 или 10 печенек в день (т.е 8 или 9 духовок)
в минимуме в общем целом на это уйдет 108 дней

код на руби

(1..100).step(1) {|max_productivity|
    productivity = 1
    cockies = 0
    days = 0
    upgrade_cost = 5 * productivity

    while cockies < 532
        if cockies >= upgrade_cost and productivity < max_productivity
            cockies -= upgrade_cost
            productivity += 1
            upgrade_cost = 5 * productivity
        else
            cockies += productivity
        end

        days += 1
    end
    p [max_productivity, days, cockies, productivity]
}

Вывод (куска)
[6, 119, 534, 6]
[7, 112, 532, 7]
[8, 109, 536, 8]
[9, 108, 540, 9]
[10, 108, 540, 10]
[11, 109, 539, 11]
[12, 111, 540, 12]
[13, 113, 533, 13]
[14, 116, 532, 14]
[15, 120, 540, 15]
[16, 124, 544, 16]
[17, 128, 544, 17]
[18, 132, 540, 18]