Помогите, пожалуйста, составить блок-схему к задаче!! Задача. Вычислить площадь поверхности и объем усеченного конуса по следующим формулам S = π (R + r)
10-11 класс
|
l + πR2 + πr2 ; V = (1/3) π (R2 + r2 + Rr) h .
блок-схема линейного вида, т.е. в столбик все блоки. начинается с овального блока НАЧАЛО. Далее идет в параллелограмме ввод неизвестных всех данных через запятую: R, r, V, h. дальше идут прямоугольники внутри которых по очереди записываются формулы : в одном π := 3.14 ; во втором S := π (R + r) l + πR2 + πr2 , в другом прямоугольнике V := (1/3) π (R2 + r2 + Rr)* h. теперь блок вывода результатов в параллелограмме V, S. все блок схема заканчивается овальной фигурой со словом конец
Другие вопросы из категории
набрать команду из 7 человек, которые по росту будут больше или равны
задаваемому с клавиатуры контрольному росту R. Команду вывести на экран с пояснительным текстом.на паскале
A(-12,57;-10,23),B(3,3;12,47),C(15,67;-10,32).Найдите с точностью до одного знака после запятой площадь треугольника АВС. В ответе укажите только число,отделяя дробную часть от целой запятой без пробелов,например,13,2
ai>ai+1 то делается пере-становка. Так продолжается до тех пор, пока все элементы не станут расположены в порядке воз-растания. Составить алгоритм сортировки, подсчитывая при этом количество перестановок.
ПОМОГИТЕ СДЕЛАТЬ В ПАСКАЛЬ, ПРОШУ =*(
Читайте также
Составить блок-схему алгоритма решения задачи и программу на языке паскаль одним способом:
Σ сверху сигмы 40,снизу сигмы x=1 (x^2+(5/(x^2+8)))
example14;
Var i:
integer; function prost(i: integer): boolean;
var j:integer;
begin prost := true; i:=abs(i); for j := 2 to (i div 2) do if (i mod j = 0) then prost := false; end;
begin for i := 10 to 99 do if prost(i) = true then write(i:5);
readln(i);
end.
while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.
Дано натуральное n и действительное x. Вычислить значение суммы