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

Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четвертях окна 200х200 пикселей. (В Паскале)

👇
Ответ:
zhjdjq2005
zhjdjq2005
26.06.2020

Программа:

<c> NaaMan}

program test;

 uses GraphABC;

begin

 Window.Init(700,300,200,200);

 for var i := 0 to 1 do

   for var j := 0 to 1 do begin

     SetBrushColor(RGB(255*i,255*j,127));

     FillCircle(i*100+50, j*100+50,50);

   end;

end.

Результат выполнения:


Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четв
4,7(48 оценок)
Открыть все ответы
Ответ:
taniaovchinnik
taniaovchinnik
26.06.2020

Школьные Знания.com


Какой у тебя вопрос?

10 - 11 классыИнформатика 8+4 б



Дан массив вещественных чисел:


Все элементы с нечетными номерами заменить на их квадратный корень



Отметить нарушение РРПП 01.04.2013

ответы и объяснения

Проверенный ответ

Tlalok

Tlalok Почетный грамотей

var


a:array[1..100] of real;


i, n:integer;


begin


write('Введите количество элементов '); readln(n);


for i := 1 to n do


begin


write('a[', i ,'] = ');


readln(a[i]);


end;


writeln;


writeln('Исходный массив:');


for i := 1 to n do


begin


write(a[i], ' ');


if i mod 2 = 1 then


a[i] := sqrt(a[i]);


end;


writeln;


writeln;


writeln('Преобразованный массив:');


for i := 1 to n do


write(a[i]:0:2, ' ');


writeln;


end.

4,4(59 оценок)
Ответ:
3333231231
3333231231
26.06.2020
// 7
begin
    var arr := ArrRandom(13);
    arr :=  arr.OrderByDescending(x->x).ToArray;
    arr.Println;
    Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
            'Count = ',arr.Where(x->x>10).Count);
end.

// 8
begin
   var arr := ArrRandom(10);
   Sort(arr);
   arr.Println;
   Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
           'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.

// 9
begin
   var arr := ArrRandom(15);
   arr := arr.OrderByDescending(x -> x).ToArray;
   arr.Println;
   Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
4,5(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ