Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
zhumabek
1 / 1 / 0
Регистрация: 25.11.2011
Сообщений: 63
#1

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

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

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

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

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

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

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

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

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

14
MaxDM1993
12 / 12 / 6
Регистрация: 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 / 37
Регистрация: 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 / 0
Регистрация: 25.11.2011
Сообщений: 63
08.12.2011, 19:44  [ТС] #4
спасибо
0
MaxDM1993
12 / 12 / 6
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 19:44 #5
Ну может быть так как я никто не задаёт, но так работает
0
zhumabek
1 / 1 / 0
Регистрация: 25.11.2011
Сообщений: 63
08.12.2011, 19:48  [ТС] #6
ок спасибо
0
MaxDM1993
12 / 12 / 6
Регистрация: 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 / 37
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 20:12 #8
Цитата Сообщение от MaxDM1993 Посмотреть сообщение
Таким образом и знак и само число будет выбираться случайным образом
Выбрать те числа, которые принадлежат интервалу
0
abcpascal
5 / 5 / 2
Регистрация: 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 / 6
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 20:23 #10
abcpascal
А библиотека CRT зачем?
0
abcpascal
5 / 5 / 2
Регистрация: 26.11.2011
Сообщений: 51
08.12.2011, 20:28 #11
может и не надо. не не мешает вроде.
пусть будет для красоты.
0
Own3D
121 / 121 / 37
Регистрация: 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 / 6
Регистрация: 27.11.2011
Сообщений: 33
08.12.2011, 21:18 #13
Own3D

Ну давайте тогда ещё текст разукрасим, фон красивый сделаем, звуков добавим и титры в конце программы
А если серьёзно, то мне кажется это всё ни к чему
0
Own3D
121 / 121 / 37
Регистрация: 29.10.2011
Сообщений: 308
08.12.2011, 21:20 #14
красить реал лишнее уже, это так, для себя если че то писать, или если конкретно по заданию если требуют. но очистка экрана еще никому не помешала)
0
abcpascal
5 / 5 / 2
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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