У чому полягають відмінності у виконання команд повного і неповного розгалуження в object pascal

👇

Ответ:

отличница475

21.11.2021

Відмінності виконання повного і неповного розгалуження: 1) обчислюється значення логічного виразу, якщо це значення істинне (True), то у повному розгалуженні виконується послідовність команд і після цього виконується команда, наступна за розгалуженням, а у неповному — виконується послідовність команд і після цього виконується команда, наступна за розгалуженням; 2) якщо це значення хибне (False), то у повному розгалуженні виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням, а у неповному — відразу виконується команда, наступна за розгалуженням.

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

Ответ:

БЕРЕНА

21.11.2021

4,6(39 оценок)

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

Ответ:

Софиям2017

21.11.2021

1):С:\Учебный\Информатика\Кодирование ->
С:\Учебный\Информатика ->
  С:\Учебный ->
  С:\Учебный\Информатика ->
  С:\Учебный\Информатика\Кодирование ->
  С:\Учебный\Информатика ->
  С:\Учебный ->
Не подходит, т.к. Витя опустился на n уровней, а поднялся на  n+2, что не подходит по условию.
2)С:\Учебный\Информатика\Кодирование ->
С:\Учебный\Информатика ->
С:\Учебный ->
С:\Учебный\Информатика ->
С:\Учебный\Информатика\Программирование->
С:\Учебный\Информатика\Программирование\Паскаль
Не подходит, т.к. Витя спустился на либо на 2 уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию.
3)С:\Учебный\Информатика\Кодирование ->
С:\Учебный\Информатика ->
С:\Учебный ->
С:\Учебный\Математика ->
С:\Учебный\Математика\Дроби
Подходит. Витя опустился на 2 уровня вниз и поднялся на 2 уровня вверх.
4)С:\Учебный\Информатика\Кодирование ->
С:\Учебный\Информатика ->
С:\Учебный ->
С:\ ->
С:\Учебный\ ->
С:\Учебный\Информатика
Не подходит, т.к. Витя спустился на 3 уровня вниз, а поднялся на 2, что не подходит по условию.
ответ: 3)

4,6(61 оценок)

Ответ:

GoldenFreddi322

21.11.2021

//Pascal ABC.NET v3.1 сборка 1172

Const
n=5;

Var
ma:array[1..n,1..n] of integer;
i,j,max,maxj,a:integer;
begin
max:=-1;
randomize;
writeln('Matrix:');
for i:=1 to n do
   begin;
   for j:=1 to n do
    begin;
     ma[i,j]:=random(10);
     write(ma[i,j]:4);
    end;
   writeln;
   end;
for j:=1 to n do
begin
   for i:=1 to n do
     a:=a+ma[i,j];
   if a>max then
    begin
     max:=a;
     maxj:=j;
    end;
    a:=0;
end;
write('Максимальный по сумме столбец:',maxj);
end.

Пример работы кода:
Matrix:
   8   6   8   0   2
   6   1   2   9   8
   8   1   8   0   1
   4   5   1   5   2
   3   0   9   9   5
Максимальный по сумме столбец:1

4,8(52 оценок)

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

Семейная-жизнь

02.02.2020

Как показать почтение умершему знакомому...

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

01.08.2020

Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...

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

26.04.2020

Как изменить одежду сима в The Sims 2: простые шаги...

12.09.2020