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

Питання №1 ? Розгалуження як фрагмент алгоритму починається з команди перевірки умови і результатом цієї команди можуть бути .

немає правильної відповіді

false

true

true або false

Питання №2 ?

Як відбувається виконання команди повного розгалуження, якщо значення логічного виразу true?

виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням

одразу виконується команда, наступна за розгалуженням

виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням

виконується послідовність команд і після цього виконується команда, наступна за розгалуженням

Питання №3 ?

Як відбувається виконання команди повного розгалуження, якщо значення логічного виразу false?

виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням

одразу виконується команда, наступна за розгалуженням

виконується послідовність команд і після цього виконується команда, наступна за розгалуженням

виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням

Питання №4 ?

Як відбувається виконання команди неповного розгалуження, якщо значення логічного виразу true?

виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням

одразу виконується команда, наступна за розгалуженням

виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням

виконується послідовність команд і після цього виконується команда, наступна за розгалуженням

Питання №5 ?

Як відбувається виконання команди неповного розгалуження, якщо значення логічного виразу false?

одразу виконується команда, наступна за розгалуженням

виконується послідовність команд і після цього виконується команда, наступна за розгалуженням

виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням

виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням

Питання №6 ?

Як описується алгоритмічна структура неповного розгалуження в мові програмування Free Pascal?

if <логічний вираз> then <команда>

if <логічний вираз> then <команда 1> else <команда 2>

відсутня правильна відповідь

If ….. then

👇
Открыть все ответы
Ответ:
vavilina000
vavilina000
23.10.2022

Задачка мне очень понравилась, прилагаю решение на C#, консольное приложение

Объяснение:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace Археологи_строители

{ class Program

   {

       static void Main(string[] args)

       {

           //Объявляем и задаем переменные "M" и "N", а так же переменную для результата

           int M,N=new int();

           int MyResult = 0;

           Console.WriteLine("Ведите Текущее количество ступенек и Сколько их должно быть:");

           M = int.Parse(Console.ReadLine());

           N = int.Parse(Console.ReadLine());

           // Создаем массив для хранения данных о ступенях. M-Количество ступенек, Цифра - для колонок длины и высоты

           int[,] mass = new int[M,2];

           // Запись значений в массив

           for (int x = 0; x < M; x++){

               for (int y = 0; y < 2; y++){

                   if (y==0){  //Чисто для юзерфрендли отображения

                       Console.Write($"Введите значение Длины для ступеньки №{x + 1}= ");} else{

                       Console.Write($"Введите значение Высоты для ступеньки №{x + 1}= ");}

                   mass[x, y] = Convert.ToInt32(Console.ReadLine());}

                   Console.WriteLine();}

           /* Как оказалось, самый простой определить какую же ступеньку надо "поднимать"-

            * это вычислить площадь гипотетически "заполняемого" пространства над ступенькой и взять

            * наименьшее значение.

            *  

            * Итак, допустим если у нас 5 ступенек, то нам нам необходимо записать 4 значения

            * (в рамках лестницы) площади заполняемых ступенек.

            *  

            * Перемножаем Длину ступеньки N на высоту ступеньки N+1, M-1 раз и сохраняем в массив

            */

           int M2 = M; //Дублируем изначальное число ступенек для контроля цикла

           for (int z = 0; z <M2-N; z++)

           {

               int[] acreage = new int[M - 1];

               for (int x = 0; x < M - 1; x++)

               {

                   for (int y = 0; y < 2; y++)

                   {

                       acreage[x] = mass[x, 0] * mass[x + 1, 1];

                   }

               }

               /*

                * И так у нас есть все значения гипотетически заполняемой ступеньки.

                * Ищем минимальное значение площади  

                */

               int minAcreage = acreage[0];

               for (int i = 0; i < M - 1; i++)

               {

                   if (minAcreage > acreage[i])

                   {

                       minAcreage = acreage[i];

                   }

               }

               MyResult = MyResult+minAcreage; //Плюсуем данное значение в переменную результата

               // У нас есть минимальная площадь. Найдем номер данной ступеньки

               int IndexAcreage = Array.IndexOf(acreage, minAcreage);

               //"Достроим нужную нам ступеньку и запишем обновленные данные во временный массив"

               int[,] tempMass = new int[M - 1, 2]; //Он на размер меньше, т.к. и "полных" ступенек у нас стало меньше

               for (int x = 0; x < M - 1; x++)

               {

                   for (int y = 0; y < 2; y++)

                   {

                       //Ступеньки до IndexAcreage мы просто переписываем во временный массив

                       if (x < IndexAcreage)

                       {

                           tempMass[x, y] = mass[x, y];

                       }

                       //2 ступеньки от IndexAcreage мы превращаем в одну (застраивая их блоками)

                       else if (x == IndexAcreage)

                       {

                           tempMass[x, y] = mass[x, y] + mass[x + 1, y];

                       }

                       /* и после IndexAcreage мы та же копируем, но со сдвигом вправо, т.к. полноценных  

                        * ступенек стало меньше

                        */

                       else if (x > IndexAcreage)

                       {

                           tempMass[x, y] = mass[x + 1, y];

                       }

                   }

               }

               M = M - 1; //Поскольку ступенек теперь меньше, то и их фактическое число необходимо уменьшить

               for (int x = 0; x < M + 1; x++)

               {

                   for (int y = 0; y < 2; y++)

                   {

                       mass[x, y] = 0;

                   }

               }

               //переписываем данные в основной массив и запускаем следющую интерацию цикла

               for (int x = 0; x < M; x++)

               {

                   for (int y = 0; y < 2; y++)

                   {

                       mass[x, y] = tempMass[x, y];

                   }

               }

           }

           Console.WriteLine($"Минимально необходимое число блоков: {MyResult}");

           Console.ReadKey(true);

       }

   }

}

4,4(75 оценок)
Ответ:
Dataset147
Dataset147
23.10.2022
1.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    max := a[1][1];
    for i := 2 to 4 do
        if max < a[i][i] then max := a[i][i];
    writeln(max);
End.

2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
    for i := 1 to 5 do
        begin
        for j := 1 to 5 do
            read(a[i][j]);
        readln;
        end;
    readln(m);
    sum := 0;
    for i := 1 to 5 do
        if (m - i > 0) and (m - i < 6) then
            sum := sum + a[i][m - i];
    writeln(sum);
End.

3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    max := a[1][N];
    for i := 2 to N do
        if (max < a[i][N + 1 - i]) then
            max := a[i][N + 1 - i];
    writeln(max);
End.

4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    sum := 0;
    count := 0;
    for i := 1 to N do
        if (a[5][i] mod 2 = 1) then
            begin
                sum := sum + a[5][i];
                inc(count);
            end;
    sum := sum / count;
    writeln(sum);
End.

5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    upper_sum := 0;
    lower_sum := 0;
    for i := 1 to 4 do
        begin
        for j := i + 1 to 4 do
            upper_sum := upper_sum + a[i][j];
        for j := 1 to i - 1 do
            lower_sum := lower_sum + a[i][j];
        end;
    writeln(upper_sum);
    writeln(lower_sum);
End.
4,6(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ