Function f(x:real):real; { возвращает значение функции y(x) для заданного х } begin f:=sqr(x)+4*x+3 end;
var a,b,h:real; { начало интервала, конец интервала, шаг } x,y:real; { аргумент и значение функции } begin Write('Введите начало интервала, конец и шаг: '); Read(a,b,h); x:=a; while x<=(b+0.001*h) do { 0.001*h добавляем для компенсации погрешности } begin Writeln('x=',x,', y=',f(x)); x:=x+h end end.
В решении хорошо видно, как часть чисел из-за погрешности машинного представления отображается неточно. В частности, мы "не попали" точно в х=0 и если бы табуляция шла на интервале [-2;0] с шагом 0.2, то при задании в цикле условия x<=b без компенсации погрешности, мы бы не получили значение для х=0.
Uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer; index,sum:integer; procedure max_el; begin max:=e[1,1]; sum:=0; index:=0; for n:=1 to 3 do begin for m:=1 to 7 do begin if e[n,m]>max then begin max:=e[n,m]; index:=m; end; end; end; for n:=1 to 3 do begin if e[n,index]<0 then begin sum:=sum+e[n,index]; end; end; writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum); end; begin clrscr; writeln('elementy massiva'); writeln; randomize; for n:=1 to 3 do begin for m:=1 to 7 do begin e[n,m]:=random(100) -50; write('',e[n,m],' '); end; writeln; end; writeln; writeln; max_el; readkey; end.
Объяснение:
Укажите истинное высказывание.
Алгоритм всегда представляет собой некоторую последовательность вычислений.
Алгоритм может представлять собой некоторую последовательность вычислений, а может — последовательность действий нематематического характера.
Алгоритм всегда представляет собой последовательность действий нематематического характера.