Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
zhumabek
1 / 1 / 1
Регистрация: 25.11.2011
Сообщений: 63
#1

Выбрать те числа, которые принадлежат интервалу - Pascal ABC

08.12.2011, 16:26. Просмотров 690. Ответов 14
Метки нет (Все метки)

Даны три действительных числа Выбрать из них те которые принадлежат интервалу (1,3)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 16:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выбрать те числа, которые принадлежат интервалу (Pascal ABC):

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

Определите числа, которые принадлежат интервалу 0,7-5,1.
Помогите, плз решить!!!! 1.даны 3 числа. Определите те, которые принадлежат...

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

Даны три действительные числа A, B, C. Те из них, которые принадлежат интервалу заменить нулем
ТЕМА 5. Даны три действительные числа A, B, C. Те из них, которые принадлежат...

найти сумму всех элементов, которые не принадлежат интервалу (a,b)
Ещё одна задачка, может кто поможет в решении... В матрице размером n на m...

В матрице найти среднее арифметическое всех элементов, которые принадлежат интервалу (a,b)
Помогите пожалуйста,заранее благодарен. В матрице размером n на m (1<n,...

14
MaxDM1993
12 / 12 / 7
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 19:34 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a:array [1..3] of integer;
  i:integer;
  
begin
  for i:=1 to 3 do begin
    a[i]:=random(-99,99);
    write(' ',a[i]);
  end;
  
  for i:=1 to 3 do 
    if a[i] in [1..3] then writeln(a[i],' - принадлежит промежутку (1,3)') else writeln(a[i],' - не принадлежит промежутку (1,3)');
end.
1
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 19:41 #3
Pascal
1
a[i]:=random(-99,99);
кто так рандом задает??хДДД если надо чтоб было от -99 до 99, тогда задается так, или подобно
Pascal
1
a[i]:=random(198)-99;
1
zhumabek
1 / 1 / 1
Регистрация: 25.11.2011
Сообщений: 63
08.12.2011, 19:44  [ТС] #4
спасибо
0
MaxDM1993
12 / 12 / 7
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 19:44 #5
Ну может быть так как я никто не задаёт, но так работает
0
zhumabek
1 / 1 / 1
Регистрация: 25.11.2011
Сообщений: 63
08.12.2011, 19:48  [ТС] #6
ок спасибо
0
MaxDM1993
12 / 12 / 7
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 20:06 #7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Own3D Посмотреть сообщение
ABC и ABC.NET отличаются. NET новая платформа. у них и в синтаксисе есть различия. потому у тебя и пашет.
Возможно
Тогда чтобы не было проблем на аналогичных платформах проще написать так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a:array [0..3] of integer;
  i:integer;
  
begin
  for i:=1 to 3 do begin
    a[i]:=random(100);
    a[0]:=random(2);
    if a[0]=1 then a[i]:=a[i]*(-1);
    write(' ',a[i]);
  end;
  
  writeln;
  
  for i:=1 to 3 do 
    if a[i] in [1..3] then writeln(a[i],' - принадлежит промежутку (1,3)') else writeln(a[i],' - не принадлежит промежутку (1,3)');
end.
Таким образом и знак и само число будет выбираться случайным образом
0
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 20:12 #8
Цитата Сообщение от MaxDM1993 Посмотреть сообщение
Таким образом и знак и само число будет выбираться случайным образом
Выбрать те числа, которые принадлежат интервалу
0
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
08.12.2011, 20:22 #9
но лучше так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var a:array [1..3] of integer;
i:integer;
 
begin
for i:=1 to 3 do begin
a[i]:=random(198)-99;
write(' ',a[i]);
end;
 
for i:=1 to 3 do
if a[i] in [1..3] then writeln(a[i],' - принадлежит промежутку (1,3)') else writeln(a[i],' - не принадлежит промежутку(1,3)');
end.
0
MaxDM1993
12 / 12 / 7
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 20:23 #10
abcpascal
А библиотека CRT зачем?
0
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
08.12.2011, 20:28 #11
может и не надо. не не мешает вроде.
пусть будет для красоты.
0
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 21:14 #12
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от abcpascal Посмотреть сообщение
может и не надо. не не мешает вроде.
пусть будет для красоты.
очистка экрана.
после
Pascal
1
begin
добавь
Pascal
1
clrscr;
забылся дописать)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a:array [1..3] of integer;
* i:integer;
begin
clrscr;
* for i:=1 to 3 do begin
* * a[i]:=random(198)-99;
* * write(' ',a[i]);
* end;
for i:=1 to 3 do
* * if a[i] in [1..3] then writeln(a[i],' - принадлежит промежутку (1,3)') else writeln(a[i],' - не принадлежит промежутку(1,3)');
end.
0
MaxDM1993
12 / 12 / 7
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 21:18 #13
Own3D

Ну давайте тогда ещё текст разукрасим, фон красивый сделаем, звуков добавим и титры в конце программы
А если серьёзно, то мне кажется это всё ни к чему
0
Own3D
121 / 121 / 73
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 21:20 #14
красить реал лишнее уже, это так, для себя если че то писать, или если конкретно по заданию если требуют. но очистка экрана еще никому не помешала)
0
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
08.12.2011, 21:59 #15
да! про очистку я забыл)
0
08.12.2011, 21:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 21:59
Привет! Вот еще темы с решениями:

В матрице найти среднеарифметическое всех элементов, которые не принадлежат заданному интервалу
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти...

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

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

Двумерный массив. Найти сумму всех элементов, которые не принадлежат интервалу (a,b)
2)В матрице размером n на m (1<n,m,10) (ввод n,m и матрицы с клавиатуры) найти...


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

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

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