Помогите пожалуйста по Pascal. Высота жидкости в цилиндрической цистерне,лежащей на боку,равна h.Найти объем V жидкости,если длина цистерны
10-11 класс
|
равна L,а радиус основание R.
пример:h=6,L=10,R=4 ответ:404,39
var h,L,R,a,S,V,x:real;
begin
write ('h = ');
readln (h);
write ('L = ');
readln (L);
write ('R = ');
readln (R);
if (h>0) and (L>0) and (R>0) then begin
if (h<R) then begin
x:=1-(h/R);
a:=2*arctan(sqrt(1-sqr(x))/x);
S:=(1/2)*sqr(R)*(a-sin(a));
end;
if (h>R) then begin
h:=2*R-h;
x:=1-(h/R);
a:=2*arctan(sqrt(1-sqr(x))/x);
S:=(1/2)*sqr(R)*(a-sin(a));
S:=pi*sqr(R)-S;
end;
if (h=R) then begin
S:=pi*sqr(R)/2;
end;
V:=S*L;
writeln ('V = ',V:2:2);
end else writeln ('Неверный ввод');
end.
Другие вопросы из категории
Преобразовать логическое выражение:
(A∨B)∧(¬B∨A)∧(¬C∨B)
5.Укажите, какие из указанных ниже операций допустимы в Паскале:
var a1,a2:string; b1,b2:string[80]; c:string[5];
1) a1=a2;
2) b2>b1;
3) a1<=b2;
4) c=b1;
5) c:=a2;
6) a2:='b1+b2';
7) a1:=a2;
8) a2:=b2;
9) c>='12345';
10) a1<>'**';
11) c:=a1+b2.
6.Укажите, какие из указанных ниже выражений допустимы в Паскале:
Var a1, a2 : string; b1,b2 : string[80];
C : string[5];
1) copy(a1,5,3) + length(a2); 2) length(b2) + pos(‘aa’,b1);
3) pos(c,a1) + length(copy(c,6,2)); 4) b1 + copy(b2,65,20);
5) insert(copy(c,2,3), a2+b2,3); 6) delete(copy(a2,5,6),3,4);
7) insert(copy(a1,5,5),a2,3); 8) insert(a1,a2,length(a2)).
7.1) 1) concat('кро',a,b) при a='код', b='ил';
2) copy(s,2,3) при s='крокодил';
3) copy(s,4,2)+s[2]+s[7]+s[6]+s[5]+s[2] при s='крокодил';
4) pos('око',s) при s='крокодил';
5) pos('я','крокодил');
6) pos('а','ёеуыаоэяию');
7) pos('б','ёеуыаоэяию');
8) length('зеленый'+' '+s) при s='крокодил';
9) insert('чо',w,5) при w='моряк';
10) insert('Н',d,3) при d='око';
11) delete(w,5,2) при w='морячок';
12) str(123,s);
13) pos('а','аяоёуюыиэе')>0;
14) pos('б','аяоёуюыиэеАЯОЁУЮЫИЭЕ')>0;concat('кро',a,b)
copy(s,4,2)+s[2]+s[7]+s[6]+s[5]+s[2]
Читайте также
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
чисел от 100 до 200
Это всё программы