Написать программу для решения след. задачи

@maks_shallygin · Регистрация: 24.09.2014

Написать программу для решения след. задачи
$https://www.cyberforum.ru/cgi-bin/latex.cgi?X=\begin{cases}<br /> 5* a +b & \text{ , } a \gt b \\ <br /> -125 & \text{ , } a=b \\ <br /> \frac{a-5}{b} & \text{ , } a \lt b<br /> \end{cases}$

@Sigin · 04.03.2015, 11:05

Delphi

var
  a, b, x: Double;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  if (a > b) then
    x := 5 * a + b
  else if (a = b) then
    x := -125
  else
    x := (a - 5) / b;
  Edit3.Text:=FloatToStr(x);
end;

@maks_shallygin 0 / 0 / 0 Регистрация: 24.09.2014 Сообщений: 19
		1
	Написать программу для решения след. задачи 04.03.2015, 10:35. Показов 2297. Ответов 1 Метки нет (Все метки) Написать программу для решения след. задачи $https://www.cyberforum.ru/cgi-bin/latex.cgi?X=\begin{cases}<br /> 5* a +b & \text{ , } a \gt b \\ <br /> -125 & \text{ , } a=b \\ <br /> \frac{a-5}{b} & \text{ , } a \lt b<br /> \end{cases}$ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу для решения след. задачи

Решение