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

1. Когда прекращается цикл while?
2. Для чего нужна таблица трассировки?
3. Как с цикла while можно реализовать программу ожидания ввода чисел?

3. Самостоятельная работа
Решить 2 задачи самостоятельно. Решение можно записать в тетради, либо воспользоваться средой программирования (Wing, PyCharm).
Задача № 1
Пользователь вводит числа одно за другим до тех пор, пока не введёт ноль. Программа должна выводить введенные числа до тех пор, пока не будет введен 0. Никаких операций с числами не производится.
Формат ввода
Вводятся целые числа одно за другим, на отдельных строках.
Формат вывода
Выводятся введенные числа на отдельных строках до тех пор, пока не будет введен ноль
Пример 1
Ввод Вывод
1
2
3
4
5
6
7
8
9
0
1 1
2
3
4
5
6
7
8
9

Пример 2
Ввод Вывод
5
4
3
2
1
0
1
2
3
4
5 5
4
3
2
1
Задача № 2
В задаче № 2 нужно не только вывести числа до нуля (см. предыдущую задачу), но рассчитать и вывести их сумму:
Пример 1
Ввод Вывод
5
4
3
2
1
0
1
2
3
4
5 5
4
3
2
1
15

👇
Открыть все ответы
Ответ:
Артур15051505
Артур15051505
11.04.2021
Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1>v2 then 
  begin
     writeln("жираф чемпион");
  end
  else if v1<v2 then 
  begin
     writeln("заяц чемпион");
  end
  else
  begin
    writeln("победила дружба);
  end;
end;
4,4(24 оценок)
Ответ:
лев234325
лев234325
11.04.2021
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  m = 10;

var
  t: array[1..m] of integer;
  i, n, nm, sm: integer;

begin
  //Заполняем массив сл.числами и подсчитываем
  //количество элементов и среднее арифметическое
  //согласно условию задачи
  for i := 1 to m do
  begin
    t[i] := random(-20, 20);write(t[i]:4);
    if (i > 1) and (i <= m) then
      if t[i] > t[i - 1] then n := n + 1
      else if t[i] < t[i - 1] then begin
        sm := sm + t[i];nm := nm + 1;
      end;
  end;
  writeln;
  writeln('число элементов больших предыдущего = ', n);
  writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);  
 
end.

Тестовое решение:
    6  13  19   8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
4,6(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ