Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8)

27.06.2013, 17:21. **Показов** 2670. **Ответов** 2

Author24 — интернет-сервис помощи студентам

В делфи!!! Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8).

@саша40 · 28.06.2013, 15:59

Получай:

Delphi

//Button1.Click;
var
a1,a2,a3: real;
begin
a1:=strtofloat(edit1.Text);
a2:=strtofloat(edit2.Text);
a3:=strtofloat(edit3.Text);
if (a1>-3,8) and (a1<1,8) then memo1.Lines.Add(floattostr(a1));
if (a2>-3,8) and (a2<1,8) then memo1.Lines.Add(floattostr(a2));
if (a3>-3,8) and (a1<1,8) then memo1.Lines.Add(floattostr(a3));
ShowMessage('смотри');
end;

28.06.2013, 16:29

С использованием юнита Math

Delphi

var
  a : array[0..2] of Single;
  I : Integer;
begin
  a[0] := StrToFloatDef(Edit1.Text, 0);
  a[1] := StrToFloatDef(Edit2.Text, 0);
  a[2] := StrToFloatDef(Edit3.Text, 0);
  for I := 0 to 2 do
    if InRange[a[I], -3.8, 1.8] then
    begin
      Memo1.Lines.Add(FloatToStr(a[I]);
      Break;
    end;
end;

Darica
		1
	Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8) 27.06.2013, 17:21. Показов 2670. Ответов 2 Метки нет (Все метки) В делфи!!! Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8).

	28.06.2013, 16:29

Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8)

Решение