Крок34:Збільшуємо в циклі перемінну l на 2: l:= l+2.

Крок34:Збільшуємо в циклі перемінну l на 2: l:= l+2.

Крок35 – крок42:практично повторює послідовність кроків 27-30 з певними змінами щодо перемінної l та області виведення графіків:

35-38:l:=205; l<=306; ROUND(160+10*X),ROUND(360-10*Y);

39-42:l:=307; l<=408; ROUND(480+10*X),ROUND(360-10*Y).

Крок43:Після виведення на екран всіх чотирьох графіків програма чекає на натискання будь-якої клавіші.

Крок44:Закриття файлу процедурою close(f).

Крок45:Кінець програми.

Підпрограма POCHATOK:Виводить на екран заставку.

Підпрограма COORDMAS:

Крок1:повторювати наступні операції, доки с<>’’;

Крок2:перемінній с присвоюється значення READKEY.

Крок3:оператор вибору case c of:

Крок3.1: ’a’:

Крок3.1.1: перемінній l присвоюємо 1;

Крок3.1.2: строковій перемінній s присвоюємо s:='y:=0.5*x*x-3';

Крок3.1.3: доки l<=102: X:=0.1*(L-51);

Y:=0.5*x*x-3;

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2;.

Крок3.2:’b’:

Крок3.2.1: перемінній l присвоюємо 1;

Крок3.2.2: строковій перемінній s присвоюємо

s:='y:=x*(x*x-4)';

Крок3.2.3: доки l<=102: X:=0.05*(L-51);

Y:=x*(x*x-4);

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Крок3.3:’с’:

Крок3.3.1: перемінній l присвоюємо 1;

Крок3.3.2: строковій перемінній s присвоюємо

s:='y:=2*cos(x-1)+abs(x)';

Крок3.3.3: доки l<=102: X:=0.1*(L-51);

Y:= 2*cos(x- 1)+abs(x);

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Крок3.4: ’d’:

Крок3.4.1: перемінній l присвоюємо 1;

Крок3.4.2: строковій перемінній s присвоюємо

s:= 'y:=0.5*x-5';

Крок3.4.3: доки l<=102: X:=0.1*(L-51);

Y:= 0.5*x-5;

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Крок3.5: ’е’:

Крок3.5.1: перемінній l присвоюємо 1;

Крок3.5.2: строковій перемінній s присвоюємо

s:= ‘y:=2*sin(x)’;

Крок3.5.3: доки l<=102: X:=0.1*(L-51);

Y:= 2*sin(x);

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Крок3.6: ’f’:

Крок3.6.1: перемінній l присвоюємо 1;

Крок3.6.2: строковій перемінній s присвоюємо

s:= 'y:=(3*x+3)/(0.2*x-3)';

Крок3.6.3: доки l<=102: X:=0.1*(L-51);

Y:=(3*x+3)/(0.2*x-3);

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Крок4:якщо (c<>'a') і (c<>'b') і (c<>'c') і (c<>'d') і (c<>'e') (c<>'f'), тоді:

Крок4.1: перемінній l присвоюємо 1;

Крок4.2: строковій перемінній s присвоюємо

s:= 'Error: INVALID USER';

Крок4.3: доки l<=102: X:=0.1*(L-51); Y:= х;

елементу масиву присвоюємо w[L]:=X; w[L+1]:=Y; l:=l+2.

Підпрограма MENU1(var z: string; color, znak: byte):

⇐ Предыдущая 2 3 4 5 678 9 10 11 Следующая ⇒