в текстовом документе нарисовать элипс состоящий из звездочек *, по заданному радиусу.

[autopsist]

дано
кнопка создать
2 строки ввода: столбцы-радиус(кол-во *) и строки также
надо чтоб в текстовом документе рисовался элипс состоящий из *
и сохранялся там же

блин одному такую мудреную задачу дали всем гораздо проще(

[Sm1Le]

интересно как по заданному радиусу можна нарисовать Элипс ? ! =)) еще что то надо ... задача на самом деле не очень сложная просто на количество ПРОБЕЛОВ между символов .. =)) так что ... Может еще чтото дано ?

[autopsist]

неа
задаешться количество * по горизонтали и по вертикали все дальше должен рисоваться элипс

[autopsist]

Ну ктонибудь люди помогите а? мало времени осталось(

[mutabor]

Это называется не помогите, а сделайте за меня.
Стучи в асю.

[autopsist]

Асю сперли да и инет работает рывками...озерки блин
ну пусть называеца сделайте за меня но всеже прошу пожалуйста помогите

[autopsist]

Тут гдето ошибка изза чего выводит неточное число *

procedure TForm1.BitBtn2Click(Sender: TObject);
const x=100;
var
s:string;
f:textfile;
c,n,m,i,j:integer;
begin
c:=0;
val(edit1.text,n,c);
if c<>0 then
begin
edit1.text:='Ошибка ввода данных';
exit;
end;
c:=0;
val(edit2.text,m,c);
if c<>0 then
begin
edit2.text:='Ошибка ввода данных';
exit;
end;

if savedialog1.execute then
begin
s:=savedialog1.files[0];
assignfile(f,s);

rewrite(f);


for i:=1 to n do
begin
for j:=1 to m do
begin
if (j<i+1) and(j>n-i) then write(f,'*')
else write(f,' ');
end;
writeln(f,'');
end;



for i:=1 to n do
begin
for j:=1 to m do
begin
if (j>i+1) and(j<n-i) then write(f,'*')
else write(f,' ');
end;
writeln(f,'');
end;
closefile(f);

end;
end;