1. Max - это системная функция/ Не стоит называть таким именем свою.
2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать m:=a.max; и ВСЁ. Но если хотите как на Pascal - Я исправил.
3. Функция ищет максимальное значение в массиве.
Pascal
var
maxa:integer;
procedure Getmax(c:integer; var m:integer);
var
i:integer;
a: array [1..100] of integer;
begin
for i:=1 to c do begin
a[i]:= random (20);
write(a[i],' ');
if m<a[i] then
m:=a[i];
end;
writeln;
end;
begin
Getmax(100,maxa);
writeln('Max=', maxa);
end.
напишите ая алгоритм вычисления у по формуле у=(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.
Поделитесь своими знаниями, ответьте на вопрос:
1. запишите в порядке возрастания через запятую номера, под которыми в ниже списке указаны информационные процессы: 1) таяние снега; 2) взвешивание товара в магазине; 3) повышение температуры у больного человека; 4) выписывание учеником ответа к ; 5)обсуждение произведения в классе; 6) обмен марками двух коллекционеров. · 123 · 345 · 245 · 156