Створіть новий файл Python і вікно із заголовком "Контрольна" з розміром 500х500. Створіть кнопку із текстом "Малюй", розміщену на відстані 200 пікселів від лівого та верхнього країв. Додайте до кнопки подію Button-3, при виконані якої відбудеться малювання смайлика.

👇

Увидеть ответ

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

Ответ:

Graffiti1337

26.02.2023

1. 5

2. 10

3. 15

4. 20

5. 25

6. 30

7. 35

8. 40

б)

1. -1

2. 2

3. 1

4. 4

5. 3

6. 6

7. 5

8. 8

Объяснение:

a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5

i = 1

a[1] = 1 * 5 = 5

i = 2

a[2] = 2 * 5 = 10

i = 3

a[3] = 3 * 5 = 15

i = 4

a[4] = 4 * 5 = 20

i = 5

a[5] = 5 * 5 = 25

i = 6

a[6] = 6 * 5 = 30

i = 7

a[7] = 7 * 5 = 35

i = 8

a[8] = 8 * 5 = 40

б) for i:=1 to 8 do if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2

i = 1

1 mod 2 = 0 (НЕТ)

a[1] = 1 - 2 = -1

i = 2

2 mod 2 = 0 (ДА)

a[2] = 2

i = 3

3 mod 2 = 0 (НЕТ)

a[3] = 3 - 2 = 1

i = 4

4 mod 2 = 0 (ДА)

a[4] = 4

i = 5

5 mod 2 = 0 (НЕТ)

a[5] = 5 - 2 = 3

i = 6

6 mod 2 = 0 (ДА)

a[6] = 6

i = 7

7 mod 2 = 0 (НЕТ)

a[7] = 7 - 2 = 5

i = 8

8 mod 2 = 0 (ДА)

a[8] = 8

4,6(16 оценок)

Ответ:

vitokle

26.02.2023

Задача №1

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
end;
end.

Задача №2

var a:array [1..20] of integer;
i:integer;
begin
writeln('Введите числа в интервале [-20;29]');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>-29) and (a[i]<20) then write(a[i],' ');
end.

Задача №3

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+1;
end;
writeln('Количество положительных элементов массива = ', sum);
end.

Задача №4

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
if a[i]<0 then a[i]:=0;
write (a[i],' ');
end;
end.

Задача №5

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов массива = ', sum);
end.

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

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

Образование-и-коммуникации

23.09.2021

Как построить гистограмму: подробное руководство...

Компьютеры-и-электроника

25.01.2020

Простой способ сохранить вложение на компьютер...

Взаимоотношения

21.11.2020

Страх перед длинными словами: как правильно произносить сложные термины?...

Семейная-жизнь