5. sm Из матрицы А построить матрицу В поменять местами Строки и столбцы. 2.1 4.5 A= 5.2 7.8 2.1 5.3…

Напишите программу. Заполните массив А из 20 элементов по формуле А[i] = i^2 и распечатайте в столбец все его элементы в виде: <имя элемента> = <значение элемента> . По результатам выполнения программы заполните таблицу:

А(1) =

А(2) =

А(3) =

А(4) =

А(5) =

и т.д.

ПЛИИИИИИИИИИИИИИИИИИЗ

1. Сколько бит требуется для кодирования 16,5 млн. цветов (точнее 16 777 216 цветов)?

2. Перевести десятеричное число 100 в шестнадцатеричную систему счисления.

3. Сравнить числа двоичное 1111 0000 и шестнадцатеричное 1 100.

4. А = 0, В = 1. В какой из ниже записанных формул результатом будет 1 (истина)?

А) ¬ В Б) А и В В) ¬ (А или В) Г) ¬ А или ¬ В

5. Как записывается сумма двух чисел А и В в программе на языке Turbo Pascal?

6. Выбрать выражение написанное на языке программирования Turbo Pascal, в

результате которого получено значение с = 2, если а = 14 и b = 4

А) с := a mod b Б) с := b div a В) с := a div b Г) с:= b mod a

7. Найдите значение переменной S после выполнения фрагмента программы на языке

программирования Turbo Pascal:

S := 2;

k := S * 3;

S := sqr (k) — 1;

S := S – k;

8. Вычислите значение переменной x после выполнения фрагмента программы на языке

программирования Turbo Pascal:

a := 2;

b := 3;

c := 4;

if (a – b < 0) and (b > c)

then x := a + b*c

else x := b + c

Сформировать массив А, состоящий из 20 чисел, элементы массива вычисляются по формуле А= К+7, К=1,3,5,7…. Массив вывести в строчку.

Написать код в Pascal.

Задача: Сформулировать и вывести на экран в виде таблицы массив A[1.4,1.6], заполнив его целыми случайными числами из интервала [30,75]

Найти среднее арифметическое каждого столбца.

Составить 2 блок-схемы:

1. Private Sub Command1_Click()

Dim i As Integer, j As Integer, L As Integer, M As Integer, b As Integer, c As Integer, u As Integer

Dim R6() As Single, p As Integer

M = InputBox(«Количство строк матрицы=»)

L = InputBox(«Количество столбцов матрицы=»)

ReDim R6(M, L)

For i = 1 To M

For j = 1 To L

R6(i, j) = InputBox(«Введите R6(» & i & «,» & j & «)=»)

Next

Next

p = R6(2, 2)

For i = 2 To M Step 2

For j = 2 To L Step 2

If p > R6(i, j) Then

p = R6(i, j)

b = i

c = j

u = p

End If

Next

Next

R6(1, 2) = u

MsgBox («Минимальный элемент с четным индексом R6(» & b & «,» & c & «)=» & u)

End Sub

2. Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer

Dim W() As Single, flag As Boolean

m = InputBox(«Введите количество строк»)

ReDim W(1 To m, 1 To m)

For i = 1 To m

For j = 1 To m

W(i, j) = InputBox(«W(» & i & «,» & j & «)=»)

Print W(i, j);

Next

Print

Next

flag = False

Print

End Sub

Задн одномерный массив А. Требуется переписать элементы одномерного массива А кратные в 8 массив В, а если такие отсутствуют, то выдать соответствующее сообщение.

Pascal.

Для заданных массивов А[8, 8] и В[8,8] описать алгоритм образования суммы С=А+В разности P =A-B и вывода массивов C, P. (Алгоритм вычислений представить в форме по-пунктной записи, в виде блок схемы и N-S схемы) с условием. Заранее спасибо)

ЯЗЫК: Pascal

Const n=5; m=4;

var s, i, j : integer;

a: array [1.n, 1.m] of

integer;

begin

for i:= 1 to n do

for j:= 1 to m do

a[i,j]:=random(10);

for i:=1 to n do begin

for j:=1 to m do

write ( A[i,j]:5 );

writeln;

end;

S:=0;

For i:=1 to n do

For j:=1 to m do

S:=S+a[i,j];

Writeln(‘сумма элементов

массива равна ‘,S);

end.

Изменить программу таким образом, чтобы:

a. Матрица состояла из 15 элементов вещественного типа;

b. Значения элементов должны меняться в интервале от 3 до 7;

c. В результате выполнения программы должно быть найдено

произведение всех элементов матрицы;

d. Вычисляться сумма элементов матрицы по строкам.

Напишите 2 задания, по информатике. 6 класс.

ПАСКАЛЬ. Создать двумерный массив, ввести с клавиатуры значения и отсортировать их в порядке возрастания