Черный А.А. Вычислительная техника при моделировании

Подождите немного. Документ загружается.

readln(I0);

if I0=70 then GB7000;

1: K0:=0; K3:=0; K4:=0; K4:=X;

K7:=0; K8:=0; X0:=0; Y0:=0;

writeln('Построение графика');

writeln('Зависимость KK6(K5) от фактора');

writeln('KK6(K5)-относительная величина показателя');

writeln('K5-номер величины фактора и показателя');

writeln('Величина фактора заданы');

writeln('Ввод X0-отступ вправо по оси X');

writeln('(Предпочтительно X=5)');

writeln('Y0-отступ вниз по оси Y');

writeln('(Предпочтительно Y0=180)');

writeln('K0-длина графика по оси X');

writeln('K3-высота графика по оси Y');

writeln('Было X0=',X0,' Y0=',Y0);

writeln('Было K0=',K0,' K3=',K3);

writeln('Введите X0 Y0 K0 K3');

readln(X0,Y0,K0,K3);

writeln('Ввод I0=75, то повторение

построения графика');

writeln('Ввод I0=85, то полное повторение построения графика');

writeln('Ввод I0=95, то выход из программы');

write('I0=');

readln(I0);

if I0=75 then goto 1;

until not(I0=85);

writeln(F0,'Построение графика');

writeln(F0,'Зависимость KK6(K5) от фактора');

writeln(F0,'KK6(K5)-относительная величина показателя');

writeln(F0,'K5-номер величины фактора и показателя');

writeln(F0,'Величина фактора задана');

writeln(F0,'Ввод X0-отступ вправо по оси X');

writeln(F0,'(Предпочтительно X=5)');

writeln(F0,'Y0-отступ вниз по оси Y');

writeln(F0,'(Предпочтительно Y0=180)');

writeln(F0,'K0-длина графика по

оси X');

writeln(F0,'K3-высота графика по оси Y');

writeln(F0,'X0=',X0,' Y0=',Y0);

writeln(F0,'K0=',K0,' K3=',K3);

writeln(F0,'где');

writeln(F0,'X0-отступ вправо по оси X');

writeln(F0,'Y0-отступ вниз по оси Y');

writeln(F0,'K0-длина графика по оси X');

writeln(F0,'K3-длина графика по оси Y');

end;{GB7000}

procedure tablF9;

begin

write(' Значения F7 для 5% уровня');

writeln('значимости');

write('┌───┬──────────────────────────────────');

writeln('───────────────────────┐');

write('│ │ F9 ');

writeln(' │');

write('│F8 ├────┬─────┬─────┬─────┬────┬─────┬');

writeln('─────┬─────┬─────┬─────┤');

write('│ │ 2 │ 3 │ 4 │ 8 │ 11

│ 14 │');

writeln('15-16│19-20│ 24 │26-30│');

write('├───┼────┼─────┼─────┼─────┼────┼─────┼');