Просмотр сообщений
Страниц: [1]
1  Задачи и головоломки / Помогите решить! / Re: Геометрия.Решите пожалуйста. : Ноябрь 29, 2011, 14:35:32


Из прямоугольного (т.к. BH - высота) треугольника HBD:

tg(45°) = HD/BH

HD = BH*tg(45°)

HD = 8*1=8 (см)

HD = MN = 8 см (так как SN = OD/2,  как ср. линия, => OD = 2*SN. А  SN = MP, так как DCO = ABH => OD = SN + MP. Поскольку PS= HO, то HO + OD = MP + PS + SN, то есть HD = MN = 8 см

Можно иначе:

Если AH = x, то AD = 8 + x, а BC = 8 - x (поскольку AH = AD,  так как ABH = DCO за первым признаком)

Отсюда, средняя линия трапеции будет равняться полусумме ее оснований:

(8 - x + 8 + x) / 2 =16/2 = 8 (см)
2  Задачи и головоломки / Помогите решить! / Re: Очень сильно прошу помочь... : Ноябрь 26, 2011, 13:50:30
Более подробное решение последней задачи можно посмотреть здесь:

//текст доступен после регистрации//

Это отношение всех благоприятных исходов к всевозможным.

Если какие то формулы забыла, то погугли, все можно найти в инете, на той же википидеи много чего есть.

При желании можно найти решение похожих примеров и уже по аналогии решить свои. Удачи.
3  Задачи и головоломки / Помогите решить! / Re: Азы паскаля : Ноябрь 25, 2011, 20:33:24
На Паскале решение данной задачи будет выглядеть примерно так:

Код:
Program sort;
var
 i, j, k: Integer;
 c, d, s: string;
 a, b, m: char;
Begin
Writeln('Введите число');
Readln(s);
Writeln('Введенное число: ', s);

k:=0;   // счетчик нулей наименьшего числа

 for i:=1 to (Length(s)-1) do        // сортировка по убыванию для нахождения максимального числа
   for j:=i+1 to Length(s) do

     if s[j]>s[i] then
     begin
       b:=s[i]; s[i]:=s[j]; s[j]:=b;
       c:=s;
     end;

  for i:=1 to (Length(s)-1) do     // сортировка по возрастанию для нахождения минимального числа
   for j:=i+1 to Length(s) do

     if s[j]<s[i] then
     begin
       a:=s[i]; s[i]:=s[j]; s[j]:=a;
       d:=s;
     end;

     for i:=1 to Length(d) do
       if d[i] = '0' then k:=k+1;   // подсчет кол-ва нулей в уже отсортированной строке (наименьшее число)
     begin
       m:=d[1];
       d[1]:=d[k+1];                 // обмен первого символа исходной строки с тем, который идет после нулей вначале
       d[k+1]:=m;
     end;

Writeln('Наибольшее число: ', c);
Writeln('Наименьшее число: ', d);
end.
Страниц: [1]