NurlG
15.11.2022 23:45

Создайте программу, которая выполняет следующие действия: 1. Определите 8 целочисленных переменных. Назначьте этим переменным случайные числа из следующих диапазонов и выведите их на экран:

· От 0 до 15

· От 3 до 10

· От -8 до 2

· От 25 до 50

· От -17 до 22

2. Определите 1 целочисленную переменную. Назначьте начальное значение 10. Используйте процедуры INC и DEC, чтобы изменить значение переменной на следующее: 5, 3, 9, 8, 15, 0, 3, 6. После каждого изменения отображайте значение переменной на экране.

3. Решение квадратных уравнений. Требовать, чтобы клавиатура вводила параметры a, b и c. Вычислить квадратное уравнение

аХ2 + ЬХ + с = 0

корни X1 и X2 и выводим их на экран.

4. Рассчитайте и отобразите на экране значения синуса для следующих углов: 10˚, 30˚, 50˚, 70˚ и 90˚.

5. Требовать, чтобы клавиатура ввела 3 целых числа (коды символов). Выведите на экран символы, соответствующие введенным кодам. Например: при вводе кода 65 на клавиатуре программа должна вывести символ A

6. Выведите на экран квадратные корни из 5 случайных чисел. Диапазон номеров от 1 до 150.

7. Вычислите следующее уравнение и выведите результат на экран:

R = a4 + b3 - c2, где a, b и c - целые числа, вводимые с клавиатуры.

8. Вычислите следующее уравнение и выведите результат на экран:

- x и z - целые числа, вводимые с клавиатуры, y - результат уравнения.

9. Усовершенствовать Задачу 8 - в случае, если введенное значение x меньше -3, вывести утверждение «Вычисления невозможны» и не выполнять вычисления по уравнениям.

10. * Требуется ввести 2 целых числа. Отображение случайного числа в диапазоне от первого введенного до второго введенного числа.

Например, если вы вводите числа 5 и 10, вы должны вывести случайное число в диапазоне от 5 до 10.

паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
rrxxmarta
21.04.2022 11:18

Я не знаю что это, но я вставлю это))

|| || | | || || || || || || || || || || || | | | | | | | | | | | | | | | |

| | | |

| | | | | | | | | | | | |

| | | | | | |

Укажи, что происходит с информацией в данной жизненной ситуации:

| | | | | | | |

| | | | | | |

| |

| | | | | | | | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |

| || || || | | | | | | | | | | | | | | | | | | | | | | |

ІІІІІ

Е

НЕ

|

| ||| || || | | | | |

| | | | | | | | | | | | | | | | | | | | | | |

E

| | | | | | | | | | | | | | | | | |

Шилди.

Ваня публикует информацию в блоге

| || || || || || || || || || || || || | | |

|| || | || || | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | |

| | | ||

| | | | | | | | | | | | | | | | | | | | |

|| | || | || || | | | | | | | | | | | | | | | |

|

|| || || || || || || || || || || || || || || || || ||

||

|| || ||

|| || ||

| |

|

| | | | | | |

|

| |

| |

||

|| || || || |

|| |

||

||

обработка информации

получение информации

хранение информации

передача информации

|

/

/

ответить.

|

|

|

|

|

|

ІІ

І І

|

|

|

І

І

І

П ,

І

І

І

И ПРИНЦИПІШІ І І І І І І І І І І І І

ПІДПИПІННИЦІ ПІЛІППІ І І І І І І І І І

П

П

П

П

П

П

П

П П

П

П П

ИП

ЛИППИНПП

ПІШІНІНІП,

І ІІ

І І І І

І ЛІНІП

И

(у)

(1)

ПИСИ

ПОЛІПШІНІП ПП

И

И

ІНШІ ПЛІН,

ПІДПІЛІПІДІ ПІШІНІ

И

ИС

0,0(0 оценок)
Ответ:
Kros228volk225
06.07.2022 23:26
Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота