Как в задаче указать шаг?

[ketik]

вот блин задача дурацкая уже 2 часа с ней мучаюсь(((
протабулировать функцию f=y12/x на отрезке x1;x2 шагом h.
это задача на цикл-я не понимаю куда этот шаг девать и для чего он нужен(((

program  zikl;
var a, b, x, y: integer;
begin
write (‘a= ‘); readln (a);
write (‘b= ‘); readln (b);
for x:= a  to b do
begin
y:= (y*12)/x;
writeln (x: 3, y: 10);
end;
end.

From Stilet: Попрошу код выделять спецтегом по кнопке #

[andik]

ketik, думаю что для этого будет лучше создавать цикл while.
Типа так:

while x<=b do
 begin
 ...
 x:=x+h;
 end;

[Don Karleone]

Сообщение от ketik

протабулировать функцию f=y12/x на отрезке x1;x2 шагом h.

может все таки f(y)=12/x ???

[Stilet]

x:= a; while x<b do begin
 y:= (y*12)/x;
 writeln (x: 3, y: 10);
 x:=x+0.1;
end;

при этом Все переменные должны быть типа Double;

[K12_4life]

Придётся тебе освоить ещё циклы while...do и repeat...until )))))))
Думаю так будет понятнее:

Var
    i: Integer;
    x, X1, X2, h: Real;

Begin
    Write('X1 = ');
    ReadLn(X1);
    Write('X2 = ');
    ReadLn(X2);
    Write('h = ');
    ReadLn(h);

    x := X1;
    while(x<=X2) do
    begin
        WriteLn('x =', x:5:2, '; y = ', 12/x:5:2);
        x := x+h;
    end;
End.

[ketik]

а как написать правило внутри что на ноль делить нельзя??

[Don Karleone]

if x <> 0 then y:=(y*12)/x
else writeln('на ноль делить нельзя');

[ketik]

что за тип такой??? типа Double;

if x <> 0 then y:=(y*12)/x
else writeln('на ноль делить нельзя'); это писать внутри бегин?

[Don Karleone]

Сообщение от ketik

что за тип такой??? типа Double;

if x <> 0 then y:=(y*12)/x
else writeln('на ноль делить нельзя'); это писать внутри бегин?

да, внутри цикла.
Double - вещественный тип с диапазоном значений 10^-324..10^308