Народ, , нужно написать програмку в эксель vba 2. написать программу распознающую по длинам сторон среди всех видов треугольников прямоугольные. 3. даны два целых числа d (день) и м (месяц), определяющие правильную дату невисокосного года. вывести значения d и м, для даты следующей за указанной.

Во вложении - рабочая книга MS Excel 2003 с двумя листами. На каждом - по задаче. Коды находятся в соответствующих листах.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный

1) Обе клавиши служат для удаления символов, но клавиша Delete удаляет символ, находяшийся справа от текстового курсора, а клавиша BackSpace - слева.
2) Клавиши управления курсором служать для перемещения по тексту в одном из четырех направлений, но при этом клавиши прокрутки не позволяют перемещаться по тексту вправо и влево. Клавиши со "стрелками" осуществляют перемещение в любом из направлений на одну позицию (символ или строку), а клавиши прокрутки - или на фиксированное число строк (PgUp, PgDn), или к началу текста (Home), или к его концу (End).
3) И режим вставки, и режим замены - оба служат для редактирования текста. Но в режиме вставки очередной вводимый символ добавляется в позицию, указанную текстовым курсором, а в режиме замены вводимые символы заменяют уже имеющиеся и находящиеся справа от курсора.

Примечание. В задании не указано, о каком редакторе идет речь, поэтому ответ написан для общего случая с учетом общеупотребительного применения клавиш и режимов. В конкретном текстовом редакторе могут быть свои особенности, например, клавиша Home в одних редакторах только переводит курсов в первую строку, в других - еще и помещает его перед первым символом текста, а вот в редакторе, где сейчас набирается данный текст, клавиша Home помещает курсор перед первым символом текущей строки.