Program F90
integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)
do k = 1, 4
do i = x - 1, y + 1
s = s + 1
a(x - 1, i) = s
end do
i = y + 1
do j = x, y + 1
s = s + 1
a(j, i) = s
end do
do i = y, x - 1, -1
s = s + 1
a(y + 1, i) = s
end do
i = x - 1
do j = y, x, -1
s = s + 1
a(j, i) = s
end do
x = x + 1
y = y - 1
end do
Print *, 'massive 15 = '
Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)
End Program
![перевести код из паскаля в фортран f90 var i, j, k, s, x, y:integer; a:array[1..7,1..7] of integer;](/tpl/images/1609/3759/638ca.jpg)
Объяснение:
1. • мышь • клавиатура • экран дисплея.
2. • графический дисплей
3. • пикселем.
4. растром.
5. фрактальной & растровой
6. совокупность трех зерен люминофора.
7. Устройство, управляющее работой графического дисплея.
8. Электронное, энергозависимое устройство для хранения двоичного кода изображения, выводимого на экран.
9. 256 битов
10. Принтер.
11. 2 раза
12. Векторной.
13. сокращает объем памяти, необходимой для хранения изображения, и облегчает редактирование последнего
Объяснение:
1. (Если надо один ответ, то клавиатура)
3. Почему? ответ: на всех остальных делает машина, а тут саморучно
11. Что бы доказать для представления 65536 цветов требуется 16 чисел (00010000000000000000), а для 256 цветов - 8 (000100000000). 16 / 8 = 2.
Дальше не знаю
14. С12:F27 = 3 столбец; 12 строка:6 столбец, 27 строка
Всего ячеек: (6 - (3 - 1)) * (27 - (12 - 1)) = 4 * 16 = 64.
17. Всего 3 столбца, значит всего 15/3 = 5 строк.
Координата верхнего левого угла: Е[12 - (5 - 1)] = E7
Адрес диапазона: E7:G12