Const pi=3.14159265; n=15; var a,b,h,x,y:real; begin a:=pi/4; b:=pi/2; h:=(b-a)/(n-1); x:=a; while x<=b+h/2 do { h/2 - компенсация накопления погрешности } begin y:=2-sin(x); Writeln(x:7:5,y:8:5); x:=x+h end end.
function max(a, b: integer): integer; begin if a > b then max := a else max := b; end;
begin readln(a, b); writeln(max(a, 2 * b) * max(2 * a - b, b)); end.
5) const n = 10;
var a: array[1..n] of integer; i, s: integer;
begin for i := 1 to n do begin readln(a[i]); if i mod 2 = 0 then s := s + a[i]; end; writeln(s); end.
6) const handsfree = false;
var a: array[1..100, 1..100] of real; product: real; i, j, m, n: integer;
begin {ввод матрицы} if handsfree then begin n := random(20) + 2; m := random(20) + 2; end else begin write('n, m ='); readln(n, m); end;
writeln('Данные матрицы:'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(100) - 50; write(a[i, j]:4, ' ') end else read(a[i, j]); writeln; end;
product := 1; for i := 1 to m do for j := 1 to n do if a[i, j] > 0 then product := product * a[i, j]; writeln('product = ', product); end.
pi=3.14159265;
n=15;
var
a,b,h,x,y:real;
begin
a:=pi/4; b:=pi/2;
h:=(b-a)/(n-1);
x:=a;
while x<=b+h/2 do { h/2 - компенсация накопления погрешности }
begin
y:=2-sin(x);
Writeln(x:7:5,y:8:5);
x:=x+h
end
end.
Результат выполнения программы:
0.78540 1.29289
0.84150 1.25436
0.89760 1.21817
0.95370 1.18444
1.00980 1.15328
1.06590 1.12478
1.12200 1.09903
1.17810 1.07612
1.23420 1.05612
1.29030 1.03908
1.34640 1.02507
1.40250 1.01413
1.45860 1.00629
1.51470 1.00157
1.57080 1.00000