Заполнить массив в виде окружности

[BooR]

Заполнить массив в виде окружности причём радиус клавиатуры вводится с клавы!!! очень срочно!!!!

[BooR]

массив двумерный и заполнить его нужно нулями

[vovken1997]

Используйте матрицу,то есть массив с вашим разрешением экрана 640 на 480 стандарт. Создание цикл в котором перебираете углы в радианах. Ну и осталось применить косинус и синус для вашего угла и занести полученные координаты в матрицу. Точно не помню, но помоему
x:=cos(angle)+radius;
y:=sin(angle)+radius;
angle- угол который вы перебираете в массивный
radius- радиус круга

[Пепел Феникса]

радиус клавиатуры

ппц, я плакалЪ..

[BooR]

Сообщение от vovken1997

Используйте матрицу,то есть массив с вашим разрешением экрана 640 на 480 стандарт. Создание цикл в котором перебираете углы в радианах. Ну и осталось применить косинус и синус для вашего угла и занести полученные координаты в матрицу. Точно не помню, но помоему
x:=cos(angle)+radius;
y:=sin(angle)+radius;
angle- угол который вы перебираете в массивный
radius- радиус круга

можешь пообную задачу найти а то так не очень понятно

[spein]

uses crt;
var
a:array[1..9, 1..9] of integer;
radius,x,y,i,k:integer;
l:real;
begin
randomize;
for i:=1 to 9 do
 for k:=1 to 9 do
  a[i,k]:=random(100);
write('Radius=');
readln(radius);
while l<=6.28 do begin
l:=l+0.01;
x:=round(cos(l)*radius) +5; {5 - это центр матрицы, то есть выравниваем центр круга относительно центру матрицы}
y:=round(sin(l)*radius) +5;
a[x,y]:=0;
end;
for i:=1 to 9 do begin
 for k:=1 to 9 do
  write(a[i,k], ' ');
   writeln;
 end;
readln;
end.

[BooR]

ещё такой вопрос откуда берутся цифры while l<=6.28 do begin и l:=l+0.01;

[spein]

6.28 это Pi * 2 (3.14 * 2 = 6.28). От шага(0.01) зависит точность. Можно взять и 0.1

[BooR]

спасибо огромное очень выручил

[spein]

Пожалуйста. Задание ведь не сложное.