0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 26
1

Управляющие структуры. Программирование алгоритмов разветвляющейся структуры.

16.04.2012, 09:18. Показов 1555. Ответов 1
Метки нет (Все метки)

как это в delphi выполнить?(((
Вычислить объем и площадь полной поверхности цилиндра, если известны высота и радиус основания
V=пr^2*h, s=2пr(r+h)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2012, 09:18
Ответы с готовыми решениями:

Программирование алгоритмов циклической структуры
Помогите пожалуйста выполнить лаб работу. мой вариант №11(

Программирование алгоритмов разветвляющейся структуры.
Помогите, пожалуйста. Нужно написать программу для вычисления площади геометрических фигур:...

Программирование алгоритмов разветвляющейся структуры
Не могу написать программу, помогите пожалуйста, если можно с коментариями. Даны два числа x и...

Программирование алгоритмов разветвляющейся структуры
Методические требования к выполнению контрольного задания: - Предусмотреть в программе объявление...

1
480 / 253 / 51
Регистрация: 30.06.2010
Сообщений: 651
16.04.2012, 10:39 2
Лучший ответ Сообщение было отмечено КузЕнь как решение

Решение

Кинь на форму 2 TEdit, несколько TLabel (в зависимости нужны ли подписи, но 2 лабела обязательно, в них ответ выводить будешь) и кнопку расчёта, двойной клик по кнопке и дельфи создаст для тебя заготовку кода, в которую напиши примерно такой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// сразу под заголовком метода кнопки
var r, h: integer;
begin
  r := strtofloat(editR.text);
  h := strtofloat(editH.text);
  labelV.caption := floattostr(GetCylVol(r, h));
  labelS.caption := floattostr(GetCylSqr(r, h));
end;
 
// и создать 2 функции
function GetCylVol(r, h: double): double;
begin
  Result := pi * r * r * h;
end;
function GetCylSqr(r, h: double): double;
begin
  Result := 2 * pi * r * (r + h);
end;
Если честно, не пойму где тут какие разветвления придумать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2012, 10:39

программирование алгоритмов разветвляющейся структуры
Вычислить значение функции. Осуществить вывод значений вводимых исходных данных рузультат...

Программирование алгоритмов разветвляющейся структуры
На 1 скрине показана пример, как должна внешне выглядеть, на 2-общее условие заданий, на 3 и 4 -...

Deiphi: Структурные операторы. Программирование алгоритмов разветвляющейся структуры
Помогите, сделать лабу. Определить результат гадания на ромашке – «любит – не любит», взяв за...

Управляющие структуры
1. Вычислить сумму чисел Фибоначчи , значение которых не превосходит 500. 2.Даны целые числа ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.