|
Вопрос # 3 370/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
У меня такая проблема: я имею некоторый массив q:array[1..10] of integer; и квадратную матрицу w:array [1..10,1..2] of integer; в массиве q имеются некоторые простые числа, и мне нужно подсчитать какое число сколько раз встречается в 1-м массиве, и занести его в первую строку матрицы, а во вторую строку занести его степень, например в 1-м массиве числа(2,2,3,3) я в матрицу должен занести
2 3
2 2
Заранее благодарен!
 |
Вопрос задал: Andrey_ (статус: Посетитель)
Вопрос отправлен: 5 ноября 2009, 16:11
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Паровоз
Здравствуйте, Andrey_!
Пока min@y™ смотрит телевизор напишу ответ. Определяем тип
type
T10 = array[1..10] of integer;
Затем пишем функцию, подсчитывающую число вхождения числа number в массив q:
function NumberCount(q:T10;number:integer):integer;
var
i:Integer;
begin
Result:=0;
for i:=1 to 10 do if q[i]=Number then Inc(Result);
end;
Дальше заполняем массив w:
var
i,j:Integer;
p,q:T10;
w:array[1..10,1..2] of integer;
cnt:Integer;
begin
for i:=1 to 10 do for j:=1 to 2 do w[i,j]:=0;
for i:=1 to 10 do p[i]:=0;
j:=1;
for i:=1 to 10 do
begin
cnt:=NumberCount(p,q[i]);
if cnt=0 then
begin
p[j]:=q[i];
w[j,1]:=q[i];
w[j,2]:=NumberCount(q,q[i]);
inc(j);
end;
end;
end;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 5 ноября 2009, 20:17
Оценка за ответ: 5
Комментарий к оценке: Спасибо огромное!!!
|
Мини-форум вопроса
Всего сообщений: 12; последнее сообщение — 5 ноября 2009, 19:28; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 5 ноября 2009, 16:23 [#1]:
А где вопрос? Чего не получаеццо?
Преподов, задающих такие задачи, надо вешать на столбах. имхо.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 5 ноября 2009, 16:25 [#2]:
Цитата:
а во вторую строку занести его степень
Тогда во 2 строке должно быть: 1 1.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:29 [#3]:
ну у меня что-то прога кривая, исходная задача другая, а это ее часть, я разложил число на простые множители, и теперь мне нужно подсчитать сколько один и тот же множитель встречается в разложении, а массив q это и есть множители, т.е если двойка встретилась 5 раз, то это 2 в пятой степени если тройка один раз то это 3 в первой степени, вот так...
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:30 [#4]:
"Преподов, задающих такие задачи, надо вешать на столбах. имхо. "
СогласеН!!!
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:31 [#5]:
ну вроде надо просто сделать сначала число а снизу сколько раз оно встретилось
|
|
|
min@y™ (статус: Доктор наук), 5 ноября 2009, 16:32 [#6]:
Диапазон чисел какой?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:34 [#7]:
в integer влезет, в исходной задаче число которое я разлагаю на множители до 1000000000
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:39 [#8]:
да и кстати, различных чисел в 1-м массиве не может быть более 9.
|
|
|
min@y™ (статус: Доктор наук), 5 ноября 2009, 16:41 [#9]:
Чото мне кажеццо, что ты неправильно сформулировал вопрос. Думаю, что в 1-ю строку матрицы тебе надо занести САМО ЧИСЛО, а во вторую - сколько раз оно встречается.
Я прав или где?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 16:42 [#10]:
да, так и есть)))
|
5 ноября 2009, 17:49: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
|
|
min@y™ (статус: Доктор наук), 5 ноября 2009, 18:38 [#11]:
Цитата (Andrey_):
да, так и есть)))
Щас влом, телек хотца пофтыкать. Завтра с утра стукани, 5466111.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Andrey_ (статус: Посетитель), 5 ноября 2009, 19:28 [#12]:
ок! Спс!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
