Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2011, 15:38   #1
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
Печаль Даны три числа.....

Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [ e, f ].

в delphi пожалуйста напишите кто нибудь
konj вне форума Ответить с цитированием
Старый 19.12.2011, 15:43   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
if (a>=e)and (a<=f) then {выбираем}
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 19.12.2011, 15:44   #3
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

если эти 3 числа загнать в массив то получится...
Код:
for i:=1 to 3 do
if (a[i]>=e) and (a[i]<=f) then
// ваши действия если число входит в данный промежутов
else
// действия если не входит...
если же не через масив... то попросту повторять условие if приведенное выше для каждого из трех элементов
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 19.12.2011, 15:48   #4
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
По умолчанию

пожалуйста напишите по подробнее всю программу, если не сложно...
konj вне форума Ответить с цитированием
Старый 19.12.2011, 16:13   #5
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
По умолчанию

ну кто нибудь
konj вне форума Ответить с цитированием
Старый 19.12.2011, 18:26   #6
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
По умолчанию

Решиииил
кому надо вот


Код:
program triodin;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;

var a, b, c, N: integer;
   e,f:integer;
begin
 
  writeln('vybrat chisla prinadleashie dannomu otrezku');
           writeln('vvedite  e:'); readln(e);
            writeln('vvedite  f:'); readln(f);
  writeln('vvedite  N:'); readln(N);
  a:=N div 100;
  b := (N - a*100)div 10;
  c := N - a*100 - b*10;
begin
if a in[e..f] then writeln('a');
  if b in[e..f] then writeln('b');
if c in [e..f] then writeln('c');
end;           writeln('');
writeln(' press Enter');
  readln;
end.
konj вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны три открытых хеш-таблицы... nicklifs Помощь студентам 0 11.12.2011 16:29
даны три числа. Если они могут быть длинами сторон треугольника, определите его вид и найдите высоты (Паскаль) charming Помощь студентам 8 26.09.2011 20:48
Даны три числа a,b и с. Если все они ненулевые вывести их на экран в порядке возростания 1znar Паскаль, Turbo Pascal, PascalABC.NET 1 07.07.2011 18:41
Даны три массива по 10 элементов в каждом. ЮРИЙ ЮРЫЧ Помощь студентам 0 23.12.2009 19:38
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [а, b]. Sheff903 Помощь студентам 1 27.11.2007 21:28