aivanova
?>

Напишите программу для вывода изображения: 1 Установите размер окна (600, 500) 2 Установите цвет фона синим цветом 3 Добавьте на рабочую поверхность файл с изображением бабочки

Информатика

Ответы

k-alexey9

from pygame import *

init()

fly = image.load('введите здесь путь к изображению бабочка')

window = display.set_mode((600, 500))

run = True

while run:

   time.delay(20)

   window.fill((0, 0, 255)

   window.blit(fly, (300, 250))

   a = event.get()

   for j in a:

        if j.type == QUIT:

             quit()

   display.update()

quit()

Объяснение:

в переменной fly ввести путь к изображению бабочка

Dmitrievich-Telishev
1 задача:

const n=10;
var 
  min,i: integer;
  a: array[1..n] of integer;
begin
  randomize;
  min:=11;
  for i:=1 to n do begin
    a[i]:=random(1,10);
    write (a[i],' '); // для наглядности. можно удалить
    if  (i mod 2 =1) and (a[i]<min) 
      then min:=a[i];    
  end;
  writeln;
  writeln ('min = ',min)
end.

Пример:
5 4 7 8 6 2 10 4 9 9 
min = 5


2 задача:

const n=10;
var 
  max,count,i: integer;
  a: array[1..n] of integer;
begin
  randomize;
  max:=0;
  count:=0;
  for i:=1 to n do begin
    a[i]:=random(1,10);
    write (a[i],' '); // для наглядности. можно удалить
    if a[i]>max
      then max:=a[i];     
  end;
  for i:=1 to n do 
    if max=a[i] then count:=count+1;
  writeln;
  writeln ('max = ',max);
  writeln ('count = ',count);
end.

Пример:
8 5 3 2 2 10 10 9 3 10 
max = 10
count = 3
ЕлизаветаВладимирович

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу для вывода изображения: 1 Установите размер окна (600, 500) 2 Установите цвет фона синим цветом 3 Добавьте на рабочую поверхность файл с изображением бабочки
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Gstoremsk62
annasv8
aa276568
Shipoopi8
ridyana504
Sadovskaya425
igevskoemuseumkec
О. Карпов1691
saveskul84
Анна-Денис1346
zdv686857
chysvv
UvarovAndrei
lobutev
StudioArtNails