Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Zela124
1 / 1 / 0
Регистрация: 30.11.2008
Сообщений: 48
1

Количество элементов на каждом промежутке

30.03.2009, 21:29. Просмотров 393. Ответов 5
Метки нет (Все метки)

Уважаемые программисты,очень очень прошу помочь мне со следующим заданием:
Создать массив из 15 элементов и заполнить случайными числами.Значения элементов должны быть от 0 до 1 с 2 цифрами после запятой.Вывести на экран,сколько чисел промежутках от 0.00-0.09 , 0.1-0.19 , 0.2-0.29 ,...., 0.9-1.
Буду очень благодарна.Вот что на данный момент есть,но запуталась окончательно:

Код
program masivi;
uses crt;
type mas = array [1..2] of real;
var a:mas;
    i,n:integer;

procedure poisk(var b:mas);
var n,z,m:integer;
    w:real;
begin
w:=0;
while w<=0.9 do begin
writeln(w);
n:=0;
for z:=1 to 2 do begin
if (b[z]>=w) and (b[z]<=w+0.09) then
n:=n+1;
end;
writeln('ot ',w,' do ',w+0.09,' ',n,' 4isel ');
w:=w+0.1;
end;
end;

begin
clrscr;
randomize;
for i:=1 to 2 do begin
a[i]:=random(1001)/100;
poisk(a);
end;
readln
end.
Добавлено через 25 минут 24 секунды
Очень прошу-помогите!Хотя бы намекните!:'(

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2009, 21:29
Ответы с готовыми решениями:

Посчитать количество элементов массива, лежащих в заданном промежутке
посчитать количество элементов лежащих в промежутке (-13;25) массива B(25)

В каждом столбце матрицы найти количество элементов, больших среднего арифметического элементов столбца
помогите с задачей!!! дана матрица размера M*N.в каждом её столбце найти...

количество нулевых элементов в каждом столбце
Дан двумерный массив №1 количество нулевых элементов в каждом столбце.№2...

В каждом столбце матрицы определить количество нечетных элементов
В каждом столбце матрицы А (5,4) определить количество нечетных элементов и...

Определить количество нулевых элементов в каждом столбце матрицы
определить:количество нулевых элементов в каждом столбце

5
begemotikdin
16 / 16 / 6
Регистрация: 21.02.2009
Сообщений: 67
30.03.2009, 21:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var
a:array[1..15] of real;
i:integer;
kol1,kol2,kol3:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do
a[i]:=1*random-0;
for i:=1 to 15 do
write(a[i]:2:2,' ');
kol1:=0;
kol2:=0;
for i:=1 to 15 do
 begin
  if (a[i]>0.00) and (a[i]<0.09) then inc(kol1);
  if (a[i]>0.1) and (a[i]<0.19) then inc(kol2);
 end;
writeln;
writeln(kol1);
writeln(kol2);
readln;
end.
и так далее сравнивай числа и увеличивай счётчик
1
Zela124
1 / 1 / 0
Регистрация: 30.11.2008
Сообщений: 48
30.03.2009, 21:37  [ТС] 3
Спасибо,но хотелось бы немножко компактнее.
0
begemotikdin
16 / 16 / 6
Регистрация: 21.02.2009
Сообщений: 67
30.03.2009, 21:40 4
Цитата Сообщение от Zela124 Посмотреть сообщение
Спасибо,но хотелось бы немножко компактнее.
что это значит ?
0
Zela124
1 / 1 / 0
Регистрация: 30.11.2008
Сообщений: 48
30.03.2009, 21:51  [ТС] 5
Извините,если обидела,просто программка длинная получится.Может можно ка-то с процедурой?Я попробую.
0
Puporev
Модератор
55411 / 42542 / 29395
Регистрация: 18.05.2008
Сообщений: 100,631
30.03.2009, 22:36 6
a[i]:=1*random-0;
Минус ноль это круто, даже круче, чем разделить на один.
0
30.03.2009, 22:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2009, 22:36

Определить и напечатать количество положительных элементов в каждом столбце
дано матрицу 4х4 Составить алгоритм и программу обработки ее элементов....

Определить количество положительных элементов в каждом столбце матрицы
Определить количество положительных элементов в каждом столбце(Паскаль) У...

В матрице найти количество различных по значению элементов в каждом столбц
В заданной матрице A(N,M) найти количество различных по значению элементов в...


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

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

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