// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите начальное значение, конечное и шаг: '); Read(a,b,h); var n:=Trunc((b-a)/h)+1; for var i:=1 to n do begin var x:=a+(i-1)*h; var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x; Writeln(x:0:3,' ',y:0:5) end end.
program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i := 1 to 6 do readln(a[i]); mi := 1; m := a[mi]; for i := 2 to 6 do if a[i] < m then begin mi := i; m := a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end.
2) предполагая, что 'коробочка' - это корень
program t2; const F = -8; T = 6; S = 2; var i: real; function GetY(x: real): real; begin if (x > -3) and (x <= 3) then GetY := sqrt(x) else GetY := 1 / (x * x); end; begin writeln('промежуток [', F, '; ', T, '], шаг ', S, ':'); i := F; while i <= T do begin writeln('y(', i, ') = ', GetY(i)); i := i + S; end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,h:real;
Write('Введите начальное значение, конечное и шаг: ');
Read(a,b,h);
var n:=Trunc((b-a)/h)+1;
for var i:=1 to n do begin
var x:=a+(i-1)*h;
var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x;
Writeln(x:0:3,' ',y:0:5)
end
end.
Пример
Введите начальное значение, конечное и шаг: -2.5 1.6 0.2
-2.500 -1.60000
-2.300 -1.73913
-2.100 -1.90476
-1.900 -2.10526
-1.700 -2.35294
-1.500 -2.66667
-1.300 -3.07692
-1.100 -3.63636
-0.900 -4.44444
-0.700 -5.71429
-0.500 -8.00000
-0.300 -13.33333
-0.100 -40.00000
0.100 1.00500
0.300 1.04534
0.500 1.12758
0.700 1.25484
0.900 1.43161
1.100 1.66360
1.300 1.95750
1.500 2.32074