Вспомним оператор присваивания. Общий вид можно записать таким образом:
имя_переменной = выражение
Выражение, стоящее в правой части оператора присваивания, позволяет вычислять значения переменных по различным формулам.
Выражение может содержать:
• целые и вещественные числа (в вещественных числах целая и дробная часть разделяются точкой, а не запятой, как это принято в математике)
• знаки арифметических действий:
+ сложение,
- вычитание,
* умножение,
/ деление
**возведение в степень;
• вызовы стандартных функций (приведем только часть из большого набора. Все математические функции описаны в библиотеке math, которую необходимо подключить с использованием строки import math )
abs(n) модуль целого числа n
math.fabs(x) модуль вещественного числа x
math.sqrt(x) квадратный корень из вещественного числа x
//PascalABC.Net 3.0, сборка 1064 const n=20; var a:array[1..n] of integer; i,imax,imin:integer; s:longint; begin Randomize; Writeln('Исходный ряд значений'); imax:=1; imin:=1; for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' '); if a[i]>a[imax] then imax:=i else if a[i]<a[imin] then imin:=i end; Writeln; if imax>imin then Writeln('Максимальный элемент встретился позже минимального') else begin s:=0; for i:=imax+1 to imin-1 do s:=s+a[i]; Writeln('Сумма элементов между максимальным и минимальным значением ',s) end end.
Тестовое решение: Исходный ряд значений 10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25 Сумма элементов между максимальным и минимальным значением -27
Відповідь:
Арифметические выражения
Вспомним оператор присваивания. Общий вид можно записать таким образом:
имя_переменной = выражение
Выражение, стоящее в правой части оператора присваивания, позволяет вычислять значения переменных по различным формулам.
Выражение может содержать:
• целые и вещественные числа (в вещественных числах целая и дробная часть разделяются точкой, а не запятой, как это принято в математике)
• знаки арифметических действий:
+ сложение,
- вычитание,
* умножение,
/ деление
**возведение в степень;
• вызовы стандартных функций (приведем только часть из большого набора. Все математические функции описаны в библиотеке math, которую необходимо подключить с использованием строки import math )
abs(n) модуль целого числа n
math.fabs(x) модуль вещественного числа x
math.sqrt(x) квадратный корень из вещественного числа x
math.pow(x,y) вычисляет x в степени y;
Пояснення:
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
Тестовое решение:
Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27