М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AmoskovaAlenka
AmoskovaAlenka
03.02.2023 19:38 •  Информатика

)составить программу для рисования желтого квадрата в красном круге.

👇
Ответ:
koretstanya1
koretstanya1
03.02.2023

using System;
using System.Windows.Forms;
using System.Drawing;

namespace RedSquareInYellowCircle {
    static class Program {
        [STAThread]
        static void Main() {
            Application.EnableVisualStyles();
            Application.(false);
            Application.Run(new Form1());
        }
    }

    public class Form1 : Form {
        private System.ComponentModel.IContainer components = null;

        protected override void Dispose(bool disposing) {
            if (disposing && (components != null)) {
                components.Dispose();
            }
            base.Dispose(disposing);
        }

        public Form1() {
            InitializeComponent();
        }

        private void InitializeComponent() {
            this.SuspendLayout();
            //
            // Form1
            //
            this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
            this.Name = "Form1";
            this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
            this.ResumeLayout(false);

        }

        private void Form1_Paint(object sender, PaintEventArgs e) {
            const int radius = 100;
            float a = (float)Math.Sqrt(2) * radius;
            int[] center = { this.ClientRectangle.Width / 2, this.ClientRectangle.Height / 2 };

            Pen pen = new Pen(Color.Black, 0);
            SolidBrush sbYellow = new SolidBrush(Color.Yellow);
            SolidBrush sbRed = new SolidBrush(Color.Red);

            e.Graphics.FillEllipse(sbYellow, new Rectangle(center[0] - radius, center[1] - radius, 2 * radius, 2 * radius));
            e.Graphics.FillRectangle(sbRed, new Rectangle(center[0] - (int)a / 2, center[1] - (int)a / 2, (int)a, (int)a));

            // Освободить объекты GDI+
            pen.Dispose();
            sbYellow.Dispose();
            sbRed.Dispose();
        }
    }
}

 

сделанно в 2010 студии, если вдруг проблемы с компиляцией

4,6(75 оценок)
Открыть все ответы
Ответ:

исходный код на языке программирования pascal

const n = 10;

var

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

    i: byte;

    avrg: real;

    sum: integer;

begin

    randomize;

    for i: =1 to n do a[i]: =random(50)+1;

    sum : = 0;

    for i: =1 to n do sum : = sum + a[i];

    avrg : = sum/n;

   

    // весь массив

    for i: =1 to n do write(a[i]: 3);

    writeln;

   

    writeln('среднее арифм.: ',avrg: 4: 2);

   

    // больше avrg    

    for i: =1 to n do if a[i]< avrg then write(a[i]: 3);

    writeln;

end.

пример(ы) выполнения программы на языке pascal

13 23 45   2   9 28 47 30 18 12

среднее арифм.: 22.70

13   2   9 18 12

4,6(24 оценок)
Ответ:
MuBuHa
MuBuHa
03.02.2023

есть массив a из n чисел, к каждому числу массива жарасхан должен применить лишь одну операции  

1) добавить к числу один

2) отнять от числа один

3) добавить к числу ноль

к каждому элементу массива нужно применить одну их трех операции так, чтоы после применения операций ко всем элементам массива, количество одинаковых чисел в массиве стало максимальным.  

формат входных данных:

в первой строке входных данных дано одно целое число n - размер массива. во второй строке входных данных даны элемента массива a;

формат выходных данных:  

выведите одно целое число - максимальное количество одинаковых чисел в массиве после применения операций.

пример:

входные данные:  

7

3 1 4 1 5 9 2

выходные данные:  

4

замечание: в первом тесте можно изменить массив в такой вид: 2,2,3,2,6,9,2

4,8(99 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ