Вопрос по ЭВМ Паскаль
Вопрос по ЭВМ Паскаль.
Program tabulacia;
uses crt;
const
dx=7; dmx=4; x1=-2.7; x2=2.3;
dy=7; dmy=4; ogp=1;
h=0.025;
cols=2;
lines=25;
var x, p, y: real;
i,j,k : integer;
procedure line(dx,dy :integer);
{«ЁЁп Ї®¤зҐаЄЁў Ёп}
var i : integer;
begin
write('!');
for i:=1 to dx+6 do
write('-');
write('!');
for i:=1 to dy+6 do
write('-');
write('!');
end;
begin
x:=0;
y:=0;
p:=0;
repeat
clrscr;
writeln('‚ўҐ¤ЁвҐ § 票Ґ Ї а ¬Ґва , ¬®¤г «м Є®в®а®Ј® Ў®«миҐ ', ogp );
readln(p);
until (abs(p)>ogp);
k:=1;
x:=x1;
while ((x>=x1) and (x< =x2)) do
begin
clrscr;
writeln('‘ва Ёж ',k);
readln;
readln;
for j:=1 to cols do
line(dx,dy);
writeln;
writeln ('! ЂаЈг¬Ґв ! ”гЄжЁп !! ЂаЈг¬Ґв ! ”гЄжЁп !');
for j:=1 to cols do
line(dx,dy);
writeln;
i:=1;
while (i< =lines) do
begin
j:=1;
while (j< =cols) do
begin
if exp(7*ln(x))< =exp(1/p) then y:=ln((pi+sqr(x)*sqr(p))/(arctan(sqr(p))))/ln(10) else y:=exp((1/3)*ln(x*2+abs(p)));
write('! ', x:dx:dmx,' ! ',y:dy:dmy,' !');
j:=j+1;
x:=x+h;
end;
writeln;
for j:=1 to cols do
line(dx,dy);
writeln;
i:=i+1;
end;
writeln('ENTER');
readln;
k:=k+1;
end;
readln;
end.
Работаю на Паскале.
Должно выводить таблицу аргументов и функции, а он просто очищает экран.
-
Нечто жуткое. Проще написать сначала. Где условие?