kit036
?>

Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Решить задачу двумя используя цикл с последующей и предыдущей проверкой условия Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Найти периметр первого прямоугольника. 3. Вход в цикл с проверкой р<30 4. Тело цикла: найти сумму увеличить ширину найти периметр 5. Вывести сумму на экран Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Вход в цикл 3. Тело цикла: Найти периметр первого прямоугольника. найти сумму увеличить ширину 4. Выход из цикла с проверкой р>30 5. Вывести сумму на экран 5пункт не обязательно, нужна сама программа...

Информатика

Ответы

dmtr77
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
 i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do begin
 a[i,j]:=random(21)-10;
 write(a[i,j]:6);
 end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<min then
   begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.

Пример:
Исходный массив:
     5     8     2    -5    -4
     1   -10     9     1    -4
     8     2    -6    -4    -4
     8     7     3     2     2
min=a[2,2]=-10
Акимцева27
Рассмотрим выражение X<5. Оно истинно для всех ответов
Рассмотрим выражение X<3. Оно истинно для 1, 2 и ложно для 3, 4
Рассмотрим первую импликацию: две истины дают истину, значит для ответов 1,2 вторую импликацию (после или) можно не рассматривать, поскольку первая часть истинна.
Для вариантов 3,4 рассмотрим вторую импликацию.
Выражения X<2 и X<1 для вариантов 3,4 дают ложь. Импликация, где оба аргумента дают ложь, истинна. Получается, что для ответов 3,4 истинна вторая импликация, а значит значение первой несущественно (для оператора или).

отсюда следует, что выражение "((X < 5)→(X < 3)) или ((X < 2)→(X < 1))" истинно при всех перечисленных значениях х: 1, 2, 3, 4

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Решить задачу двумя используя цикл с последующей и предыдущей проверкой условия Вычислить сумму периметров прямоугольников. Длина первого a=2 м, ширина b=1м, а ширина каждой другого увеличивается на 1 до тех пор, пока периметр прямоугольника не превысит 30. Математический аппарат а, b- стороны прямоугольника p – периметр р=2(a+b) s – сумма периметров S=S+p b=b+1 увеличение длины Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Найти периметр первого прямоугольника. 3. Вход в цикл с проверкой р<30 4. Тело цикла: найти сумму увеличить ширину найти периметр 5. Вывести сумму на экран Порядок математических действий для цикла с пред. условием 1. Задать начальные значения a, b и начальное значение суммы 2. Вход в цикл 3. Тело цикла: Найти периметр первого прямоугольника. найти сумму увеличить ширину 4. Выход из цикла с проверкой р>30 5. Вывести сумму на экран 5пункт не обязательно, нужна сама программа...
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Sergeevich-irina
Nikita_Lina1305
volkovaekaterina303
kulttrop
Воронина
Aleksandrovich1075
saltikovaPavlenko
Nikolaevich1534
oslopovavera
nekataniyoleg
deniskotvitsky56
TOKAREVA Stepan
nikomuneskazhu60
Илья_Ветклиники1655
buhtovarish