Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачу....
Заполнить массив чисел действительного типа размерности 99 × 99 произвольными значениями. Вывести на экран все элементы массива, в которых хотя бы один из индексов является точным кубом. (Используя указатели)
1 | Автор: natasha238 | 2012-04-01, 11:09 | Изменено: natasha238 - Вс, 2012-04-01, 11:16   |  Репутация: [ + 0 ]
В каком смысле "точным кубом"?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-04-01, 14:42   |  Репутация: [ + 211 ]
на счёт точного куба тоже не знаю если поможет вот матрица 99 х 99 с произвольными значениями
uses
crt;

var
i, j, chet, nechet: integer; a: array[1..99, 1..99] of integer;

begin
Randomize;
WriteLn('Нарисуем куб случайных чисел.');
for i := 1 to 99 do
begin
for j := 1 to 99 do
begin
a[i, j] := Random(8) + 1;
if a[i, j] mod 2 = 0 then
chet := chet + 1
else
nechet := nechet + 1;
Write(a[i, j]:2);
end;

end;
end.
3 | Автор: Stereotip | 2012-04-17, 11:38   |  Репутация: [ + 0 ]
Quote (Stereotip)
вот матрица 99 х 99 с произвольными значениями

Вот она:) :
var
mass:array[1..99,1..99]of byte;
i,j:byte;
begin
randomize;
for i:=1 to 99 do begin
for j:=1 to 99 do
mass[i,j]:=random(11);
write(mass[i,j],' ');readln;end;
end.
У тебя куча ненужного в твоём коде:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-04-19, 08:58   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
У тебя куча ненужного в твоём коде:)

спасибо я только начал осваивать программирование)) буду рад любым хорошим советам))
5 | Автор: Stereotip | 2012-04-19, 11:01   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: