Люди выручите меня, плз!

[ph0en1x]

Люди, выручите пожалуйста! Попросили знакомые, а я в Паскале дуб дубом!

 

Задача.

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

[mayak]

А при чем тут

в Паскале дуб дубом!

Здесь надо знать математику и физику. Задача в 2 действия. Умножение и вычитание. Для этого паскаль не надо знать досконально

[ph0en1x]

Так мне-то надо именно паскальный код. Я не знаю синтаксиса языка, вот в чём трабла.

Ну и ещё формулы нужные тоже не помню...

[mayak]

Вот для начала - вспомни формулы

 

а на паскале, умножить - это a:=b*c, отнять a:=b-c

[22157]

ph0en1x

Скажи мне формулы я напишу

[d1pro]

mayak

А еще там можно делить и складывать, прикинь, да

разделить - это a:=b/c, сложить a:=b+c

[ph0en1x]

Короче говоря, объем параллелепипеда находится так:

Объем=Длина*Ширина*Высота

НО:

с 4 сквозными отверстиями цилиндрической формы равных размеров

[d1pro]

Э... не представляю, а как они будут влиять на объем?

Добавлено в [mergetime]1103567481[/mergetime]

Хотя понял .

[ph0en1x]

И какие есть предложения?

[shuks]

22157

объем=высота*ширина*длина - 4*высота*Пи*радиус в квадрате

масса=объем*плотность

В математическом варианте:

V=a*b*c - 4*a*π*R*R

m=V*ρ

ЗЫ - знак "*" это "умножить"

[ph0en1x]

Вот что я наколбасил:

 

program zadacha1;
var
k,M,V,A,B,H,R,p:integer;
begin
k:=3;
M:=0;
writeln ('Input A');
readln(A);
writeln ('Input B');
readln(B);
writeln ('Input H');
readln(H);
writeln ('Input p');
readln(p);
writeln ('Input R');
readln®;
V:=(A*B*H)-(4*A*k*(R*R));
M:=V*p;
writeln ('V=',V);
writeln ('M=',M);
end.

 

Но: с формулой объема что-то не то! Масса получается отрицательная!