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

Скласти алгоритм на тему "я хочу чаю"

👇
Ответ:
angelochekbobi
angelochekbobi
04.12.2021
"Я хочу чаю"
1. Если чай для заварки есть, перейти к 3
2. Купить чай для заварки
3. Если в чайнике нет воды, перейти к 5
4. Вылить из чайника остатки воды
5. Наполнить чайник свежей водой
6. Начать нагрев воды в чайнике  
7. Если чай завариваем из пакетика, перейти к 20
8. Если в заварочный чайник пуст, перейти к 10
9.  Очистить и вымыть заварочный чайник
10. Положить заварку в заварочный чайник
11. Если вода в чайнике закипела, перейти к 14
12. Подождать 10с (можно другое время)
13. Перейти к 11
14. Залить заварку в заварочном чайнике водой
15. Ждать 1 мин
16. Если чай заварен недостаточно, перейти к 15
17. Налить заварку в чашку
18. Добавить в чашку воды
19 Перейти к 24
20 Налить воды в чашку
21 Положить в чашку пакетик с чаем
22 Ждать 30с
23 Если чай заварен недостаточно, перейти к 22
24 Если чай без сахара, перейти к 26
25 Добавить сахар в чай
26. Пить чай
4,5(70 оценок)
Открыть все ответы
Ответ:
Vasyy123
Vasyy123
04.12.2021
Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8
4,6(87 оценок)
Ответ:
Георгий07
Георгий07
04.12.2021
Пошаговая детализацияпредставляет собой простой процесс, предпола­гаю­щий первоначальное выражение логики модуля в терминах гипотети­чес­кого (условного) языка высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программи­рования. здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня — машинный язык.
4,4(93 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ