Графика

Program vtvytyt;
uses crt,graph;
const
N=650;
M=500;
var
k:array [1..N] of integer;
v,gd,gm,i,j:integer;
begin
InitGraph(Gd,Gm,'C:\tp7\bgi');
for i:=1 to N do
for j:=1 to M do
begin
v:=(i+j) div (k[i]+1);
PutPixel(i,j,v);
end;
readln; end.

Program vtvytyt;
uses crt,graph;
const
N=650;
M=500;
var
k,v,gd,gm,i,j:integer;
c:char;
begin
InitGraph(Gd,Gm,'C:\tp7\bgi');
k:=0;
repeat
outtextXY(300,20,'Press any key...');
outtextXY(300,35,'Vyhod - Esc');
for i:=1 to getmaxX do
for j:=1 to getmaxY do
 begin
  v:=(i+j) mod (k+1);
  if v=k then PutPixel(i,j,v);
 end;
if keypressed then
 begin
  k:=k+1;
  cleardevice;
  c:=readkey;
 end;
until c=#27;
end.

uses crt,graph;
{$R-}
var f:text;
    n,i,a,b,gd,gm:integer;
    x,y:array[1..5000]of integer;
begin
clrscr;
randomize;
repeat
write('Kolichestvo tochek ot 10 do 5000 n=');
readln(n);
until(n>=10)and(n<=5000);
assign(f,'tochki.txt');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(640);
  b:=random(480);
  writeln(f,a,' ',b);
 end;
initgraph(gd,gm,'');
reset(f);
i:=0;
while not eof(f) do
 begin
  i:=i+1;
  read(f,x[i]);
  read(f,y[i]);
 end;
close(f);
for i:=1 to n do
if x[i]<=getmaxX div 2 then
putpixel(x[i],y[i],12);
readln
end.