Регистрация Спросить otvet5GPT
Nastiya320
14.03.2020 06:14
Информатика
Есть ответ 👍

Напишите программу на языке паскаль для решения(x-цел.число)[tex]y=\left \{ {{x^{2}-3x+5} \atop {|x|}+10} \right., { {{x\geq 0} \atop {x\ \textless \ 0}} \right. /tex]

120
278
Посмотреть ответы 1

Ответы на вопрос:

Ilka1k
Ilka1k
4,4(71 оценок)

Отлажено с PascalABC.Net

Program Answer;//Создаем программу

//Создаем необходимые переменные

var Massive : array[0..4] of integer;//Массив сгенерированных чисел

var PositiveCnt, NegativeCnt, NeutralCnt :  

integer;//Количество чисел относящиеся к определенной группе

var t : boolean;//Определяет есть ли в массиве отрицательное четное число

begin//Начинаем цепочку действий программы

 Massive[0] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[1] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[2] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[3] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[4] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 

 //Выводим полученные значения

 writeln('Список значений: ');

 writeln(Massive[0].ToString());

 writeln(Massive[1].ToString());

 writeln(Massive[2].ToString());

 writeln(Massive[3].ToString());

 writeln(Massive[4].ToString());

 

 //Вычисляем количество положительных значений

 if (Massive[0] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[1] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[2] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[3] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[4] > 0) then PositiveCnt := PositiveCnt + 1;

 

 //Вычисляем количество отрицательных значений

 if (Massive[0] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[1] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[2] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[3] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[4] < 0) then NegativeCnt := NegativeCnt + 1;

 

 //Вычисляем количество нулевых значений

 if (Massive[0] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[1] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[2] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[3] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[4] = 0) then NeutralCnt := NeutralCnt + 1;

 

 //Выводим количество положительных значений

 writeln('Количество положительных значений: ' + PositiveCnt.ToString());

 

 //Выводим количество отрицательных значений

 writeln('Количество отрицательных значений: ' + NegativeCnt.ToString());

 

 //Выводим количество нулевых значений

 writeln('Количество нулевых значений: ' + NeutralCnt.ToString());

 

 //Определяем есть ли в массиве четное, отрицательное число

 if (Massive[0] < 0) and (Massive[0] mod 2 = 0) then t := true

 else if (Massive[1] < 0) and (Massive[1] mod 2 = 0) then t := true

 else if (Massive[2] < 0) and (Massive[2] mod 2 = 0) then t := true

 else if (Massive[3] < 0) and (Massive[3] mod 2 = 0) then t := true

 else if (Massive[4] < 0) and (Massive[4] mod 2 = 0) then t := true;

 

 writeln('В массиве есть одно четное, отрицательное число? - ' +  

 t.ToString());

end.//Завершаем цепочку действий программы

Вывод:

Список значений:  

-9

9

-7

2

-9

Количество положительных значений: 2

Количество отрицательных значений: 3

Количество нулевых значений: 0

В массиве есть одно четное, отрицательное число? - False

за интересное задание!

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS