Информатика: Что представляет собой обработка информации?

Что представляет собой обработка информации?

👇

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

Ответ:

zzzzzzz555555

27.05.2021

обработка информации
представляет собой решение какой-либо информационной задачи

4,7(11 оценок)

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

Ответ:

VADioG

27.05.2021

//Вводим a,b,c

Console.WriteLine(hello);

if(a == b || a==c || b==c){

Console.WriteLine("Треугольник равнобедренный");

}else{

Console.WriteLine("Треугольник НЕ равнобедренный");

}

int x1,x2,x3,x4;

int x;

//Вводим число x

x1 = (x - (x % 1000)) / 1000;

x2 = ((x - (x % 100)) - (x - (x % 1000))) / 100;

x3 = ((x - (x % 10)) - (x - (x % 100))) / 10;

x4 = x % 10;

if((x1 == 6) || (x1 == 9) || (x2 == 6) || (x2 == 9) || (x3 == 6) || (x3 == 9) || (x4 == 6) || (x4 == 9)){

Console.WriteLine("Входит");

}else{

Console.WriteLine("не входит");

}

float x,y,z;

// Вводим x,y,z

if(x >= 0,5 && x<=5,1) Console.WriteLine(x, " Входит");

if(y >= 0,5 && y<=5,1) Console.WriteLine(y, " Входит");

if(z >= 0,5 && z<=5,1) Console.WriteLine(z, " Входит");

4 задания к сожалению не понял

4,7(27 оценок)

Ответ:

asikpozitiv3

27.05.2021

//PascalABC.NET 3.1 сборка 1239

1) хотя не понятно зачем изобретать велосипед
function max(a, b: integer): integer;
begin
    max := a;
    if b > a then
        max := b;
end;

begin
    var a:=ReadInteger('a =');
    var b:=ReadInteger('b =');
    writeln(max(a, 2 * b) * max(2 * a - b, b));
end.
2)
const
    handfree = false;

begin
    var a:= new integer[ReadInteger('n =')];
    if handfree then
        a := ArrRandomInteger(a.Length, -50, 50)
    else
        a := ReadArrInteger(a.Length);

    writeln('Array:');
    a.Println;
    writeln('Sum of odds by value = ', a.Where(x -> x mod 2 = 0).Sum);
    writeln('Sum of odds by position = ', a.Slice(0, 2).Sum);
end.
3)
const
    n = 5;
    m = 6;
    handsfree = false;

begin
    var a := new integer[n, m];
    writeln('Данные матрицы:');
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            if handsfree then begin
                a[i, j] := random(-50, 50);
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;

    writeln('Вывод:');
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
        begin
            if a[i, j] < 0 then a[i, j] := 0;
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.

4) не ясно что они конкретно под паркетом подразумевали
uses
GraphABC;
const
    r = 30;

begin
    var x := r;
    var y := 7 * r;
    Brush.Color := clPurple;

    for var i := 1 to 6 do
        Circle(x + r * i, y - r * i, r);
end.

5)
uses graphabc;
const
radius = 50;

begin
var step := radius div 5;
// var step := 0;
var x := 2 * radius;
var y := 2 * radius;
SetPenWidth(radius div 10);

SetPenColor(clBlue);
Drawcircle(x, y, radius);
x += 2 * radius + step;

SetPenColor(clBlack);
Drawcircle(x, y, radius);
x += 2 * radius + step;

SetPenColor(clRed);
Drawcircle(x, y, radius);
y += radius + step;
x := 3 * radius + step div 2;

SetPenColor(clYellow);
Drawcircle(x, y, radius);
x += 2 * radius + step;

SetPenColor(clLimeGreen);
Drawcircle(x, y, radius);
x += 2 * radius + step;
end.

6)
uses
GraphABC;
const
    w = 500;
    d = 10;

begin
    Window.Init(0, 0, w, w, clGreen);
    Window.CenterOnScreen;
    Brush.Color := clBlack;

    for var x := 0 to Window.Width do
    begin
        var y := Window.Height - x;
        Sleep(10);
        Window.Clear(clGreen);
        FillPolygon((x, y), (x + d, y - d), (x + 2 * d, y));
    end;
end.

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

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

Финансы-и-бизнес

25.01.2020

Как открыть счет в швейцарском банке: необходимые шаги и требования...

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

19.04.2023

Как прекратить получение сообщений на Facebook...

Стиль-и-уход-за-собой

22.08.2021

Как эффективно удалить губную помаду?...

Искусство-и-развлечения