Function y(x: real): real;
begin
if x < -1 then
y := 1 - 2 * x
else if x <= 2 then
y := 2 + x * x
else
y := abs(2 * x * x) + 1;
end;
function z(x, y: real): real;
begin
z := 2 * x / (48 - y * y) + 15 * sin(x);
end;
var
x: integer;
begin
for x := -10 to 10 do
writeln('x=',x, ' y=', y(x), ' z=', z(x, y(x)));
end.
Идешь всеми путями из а в е
ищешь наикратчайший
допустим: из А в В =2
из В в С =1
из С в Е =2
итого 5
понятненько? :3
Числа должны быть целыми? Или полностью рандомные?
Var A: arrey[1..19,1..2] of integer;
Var x, i: integer;
Begin
For i:=1 to 19 do begin
A[i,1]:=i; A[i,2]:=i*i;
Writeln (A[i,1]:4, A[i,2]:4)
End
End.
---------------
Или если без массива, то так:
Const n=12;
Var x,y: integer;
Begin
For x:=1 to n do begin
y:=x*x;
Writeln (x:4,y:4)
End
End.