MiKaSaKuN
08.07.2021 12:57

Оформляем на листах А4 (от руки или на компьютере). Первый лист –
титульный. Проект, включает в себя следующие пункты:
1. Условие задачи
2. Блок-схема задачи
3. Программа, записанная на языке Паскаль
4. Таблицу из трех тестирующих примеров
Пояснение
Тестирующий пример — это набор входных данных, заданных
пользователем для проверки работо алгоритма. При проверке
разветвляющихся алгоритмов необходимо в качестве входных данных задать
такие величины, чтобы охватить все возможные варианты.
Например, для программы

y:=0;
If x>0 then y:=x+1 else y:=x

Необходимо предусмотреть входные данные, исходя их условия х>0
Возможны 3 варианта: х — положительное, х — отрицательное, х=0
Следовательно, можно взять следующие тестирующие входные
данные.
х= –1 (отрицательное), х=0, х=5
Тогда после выполнения программы увидим

при x= –1 y= –1;
при x=0 y=1;
при x=5 y=6
это и есть тестирующие примеры.
Нужно решить эту задачу

Напишите программу-модель анализа пожарного датчика в помещении,
которая выводит сообщение «Пожарная ситуация», если температура (ее
значение вводится с клавиатуры) в комнате превысила 60 ºС

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Alena11094
16.01.2023 17:03

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

0,0(0 оценок)
Ответ:
den1112pro
16.01.2023 17:03

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота