соняка2008

09.06.2021 06:06

Информатика

Есть ответ 👍

Запишите на языке программирования: 1)корень 3+корень1/y - 4 cos x 2)x+y/f-9 3)y^4-корень c+6/5+корень 1/x

132

275

Посмотреть ответы 2

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

Kara2006kara

Информатика

4,6(27 оценок)

1) sqrt(3) + sqrt(1/y) - 4*cos(x) 2) x + y/f - 9 3) y*y*y*y - sqrt(c + 6/5) + sqrt(1/x) если неправильно, то расставь скобки у себя в условии. я решил так, как у тебя написано.

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

-7

-9

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

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

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

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

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

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

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

Задай свой вопрос

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

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

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

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

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

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

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