Другие языки программирования и технологии
дан двумерный массив С(3,4).Получите новый массив А путём увеличения всех элементов исходного массива на число С.
дан двумерный массивС(3,4). Получите новый массив А путём увеличения всех элементов исходного массива на число С.
Может быть в задании увеличить на какое нибудь другое число! ?
Вот если речь идёт о С++, по под числом C можно понимать адрес массива - это какое-то целое число. В некоторых Бейсиках такое сокращение понимается как элемент массива с индексом 0. А в других языках компилятор будет страшно ругаться, так как имя переменной и массива одинаковое!
Вот если речь идёт о С++, по под числом C можно понимать адрес массива - это какое-то целое число. В некоторых Бейсиках такое сокращение понимается как элемент массива с индексом 0. А в других языках компилятор будет страшно ругаться, так как имя переменной и массива одинаковое!
'Задача о массивах
DIM C(3, 4), A(3, 4)
RANDOMIZE TIMER
CLS
PRINT "Дан массив С (3,4):"
FOR i = 1 TO 3
FOR j = 1 TO 4
C(i, j) = INT(RND * 21) - 10
PRINT TAB((j - 1) * 5 + 1); C(i, j);
NEXT j
PRINT
NEXT i
INPUT "Введите число C: ", deltaC
PRINT "Полученный новый массив А (3,4):"
FOR i = 1 TO 3
FOR j = 1 TO 4
A(i, j) = C(i, j) + deltaC
PRINT TAB((j - 1) * 5 + 1); A(i, j);
NEXT j
PRINT
NEXT i
END
'Задача о графике
DIM y(640)
SCREEN (12)
FOR x = 1 TO 640
y(x) = LOG(x / 10) / LOG(.2)
IF x = 1 OR y(x) < ymin THEN ymin = y(x)
IF x = 1 OR y(x) > ymax THEN ymax = y(x)
NEXT
yscale = (ymax - ymin) / 480
FOR x = 1 TO 640
PSET (x, 480 - (y(x) - ymin) / yscale)
NEXT
DO
LOOP UNTIL INKEY$ <> ""
SCREEN (0)
END
DIM C(3, 4), A(3, 4)
RANDOMIZE TIMER
CLS
PRINT "Дан массив С (3,4):"
FOR i = 1 TO 3
FOR j = 1 TO 4
C(i, j) = INT(RND * 21) - 10
PRINT TAB((j - 1) * 5 + 1); C(i, j);
NEXT j
NEXT i
INPUT "Введите число C: ", deltaC
PRINT "Полученный новый массив А (3,4):"
FOR i = 1 TO 3
FOR j = 1 TO 4
A(i, j) = C(i, j) + deltaC
PRINT TAB((j - 1) * 5 + 1); A(i, j);
NEXT j
NEXT i
END
'Задача о графике
DIM y(640)
SCREEN (12)
FOR x = 1 TO 640
y(x) = LOG(x / 10) / LOG(.2)
IF x = 1 OR y(x) < ymin THEN ymin = y(x)
IF x = 1 OR y(x) > ymax THEN ymax = y(x)
NEXT
yscale = (ymax - ymin) / 480
FOR x = 1 TO 640
PSET (x, 480 - (y(x) - ymin) / yscale)
NEXT
DO
LOOP UNTIL INKEY$ <> ""
SCREEN (0)
END
ку серег xD
Похожие вопросы
- Дан двумерный массив А [7,8], заполненный случайным образом. Заменить нечетные элементы массива на число 0 СРОЧНОО ГАЙСЫ
- в двумерном массиве возвестив квадрат строки, расположенные между строками с мин и макс элементами
- Дан двумерный массив C(m,n). Найти произведение элементов, больших среднего значения. Помогите пожалуйста!!!
- Дан двумерный массив C(m,n). Найти произведение элементов, больших среднего значения. Помогите пожалуйста!!! На паскале
- Дан двумерный массив из NxM случайных элементов. Посчитать сумму периметра. С++
- Turbo Pascal. Дан двумерный массив. Все нули заменить максимальным элементом.
- Дан двумерный массив
- Дан двумерный массив.
- Дан двумерный массив целых чисел. Упорядочить прямую диагональ в порядке убывания.
- Даны два массива A и B размера N, элементы которых упорядочены по убыванию. Объединить эти массивы так, чтобы результ