В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
emeliynovatv
emeliynovatv
28.01.2023 12:44 •  Информатика

Укажите шаг изменения переменной цикла. Введите число без пробела, если число положительное или если число отрицательное, укажите впереди знак минус

Показать ответ
Ответ:
ilmasha24
ilmasha24
29.07.2022 13:17
// PascalABC.Net 3.0, сборка 1052
function kn(a,b,c:integer):byte;
{ функция возвращает количество отрицательных среди a,b,c}
var
  n:byte;
begin
  if a<0 then n:=1 else n:=0;
  if b<0 then Inc(n);
  if c<0 then Inc(n);
  kn:=n
end;

function cond(c:char;v:integer):string;
{ функция формирует строку вида с>0 или c<0 в зависимости от знака v}
begin
  if v<0 then cond:=c+'<0 ' else cond:=c+'>=0'
end;

procedure pv(a,b,c:integer; n:byte);
{ печать строки теста }
var
  m:byte;
begin
  m:=kn(a,b,c);
  Write(cond('a',a),' ',cond('b',b),' ',cond('c',c),' ');
  Write('отрицательных ',m);
  if n=m then Write(' - тест тестовое: ',n);
  Writeln
end;

{ тестовое решение }
const
  T:array[1..8,1..3] of integer=((1,1,1),(1,1,-1),(1,-1,1),
    (1,-1,-1),(-1,1,1),(-1,1,-1),(-1,-1,1),(-1,-1,-1));
  R:array[1..8] of byte=(0,1,1,2,1,2,2,3);
var
  i:byte;
begin
  for i:=1 to 8 do pv(T[i,1],T[i,2],T[i,3],R[i])
end.

Тестирование:
a>=0 b>=0 c>=0 отрицательных 0 - тест
a>=0 b>=0 c<0  отрицательных 1 - тест
a>=0 b<0  c>=0 отрицательных 1 - тест
a>=0 b<0  c<0  отрицательных 2 - тест
a<0  b>=0 c>=0 отрицательных 1 - тест
a<0  b>=0 c<0  отрицательных 2 - тест
a<0  b<0  c>=0 отрицательных 2 - тест
a<0  b<0  c<0  отрицательных 3 - тест
0,0(0 оценок)
Ответ:
катя3868
катя3868
29.07.2022 13:17
/* Язык C++11. Здесь решение вместе с юнит-тестами  */

#include <iostream>
#include <sstream>
#include <string>

int count_negatives(int a, int b, int c)
{
  return (a<0 ? 1:0) + (b<0 ? 1:0) + (c<0 ? 1:0)
}

void solution(std::istream &input = std::cin, std::ostream &output)
{
  int a, b, c;
  input >> a >> b >> c;
  output << count_negatives(a, b, c) << std::endl;
}

void checkTest(std::string input_data, std::string correct_answer)
{
  std::istringstream input(input_data);
  std::istringstream correct_answer_stream(correct_answer);
  std::stringstream algorithm_answer_stream;
  
  int correct_value, algorithm_value;
  correct_answer_stream >> correct_value;
  
  solution(input, algorithm_answer_stream);
  algorithm_answer_stream >> algorithm_value;
  
  if (correct_value != algorithm_value) {
    std::cerr << "Input: " << input_data << std::endl;
    std::cerr << "Correct: " << correct_value << std::endl;
    std::cerr << "Algorithm: " << algorithm_value << std::endl;
    throw std::runtime_error("Test failed");
  }
}

void runTests()
{
  checkTest("1 2 3", "0");
  checkTest("-1 2 3", "1");
  checkTest("1 -2 3", "1");
  checkTest("1 2 -3", "1");
  checkTest("-1 -2 3", "2");
  checkTest("-1 2 -3", "2");
  checkTest("1 -2 -3", "2");
  checkTest("-1 -2 -3", "3");
}

#ifdef __DEBUG
int main(int argc, const char *argv[])
{
  runTests();
  return 0;
}

#else
int main(int argc, const char *argv[])
{
  solution();
  return 0;
}

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