Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Darica
1

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

27.06.2013, 17:21. Просмотров 2011. Ответов 2
Метки нет (Все метки)

В делфи!!! Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8; 1,8).
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2013, 17:21
Ответы с готовыми решениями:

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

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

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

Даны три вещественных числа. Вывести на экран те из них, которые принадлежат интервалу
Было задание: Даны три вещественных числа. Вывести на экран: а) те из них, которые принадлежат...

2
156 / 299 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
28.06.2013, 15:59 2
Лучший ответ Сообщение было отмечено как решение

Решение

Получай:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
//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;
0
2474 / 1850 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
28.06.2013, 16:29 3
С использованием юнита Math
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.06.2013, 16:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)
Даны три вещественных числа. Вывести на экран те из них которые принадлежат интервалу ( -∞,0)...

Даны 3 вещественных числа. вывести на экран те из них, которые принадлежат интервалу (0,7-5,1)
Срочно! Решите плиз!

Visual basic Даны три вещественных числа. Вывести на экран те, которые принадлежат интервалу (1; 10)
1. Используя условный оператор if…then, разработайте проект для решения следующих заданий: 1.1....

Даны три вещественных числа. Выбрать те из них, которые принадлежат отрезку (1;3)
Ребята, помогите пожалуйста, не понимаю эту задачу как ее сделать: Даны три вещественных числа....

Даны три вещественных числа. Выбрать из них те, которые принадлежат интервалу (1,3)
Даны три вещественных числа. Выбрать из них те, которые принадлежат интервалу (1,3)

Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу (1,3). (C++)
Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу (1,3). Сделать...


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

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

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