Нужно дополнить програму (Турбо Паскаль)

[Sinner1994]

Нужно дополнить програму там допустим фон поменять, что б площадь находило треугольник картинка была и так далее..... Ну или на ваше усмотрение просто мне нужно что б она больше была)))


uses
crt;

const
pi = 3.14;

var
x, y, z, al, alr, be, ber, a, b, c: real;

begin
writeln('Input angle and length of the bisector:');
readln(al, x);
alr := al * pi / 180;
be := 90 - al;
ber := be * pi / 180;
a := x / sin(alr);
b := x / sin(ber);
c := sqrt(a * a + b * b);
y := a / cos(alr / 2);
z := b / cos(ber / 2);
writeln('Angles: ', al:0:2, ' 90.00 ', be:0:2);
writeln('Sides: ', a:0:2, ' ', b:0:2, ' ', c:0:2);
writeln('Bisectors: ', x:0:2, ' ', y:0:2, ' ', z:0:2);
readln;
end.

[denisbrain]

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

Нужно дополнить програму там допустим фон поменять, что б площадь находило треугольник картинка была и так далее..... Ну или на ваше усмотрение просто мне нужно что б она больше была)))


uses
crt;

const
pi = 3.14;

var
x, y, z, al, alr, be, ber, a, b, c: real;

begin
writeln('Input angle and length of the bisector:');
readln(al, x);
alr := al * pi / 180;
be := 90 - al;
ber := be * pi / 180;
a := x / sin(alr);
b := x / sin(ber);
c := sqrt(a * a + b * b);
y := a / cos(alr / 2);
z := b / cos(ber / 2);
writeln('Angles: ', al:0:2, ' 90.00 ', be:0:2);
writeln('Sides: ', a:0:2, ' ', b:0:2, ' ', c:0:2);
writeln('Bisectors: ', x:0:2, ' ', y:0:2, ' ', z:0:2);
readln;
end.

Добавь возможность работы с меню

uses crt;



Var count_k:integer;
Var
  Menu: array[1..100] of string[50];



procedure Show_Menu(SelectElement:byte);
var i: byte;
begin
   for i:=1 to count_k do
   begin
      textcolor (white);
      Window (25,i*2,70,i*2+2);  { Рисуем окна с разными координатами (кнопки)}
      if (i = SelectElement) then
      TextBackground (red)
      else
      TextBackground (blue);
      write (menu[i]);
   end;
   TextBackground (blue);
   window (2,2*(count_k+1),79,24);
   clrscr;
   textbackground (black);
   textcolor (white);

end;
procedure pouse_clik;
begin
   repeat
    until readkey=#0;
end;


Procedure AddMenu(Name:string);
begin
   count_k:=count_k+1;
   Menu[count_k-1]:=name;
end;

// действия
Procedure Click1;
begin
                   TextBackground (blue);
                   window (2,2*(count_k+1),79,24);
                   clrscr;
                   textcolor (white);
                   Writeln('Выбрано действие Click1');
                   pouse_clik;
end;
Procedure Click2;
begin
                   TextBackground (blue);
                   window (2,2*(count_k+1),79,24);
                   clrscr;
                   textcolor (white);
                   Writeln('Выбрано действие Click2');
                   pouse_clik;
end;

Procedure Click3;
begin
                   TextBackground (blue);
                   window (2,2*(count_k+1),79,24);
                   clrscr;
                   textcolor (white);
                   Writeln('Выбрано действие Click3');
                   pouse_clik;
end;

Procedure ExitClik;
begin
    halt;
end;

// список кнопок объявляется тут
Procedure ExecuteClick(val:byte);
begin
  case val of
  1:begin Click1; end;
  2:begin Click2; end;
  3:begin Click2; end;
  4:begin Click2; end;
  5:begin ExitClik; end; // если  пункт то выполянем ExitClik;

  else
  end;
end;


// функция для работы процедуры
procedure MenuWork;
var SelectElement:byte;
ch:char;
Begin
 clrscr;
 SelectElement:=1;
 repeat
    { Рисуем основное окно}
   window (1,1,2*(count_k+1),26);
   TextBackground (yellow);
   Show_menu(SelectElement); { Вызываем процедуру меню с параметрами}
   ch:=readkey;
   if ch = #0 then
   ch:=readkey;
   case ch of
  #27:halt;
      #80: { Стрелка верх}
      begin
       if SelectElement<count_k then { проверяем, если меньше 3, то вызываем процедуру меню с увеличенным на единицу параметром}
        inc(SelectElement)
        else SelectElement:=1;
        Show_Menu(SelectElement);
      end;

      #72: { Кнопка вниз}
      Begin
       if SelectElement>1 then       { Аналогично}
        dec(SelectElement)
        else SelectElement:=count_k;
        Show_Menu(SelectElement);
      end;
      #13:{ Нажатие кнопи Ентер}
      begin
             ExecuteClick(SelectElement);

      end
      else

      end;

 until false;
end;



begin
count_k:=1;

    AddMenu('1. Click1');
    AddMenu('2. Click2');
    AddMenu('3. Click3');
    AddMenu('4. Click4');
    AddMenu('5. Выход');
    MenuWork; // заставляем меню работать
  
end.

[Sinner1994]

А можете както собрать а то я не умею )
Вам то наверно это в 2 минуты работы)
Мне нужно что б она была хотя бы на 40% больше )

[Sinner1994]

ПОмогите пожалуйсто мне её в понедельник здавать уже