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

@КузЕнь · Регистрация: 16.04.2012

как это в delphi выполнить?(((
Вычислить объем и площадь полной поверхности цилиндра, если известны высота и радиус основания
V=пr^2*h, s=2пr(r+h)

@pHOMM · 16.04.2012, 10:39

Кинь на форму 2 TEdit, несколько TLabel (в зависимости нужны ли подписи, но 2 лабела обязательно, в них ответ выводить будешь) и кнопку расчёта, двойной клик по кнопке и дельфи создаст для тебя заготовку кода, в которую напиши примерно такой код:

Delphi

// сразу под заголовком метода кнопки
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 / 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

Опции темы

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

Решение