Уровень - Знание и понимание
среды Scratch 1.4 вы
команды
блока
цвет окрашены
1. Какие блоки программной среды Scratc
знаете?
2. В какой цвет окрашены
Контроль?
Спрайт называть другим
3. Можно ли объект Спрайт называть ,
именем?
По какой команде начинается выполнение про-
граммы в среде Scratch?
5. Где выполняются действия, которые задают на
вкладке скрипты?
6. Как вы понимаете понятие «ветвление»?
7. Какие виды ветвлений вы знаете?
8. Какие бывают условия?
9. Для чего предназначены кнопки на рисунке

👇

Открыть все ответы

Ответ:

Azozylya

12.03.2021

'1. Сформировать одномерный массив из восьми вещественных значений.
Dim M(8) As Single, i As Integer, s As String
For i = 1 To 8
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
Next
MsgBox s

'2. Сформировать двумерный массив из А строк и В столбцов.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
A = 3
B = 5
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + " "
Next
s = s + vbCrLf
Next
MsgBox s

'3. Составить программу для определения максимального и минимального элементов двумерного массива.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
Dim Min As Single, Max As Single
A = 3: B = 5
Min = 100: Max = 0
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + " "
If Max < M(i, j) Then Max = M(i, j)
If Min > M(i, j) Then Min = M(i, j)
Next
s = s + vbCrLf
Next
s = s + "Max = " & Max & vbCrLf
s = s + "Min = " & Min & vbCrLf
MsgBox s

'4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.
Dim M(10) As Integer, i As Integer, sum As Integer, s As String, s1 As String
For i = 1 To 10
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
If (M(i) > 0) And (M(i) Mod 2 = 0) Then s1 = s1 + CStr(M(i)) + " ": sum = sum + M(i)
Next
s = s + vbCrLf
s = s + s1 + vbCrLf
s = s + "sum = " & sum
MsgBox s

4,5(98 оценок)

Ответ:

Robobob

12.03.2021

// Задание 1
const
n = 100;

var
a: array[1..n] of integer;
i, s: integer;

begin
for i := 1 to 15 do
begin
    write('a[', i, '] = ');readln(a[i]);
    if i mod 3 = 0 then s := s + a[i];
end;
writeln('Сумма элементов, индексы которых кратны 3 = ', s);
end.

Тестовое решение:
число элементов : 10
a[1] = 2
a[2] = 5
a[3] = 1
a[4] = 5
a[5] = 6
a[6] = 3
a[7] = 5
a[8] = 6
a[9] = 1
a[10] = 8
Сумма элементов, индексы которых кратны 3 = 5

// Задание 2
const
n = 100;

var
a: array[1..n] of integer;
i: integer;

begin
for i := 1 to 15 do
begin
    a[i] := random(100);write(a[i]:4);
end;
writeln;
for i := 1 to 15 do
begin
    if i mod 2 = 0 then a[i] := a[i] * 2;
    write(a[i]:4);
end;
end.

Тестовое решение:
35 98 67 94 63 18 26 17   3   5   0 77 47 11 33
35 196 67 188 63 36 26 34   3 10   0 154 47 22 33

// Задание 3
const
m = 100;

var
a: array[1..m] of integer;
i, n, k, tmp: integer;

begin
write('число элементов : ');
readln(n);
for i := 1 to n do
begin
    write('a[', i, '] = ');readln(a[i]);
end;
repeat
    write('Введите к (k<>1 и k<>n)');
    readln(k);
    if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод');
until (k <> 1) and (k <> n);
for i := 1 to n do write(a[i]:4);writeln;
tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp;
for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
число элементов : 6
a[1] = 2
a[2] = 7
a[3] = 3
a[4] = 8
a[5] = 9
a[6] = 1
Введите к (k<>1 и k<>n)4
   2   7   3   8   9   1
   2   7   9   8   3   1

4,4(89 оценок)

Это интересно:

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...

Образование