Program Grafik; uses GraphABC; Var i,x0,y0,x1,y1,k: integer; x,y: real; Begin setWindowSize(640,400); x0:=320; y0:=200; k:=30; line(x0,20,x0,380); line(20,y0,620,y0); line(x0,20,x0-10,30); line(x0,20,x0+10,30); line(630,y0,620,y0-10); line(630,y0,620,y0+10); for i:=-10 to 10 do begin line(x0+(i*k),y0-10,x0+(i*k),y0+10); textout(x0+(i*k),y0+10,inttostr(i)); end; for i:=-5 to 5 do begin line(x0-10,y0+(i*k),x0+10,y0+(i*k)); if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i)); end; setPenColor(clRed); x:=-10; While x<=10 do begin y:=1/(sqr(x)+1);; x1:=trunc(x0+x*k); y1:=trunc(y0-y*k); circle(x1,y1,2); x:=x+0.01; end; End.
2
Program Grafik; uses GraphABC; Var i,x0,y0,x1,y1,k: integer; x,y: real; Begin setWindowSize(640,400); x0:=320; y0:=200; k:=30; line(x0,20,x0,380); line(20,y0,620,y0); line(x0,20,x0-10,30); line(x0,20,x0+10,30); line(630,y0,620,y0-10); line(630,y0,620,y0+10); for i:=-10 to 10 do begin line(x0+(i*k),y0-10,x0+(i*k),y0+10); textout(x0+(i*k),y0+10,inttostr(i)); end; for i:=-5 to 5 do begin line(x0-10,y0+(i*k),x0+10,y0+(i*k)); if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i)); end; setPenColor(clRed); x:=-10; While x<=10 do begin y:=cos(sqr(X));; x1:=trunc(x0+x*k); y1:=trunc(y0-y*k); circle(x1,y1,2); x:=x+0.01; end; End.
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array[1..1000,1..1000] of integer; i,j,k,n,u:integer; begin; randomize; readln(n); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(-10,10); write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array of array of integer; i,j,k,n,u:integer; begin; randomize; readln(n); setlength(a,n+1); for i:=1 to n do setlength(a[i],n+1); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(-10,10); write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
Program Grafik;
uses GraphABC;
Var i,x0,y0,x1,y1,k: integer;
x,y: real;
Begin
setWindowSize(640,400);
x0:=320; y0:=200; k:=30;
line(x0,20,x0,380); line(20,y0,620,y0);
line(x0,20,x0-10,30); line(x0,20,x0+10,30);
line(630,y0,620,y0-10); line(630,y0,620,y0+10);
for i:=-10 to 10 do
begin
line(x0+(i*k),y0-10,x0+(i*k),y0+10);
textout(x0+(i*k),y0+10,inttostr(i));
end;
for i:=-5 to 5 do
begin
line(x0-10,y0+(i*k),x0+10,y0+(i*k));
if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
end;
setPenColor(clRed);
x:=-10;
While x<=10 do
begin
y:=1/(sqr(x)+1);;
x1:=trunc(x0+x*k); y1:=trunc(y0-y*k);
circle(x1,y1,2);
x:=x+0.01;
end;
End.
2
Program Grafik;
uses GraphABC;
Var i,x0,y0,x1,y1,k: integer;
x,y: real;
Begin
setWindowSize(640,400);
x0:=320; y0:=200; k:=30;
line(x0,20,x0,380); line(20,y0,620,y0);
line(x0,20,x0-10,30); line(x0,20,x0+10,30);
line(630,y0,620,y0-10); line(630,y0,620,y0+10);
for i:=-10 to 10 do
begin
line(x0+(i*k),y0-10,x0+(i*k),y0+10);
textout(x0+(i*k),y0+10,inttostr(i));
end;
for i:=-5 to 5 do
begin
line(x0-10,y0+(i*k),x0+10,y0+(i*k));
if i<>0 then textout(x0+10,y0+(i*k),inttostr(-i));
end;
setPenColor(clRed);
x:=-10;
While x<=10 do
begin
y:=cos(sqr(X));;
x1:=trunc(x0+x*k); y1:=trunc(y0-y*k);
circle(x1,y1,2);
x:=x+0.01;
end;
End.