Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ Прошу помощи в Basic

Автор: Manveru 18.05.2007 16:28

Здравствуйте помогите закончить прогу в басике
CLS
Input "введите строку матрицы" ; n
input "Введите столбец матрицы"; m
option base1
Dim L(n,m) as integer
print "введите эл. матрицы"
for i=1 to n
for j=1 to m
input L(i,j)
next j
next i
for i=1to n
k=0
for j=1 to m
if L (i,j) mod 3 =0 then
_________?
_________?
end if
next j
___________?
next i
___________?
print "исходная матрица L"
???????????????????????????????????

А задание такое : обработать матрицу L(N,M)
найти для каждой строки элементы кратные трем подсчитать их количество[font=Arial] mega_chok.gif

Автор: volvo 18.05.2007 19:57

Поскольку ты не написал, в чем работаешь, то проверялось в JB...

CLS
Input "введите число строк матрицы: " ; n
input "введите число столбцов матрицы: "; m

Dim L(n, m)

print "Введите элементы матрицы:"
for i = 1 to n
for j = 1 to m
input L(i, j)
next j
next i

for i = 1 to n
k = 0
for j = 1 to m
if L(i, j) mod 3 = 0 then
print "Элемент (";i;",";j;") = "; L(i, j); " кратен 3"
k = k + 1
end if
next j
print "Строка №"; i; ": k = "; k
next i

print "Исходная матрица L = "
for i = 1 to n
for j = 1 to m
print L(i, j), " ";
next j
print
next i


Автор: Гость 19.05.2007 0:52

Ух спасибо . Осталось проверить. А работаю я в QB

Автор: Manveru 19.05.2007 0:56

В программитровании я ламо . nea.gif Просто в инсте лабы делаем , хорошо хоть есть куда обратится.
Спасибо вам! smile.gif

Автор: Manveru 21.05.2007 20:32

Странно , он пишет типа NEXT WITHOUT FOR после print <<"Элемент (";i;",";j;") = "; L(i, j); " кратен 3">>

Автор: Ozzя 22.05.2007 17:42

Цитата(Manveru @ 21.05.2007 17:32) *

Странно , он пишет типа NEXT WITHOUT FOR после print <<"Элемент (";i;",";j;") = "; L(i, j); " кратен 3">>

Всё в порядке.

Возможно, при копи/пасте сделал не нажал энтер после этой строки

Автор: Va1s 5.06.2007 20:57

Помогите люде пожалуйсто очень нужно..

1.Сформировать матрицу вида

1 2 2 2 2
3 1 2 2 2
3 3 1 2 2
3 3 3 1 2
3 3 3 3 1

2.Вычислить в этой матрице сумму нечетных элементов.
3.Вычислить количество четных элементов в каждой строке матрицы.
4.Вычислить максимумы в нечетных столбцах.
5.Вычислить произведение элементов в первой четверти.