Тема: Qbasic
Показать сообщение отдельно
Старый 16.10.2003, 21:45     # 2
anod
Guest
 
Сообщения: n/a

1.
Цитата:
в таблиЦЕ К размерностью 10
Я так понимаю матрица 10х10??

Цитата:
найти сумму эелементов, стоящих на чётных местах
Четный столбец или строка?
Тут нужна функция бэйсика, которая показывает остаток от деления, и если при делении на 2, остаток равен 0 то число подходит

Извини я бейсик не знаю, но на паскале это будет так

a: array [1..10,1..10] of integer; //массив чисел
p:=1; // переменная для произведения
s_kv:=0; //сумма квадратов

for i:= 0 to 10 do
begin
for j:= 0 to 10 do
begin
if (a[i,j] < 0) then p:=p*a[i,j]; //если элемент матрицы меньше 0 то домнажаем его
if (a[i,j] < 1) then s_kv:=s_kc+(a[i,j]*a[i,j]); // если элемент матрицы меньше 1 то прибавляем его квадрат к сумме, аналогично с четностью
end;
end;


2.
(-8; 9) - это промежуток х?

for x:=-8 to 9 do
begin
y:=x*x*x;
if (y < 0) then ... выводим игрек
end;