Роза ветров

uses crt,graph;
const
n=8;
napr:array[1..n] of string[2]=('N','NW','W','SW','S','SO','O','NO');//массив направлений
type
Roza=record //тип запись - роза
     skr:byte;//скорость
     npr:string[2];//направление
     end;
Point=record//тип запись - точка
      x,y:integer;//координаты
      end;
var sk:array[1..n] of Roza;//массив скоростей и напрвлений
    p:array[1..n+1] of Point;//иассив точек
    i,gd,gm,x0,y0,x,y,x1,y1,x2,y2,mx:integer;
    msh:real;//масштаб для перевода в экранные координаты
    st:string;//строка для преобразования числовых значений в строковые
begin
clrscr;
writeln('Vvedite skorosti po napravleniyam(0-100):');
for i:=1 to n do
 begin
  sk[i].npr:=napr[i];//направление из массива
  repeat
  write('sk[',i,']=');//скорость вводим
  readln(sk[i].skr);
  until sk[i].skr in [0..100];
 end;
clrscr;
mx:=sk[1].skr;//нахпдим макс. скорость для диаграммы
for i:=1 to n do
 begin
  write(sk[i].npr:4);
  if sk[i].skr>mx then mx:=sk[i].skr;
 end;
writeln;
for i:=1 to n do
write(sk[i].skr:4);//выводим на экран, посмотреть
writeln;
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');//переход в графический режим
x0:=getmaxX div 2;y0:=getmaxY div 2;
msh:=(y0-40)/mx;//масштаб
for i:=1 to n do//создаем массив точек на 1 больше
 begin
  p[i].x:=x0+round(sk[i].skr*cos((i+1)*pi*45/180)*msh);
  p[i].y:=y0-round(sk[i].skr*sin((i+1)*pi*45/180)*msh);
 end;
p[n+1].x:=p[1].x;p[n+1].y:=p[1].y;//последняя точка=первой для замыкания
moveto(p[1].x,p[1].y);//встаем в точку 1
setcolor(12);
for i:=1 to n+1 do
lineto(p[i].x,p[i].y);//соединяем все точки
for i:=1 to n do
 begin
  x:=x0+round(mx*cos((i+1)*pi*45/180)*msh);//координаты подписей направлений
  y:=y0-round(mx*sin((i+1)*pi*45/180)*msh);
  setcolor(14);
  line(x0,y0,x,y);//соединяем центр с направлением
  setcolor(11);
  x1:=x0+round((mx+1/msh)*cos((i+1)*pi*45/180)*msh);
  y1:=y0-round((mx+1/msh)*sin((i+1)*pi*45/180)*msh);
  if x<x0 then outtextXY(x1-10,y1,sk[i].npr)//выводим направления
  else outtextXY(x1,y1,sk[i].npr);
  setcolor(13);
  x1:=x0+round(sk[i].skr*cos((i+1)*pi*45/180)*msh);
  y1:=y0-round(sk[i].skr*sin((i+1)*pi*45/180)*msh);
  str(sk[i].skr,st);
  if x<x0 then outtextXY(x1+5,y1,st)//выводим значения
  else outtextXY(x1-10,y1,st);
 end;
readln
end.

program s1;
uses crt,graph;
Var gd,gm:integer; x,y:array [1..300] of integer;
begin
Gd:=detect;
Gm:=1;
initgraph(gd,gm,'c:/tp7/bin');
setcolor(2);
setlinestyle(0,2,1);
 
 
x[1]:=200;
x[2]:=200;
y[1]:=0;
y[2]:=400;
y[3]:=200;
y[4]:=200;
x[3]:=0;
x[4]:=400;
x[5]:=150;
y[5]:=150;
x[6]:=250;
y[6]:=y[5];
x[7]:=x[5];
x[8]:=x[6];
Y[7]:=250;
y[8]:=y[7];
x[9]:=200;
y[9]:=200;
setcolor(14);
 
 
line(x[1],y[1],x[9],y[9]);
line(x[2],y[2],x[9],y[9]);
line(x[3],y[3],x[9],y[9]);
line(x[4],y[4],x[9],y[9]);
line(x[5],y[5],x[9],y[9]);
line(x[6],y[6],x[9],y[9]);
line(x[7],y[7],x[9],y[9]);
line(x[8],y[8],x[9],y[9]);
line(x[1],y[1],x[5],y[5]);
line(x[1],y[1],x[6],y[6]);
line(x[1],y[1],x[9],y[9]);
line(x[1],y[1],x[6],y[6]);
line(x[1],y[1],x[2],y[2]);
line(x[3],y[3],x[5],y[5]);
line(x[3],y[3],x[7],y[7]);
line(x[2],y[2],x[8],y[8]);
line(x[2],y[2],x[7],y[7]);
line(x[4],y[4],x[6],y[6]);
line(x[4],y[4],x[8],y[8]);
line(x[1],y[1],x[6],y[6]);
line(x[1],y[1],x[2],y[2]);
 
 
 
floodfill(231,100,14);
floodfill(131,170,14);
floodfill(231,230,14);
floodfill(180,290,14);
 
readkey;
end.

uses crt,graphABC;
const
n=8;
napr:array[1..n] of string=('N','NW','W','SW','S','SO', 'O','NO');//ìàññèâ íàïðàâëåíèé
type
Roza=record //òèï çàïèñü - ðîçà
skr:byte;//ñêîðîñòü
npr:string;//íàïðàâëåíèå
end;
 
var sk:array[1..n] of Roza;//ìàññèâ ñêîðîñòåé è íàïðâëåíèé
 
i, h:integer;
 
 
begin
clrscr;
writeln('Vvedite skorosti po napravleniyam(0-50):');
for i:=1 to n do
begin
sk[i].npr:=napr[i];//íàïðàâëåíèå èç ìàññèâà
repeat
 
write('sk[',i,']=');//ñêîðîñòü ââîäèì
readln(sk[i].skr);
until sk[i].skr in [0..50];
 
end;
clrscr;
 
writeln;
for i:=1 to n do
write(sk[i].skr:4);//âûâîäèì íà ýêðàí, ïîñìîòðåòü
writeln;
write('Press Enter...');
readln;
h:=5;
line(320,250,320,250-h*sk[1].skr);
line(320,250,320,250+h*sk[2].skr);
line(320,250,320-h*sk[3].skr,250);
line(320,250,320+h*sk[4].skr,250);
end.

uses crt,graphABC;
const
n=8;
napr:array[1..n] of string=('N','NW','W','SW','S','SO','O','NO');//массив направлений
type
Roza=record //тип запись - роза
     skr:byte;//скорость
     npr:string;//направление
     end;
 
var sk:array[1..n] of Roza;//массив скоростей и напрвлений
 
    i, h:integer;
 
 
begin
 
writeln('Vvedite skorosti po napravleniyam(0-50):');
for i:=1 to n do
 begin
  sk[i].npr:=napr[i];//направление из массива
  repeat
 
  write('sk[',i,']=');//скорость вводим
  readln(sk[i].skr);
  until sk[i].skr in [0..50];
 
 end;
clrscr;
 
writeln;
for i:=1 to n do
write(sk[i].skr:4);//выводим на экран, посмотреть
writeln;
write('Press Enter...');
clrscr;
readln;
 h:=20;
     line(320,250,320,250-h*sk[1].skr);
     line(320,250,320,250+h*sk[2].skr);
     line(320,250,320-h*sk[3].skr,250);
     line(320,250,320+h*sk[4].skr,250);
     line(320,250,Round(320-h*sk[5].skr*sqrt(h/2)),Round(250-h*sk[5].skr*sqrt(h/2)));
     line(320,250,Round(320+h*sk[6].skr*sqrt(h/2)),Round(250-h*sk[6].skr*sqrt(h/2)));
     line(320,250,Round(320-h*sk[7].skr*sqrt(h/2)),Round(250+h*sk[7].skr*sqrt(h/2)));
     line(320,250,Round(320+h*sk[8].skr*sqrt(h/2)),Round(250+h*sk[8].skr*sqrt(h/2)));
 
end.