паскаль в exel'е

[Sha[D]oW]

написал 3 задачи в паскале,но теперь задание сделать их в exel,никак не могу сделать их,уже долгое время пытался,если тут нельзя создавать такие темы-прошу прощения,не знал,собственно вот задачи,может кто сможет помочь?

const pi=3.1415926;
var a,c,alpha,cosinus:real;

begin;
write('введите катет ');readln(a);
write('введите гипотенузу ');readln(c);
if (a > 0) and (c > 0) and (a < c) then
begin

   cosinus:=a/c;
  alpha:=arctan(sqrt(1-sqr(cosinus))/cosinus)*180/pi;
  writeln('углы треугольника: ',alpha:3:3,', ',90-alpha:3:3);
end
else
 Writeln('введите катет и гипотенузу больше нуля, катет меньше гипотенузы');
end.

var x:real;
x1,i:integer;
flag:boolean;
begin
write('vvedite x: ');
readln(x);
x1:=trunc(1000*x-trunc(x)*1000);
flag:=false;
for i:=1 to 3 do begin
if x1 mod 10=0 then
flag:=true;
x1:=x1 div 10;
end;
writeln(flag);

end.

var x1,x2:real;

begin
write('vvedite x1: ');readln(x1);
write('vvedite x2: ');readln(x2);
writeln('p=',-(x1+x2):3:3,', q=',x1*x2:3:3);
end.

[Sciv]

В эксель - это чисто в экселе или во встроенном в него VBA?

[rubius2008]

Пишите, в асю обговорим

[Sha[D]oW]

в задании написано "реализовать в exel"

[gaw4]

Private Sub CommandButton1_Click()
 pi = 4 * Atn(1)
Dim a#, c#, alpha#, cosinus#
a = Val(InputBox("введите катет ", , 3))
c = Val(InputBox("введите гипотенузу ", , 5))
If (a > 0) And (c > 0) And (a < c) Then
   cosinus = a / c
  alpha = Atn((Sqr(1 - cosinus ^ 2)) / cosinus) * 180 / pi
  MsgBox "углы треугольника: " & vbNewLine & "90" & vbNewLine & Round(alpha, 3) & vbNewLine & Round(90 - alpha, 3), vbInformation
Else
 MsgBox "введите катет и гипотенузу больше нуля, катет меньше гипотенузы", vbExclamation
End If
End Sub

[DiemonStar]

Private Sub CommandButton1_Click()

стоит сказать, что для выполнения данной процедуры необходима как-минимум кнопка)

[gaw4]

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

стоит сказать, что для выполнения данной процедуры необходима как-минимум кнопка)

расположите код в модуле и назначайте макрос

[Sha[D]oW]

вы поможете?)

[Serge_Bliznykov]

вы поможете?)

Ну чем же Вам помочь то?!
у Вас нет никаких лекций, методички?
Так погуглите, как добавить кнопку и назначить ей код в MS Excel.
Поверьте, что это очень просто!

p.s. не увидел, а где Вы спасибо gaw4 сказали?! ;(



p.p.s. в конце концов, на крайний случай, Вы макросы записывать/редактировать/вызывать умеете?
Так нажмите "записать макрос", "Остановить запись макроса",
перейдите в редактор, откройте этот Макрос в вставьте в него данный Вам код...

[Sha[D]oW]

сказал ему спасибо в л/с,мне ненадо макросов...да гуглил..ничего подходящего не нашел,методичек нет,а в лекциях мало что есть,там только самые основы,которых не хватает