М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
valeria2106
valeria2106
20.05.2020 21:38 •  Информатика

Напишите ая алгоритм вычисления у по формуле у=(1-х2+5х4)2(степень), где х- заданное число. учтите следующие ограничения: 1) в арифмитических выражения можно использовать только операции сложения, вычитания и
умножения. 2) каждое выражение может содержать только одну арифметическую операцию. выполните трассировку алгоритма при х= 2.

👇
Ответ:
pushkovaleria
pushkovaleria
20.05.2020

Напишите АЯ алгоритм вычисления у по формуле   у=(1-х2+5х4)2(степень), где х- заданное число. Учтите следующие ограничения:

1) в арифмитических выражения можно использовать только операции сложения, вычитания и умножения. 2) Каждое выражение может содержать только одну арифметическую операцию. Выполните трассировку алгоритма при х= 2.

у(х) = (1 - х^2 + 5*х^4)^2 - я правильно записал выражение используйте знаки умножения "*" и возведения в степень "^" при записи выражений!

Пусть запись // означает, что последующая часть строки является комментарием.

 

С учетом ограничений (1) и (2), алгоритм может выглядеть следующим образом:

 

1. Вычислить tmp1 = х*х                   // tmp1 = х^2

2. Вычислить tmp2 = tmp1*tmp1       // tmp2 = х^4

3. Вычислить tmp2 = 5*tmp2             // tmp2 = 5*х^4

4. Вычислить tmp1 = 1 - tmp1           // tmp1 = 1 - x^2

5. Вычислить tmp1 = tmp1 + tmp2    // tmp1 = 1 - x^2 + 5*х^4

6. Вычислить y = tmp1*tmp1             // y = (1 - x^2 + 5*х^4)^2

 

При x = 2 получим:

 

1. Вычислить tmp1 = 2*2 = 4             // tmp1 = 4

2. Вычислить tmp2 = 4*4 = 16           // tmp2 = 16

3. Вычислить tmp2 = 5*16 = 80         // tmp2 = 80

4. Вычислить tmp1 = 1 - 4 = -3          // tmp1 = -3

5. Вычислить tmp1 = -3 + 80 = 77     // tmp1 = 77

6. Вычислить y = 77*77 = 5929          // y = 5929

 

Вычислим у(х) при х = 2: y(2) = (1 - 2^2 + 5*2^4)^2 = (1 - 4 - 5*16)^2 = 5929. Т.е. наш алгоритм дает верный результат при х = 2.

4,5(70 оценок)
Открыть все ответы
Ответ:
DimaKravshenco
DimaKravshenco
20.05.2020
Program Zadacha;
Const n = 10; m = 10; max = 15;
Var A: Array [1..n, 1..m] Of Integer;
B: Array[1..n] of Integer;
C: Array[1..n] of Real;
min, sum, count, i, j: Integer;
Begin
Randomize;
For i := 1 To n Do
For j := 1 To m Do
A[i, j] := Random(max * 2) - max;
min := max;
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] < min Then
min := A[i, j];
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] = min Then
B[i] := 1;
sum := 0;
count := 0;
For i := 1 To n Do
Begin
For j := 1 To m Do
If (A[i, j] Mod 2 = 0) And (A[i, j] >= 0) Then
Begin
sum := sum + A[i, j];
count := count + 1;
End;
C[i] := sum / count;
sum := 0;count := 0;
End;
WriteLn('Массив A:');
For i := 1 To n Do
Begin
For j := 1 To m Do
Write(A[i, j], ' ');
WriteLn;
End;
WriteLn('Массив B:');
For i := 1 To n DoWrite(B[i], ' ');
WriteLn;
WriteLn('Массив C (среднее арифметиеское положительных четных элементов массива A):');
For i := 1 To n Do
Write(C[i]:5:2, ' ');
ReadLn;
End.
4,7(60 оценок)
Ответ:
Какфундик
Какфундик
20.05.2020
С использованием составных условий:

Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.

Без использования составных условий:

Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
4,7(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ