FOR и FOR

Оператор FOR более всего подходит для решения данной задачи, поскольку число шагов как по Х, так и по А легко определяется. Программы с этим оператором работают наиболее устойчиво. Быстродействие же циклов FOR, REPEAT, WHILE при одних и тех же условиях практически одинаково, поскольку в каждом из них на каждом их шаге осуществляется проверка условия продолжения цикла. Поэтому выбор того или другого цикла определяется только видом задачи и стремлением программиста сделать свою программу более понятной и устойчивой в работе.

Program FORV1og;

Uses Crt;

Const XMIN=0; {Минимальное значение X}

XMAX=10; { Максимальное значение X }

AMIN=-2;

AMAX=4;

HX=2; {Шаг, может быть вещественным}

HA=2;

KX=(XMAX-XMIN)/HX+0.5;

KA=(AMAX-AMIN)/HA+1;

Var X,Y,I,A,J:Integer;

Begin

ClrScr;

FOR J:=1 to KA DO

begin

A:=AMIN+(J-1)*HA;

Writeln(‘A=’:6,A:2);

FOR I:=1 TO KX DO

Begin

X:=XMIN+(I-1)*HX;

Y:=A*Sqr(X);

Writeln(‘X=’:4,X:3,’ A=‘, A,‘ Y=’:5,Y:4);

X:=X+HX; {Изменение значения аргумента}

End; {FOR_I}

Writeln; {пропуск строки перед новыми вариантами счета}

End; {FOR_J}

Readln;

End. { FORV1og }

Тело цикла состоит из двух циклов: по I и по J. Цикл по I – это тело программы “OFOR”, которая обеспечивает расчет функции Y для выбранного значения А.

Цикл по J – внешний по отношению к циклу по I, он обеспечивает изменение переменной A в заданном диапазоне. При J=1 вначале произойдет расчет, а затем и распечатка значения А: ‘А=-2’. Третьим оператором в цикле FOR_J является цикл FOR_I, который в конечном итоге распечатывает все значения Y для заданных значений Х. Затем будет произведен пропуск строки, определяющий этот вариант зависимости от следующего варианта.

При J=2 цикл FOR_J обеспечивает расчет и распечатку второго варианта функции Y(X). Понятно, что при J=KA будет рассчитан и распечатан последний вариант функции Y(X) при А=4.

Дата добавления: 2015-07-08