Теорема

[find a way]

Здравствуйте!

Вы не подскажете как доказать теорему Пифагора с помощью ножниц и бумаги?

Очен нужно

---

[[PRETTY]]

Никто не знает сайт где есть готовые решения на сборник задач по матетимаке для экзамена в 11 классе?

---

[just_Sergy]

Если кто разбирается в бейсике буду ОЧЕНЬ признателен:

задание

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

а вот то, что я "накумекал"

Sub test()
Dim stroka As String, itog As String, str As String, i As Integer, j As Integer, b As Integer, s As Integer, t As Integer, c As Integer
itog = ""
1 stroka = InputBox("введите строку"

For j = 1 To Len(stroka)
If Asc(Mid(stroka, j, 1)) < 32 Or Asc(Mid(stroka, j, 1)) > 32 And Asc(Mid(stroka, j, 1)) < 44 Or Asc(Mid(stroka, j, 1)) > 44 And Asc(Mid(stroka, j, 1)) < 65 Or Asc(Mid(stroka, j, 1)) > 90 And Asc(Mid(stroka, j, 1)) < 97 Or Asc(Mid(stroka, j, 1)) > 122 Then
s = s + 1
Else
s = s + 0
End If
Next j
If s > 0 Then
MsgBox "Вы ввели строку состоящих не только из латинских символов или разделителей типа: <space></space>,<.>, <,> - введите строку снова"
Exit Sub 'goto 1
Else

For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = " " Then
Mid(stroka, i, 1) = "@"
Else
If Mid(stroka, i, 1) = "," Then
Mid(stroka, i, 1) = "@"
Else
If Mid(stroka, i, 1) = "." Then
Mid(stroka, i, 1) = "@"
Else
End If
End If
End If
Next i
stroka = "@" & stroka & "@"

2 For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = "@" And Mid(stroka, i + 1, 1) = "@" Then
stroka = Mid(stroka, 1, i - 1) & Mid(stroka, i + 1, Len(stroka) - (i + 1) + 1)
GoTo 2
Else
End If
Next i
End If


c = 1
For i = 3 To Len(stroka)
If Mid(stroka, i, 1) = "@" Then
b = i
t = Abs(Asc(Mid(stroka, c + 1, 1)) - Asc(Mid(srtoka, b - 1, 1)))
If t = 0 Or t = 32 Then
str = Mid(stroka, c + 1, b - c - 1)
itog = itog & str & ","
c = b
Else
End If
Else
End If
Next i




MsgBox "" & itog
End Sub



Ошибка есть точно в этом месте, остальное проверено и работает:
c = 1
For i = 3 To Len(stroka)
If Mid(stroka, i, 1) = "@" Then
b = i 'номер первой собаки
t = Abs(Asc(Mid(stroka, c + 1, 1)) - Asc(Mid(srtoka, b - 1, 1)))
If t = 0 Or t = 32 Then
str = Mid(stroka, c + 1, b - c - 1)
itog = itog & str & ","
c = b
Else
End If
Else
End If
Next i

программа же идёт последовтельно даже в цикле, поэтому даже на втором шаге c будет равно b старому, хотя то уже изменится...
Мне кажется, что проблема в скорости подстройки переменных, если можно так назвать это...


Понмаю, что не в тему, поэтому прошу прощение.

@темы: Программирование (тема закрыта

---

[just_Sergy]

Я что-то в ступоре. Не работает программа в VBA и единсвенно возможную ошибку я вижу в слудующем:



даны 2 натуральных числа А и В, то количество натуральных чисел между ними будет же В-А-1 (при условии, что В больше А)?

Ведь так?





срок: до завтра =)

Заранее благодарю.

@темы: Теория чисел

---

[Dimich]

Подскажите пожалуйста как разложить в ряд Тейлора функцию y=cos(3*exp(x)-1)

@темы: Ряды

---

помогите

[MAX-TOR]

срочно нужно решение интеграла
инт от 0 до 1 по (dx делить на (x+3)(x+5))
заранее спасибо

@темы: Интегралы

---

[_mad.indigo]

Господа, кто может помочь с решением такой задачи?)

1. Найти с помощью двойного интеграла площадь области D, ограниченной такими линиями:
x^2 - 2x +y^2=0
x^2 - 6x +y^2=0
(3^(1/2))y=x
y=(3^(1/2))x

@темы: Интегралы

---

Буду оч признательна, если поможете))

[спи, моя радость, усни]

Алгебра. 9 класс. Экзаменационная работа.

Крайний срок 13 мая 2007 г. 23:00.

http://static.diary.ru/userdir/4/0/...37/19580979.jpg

---

[Вайна]

Буду оч признательна если кто-то подскажет где можно найти развернутое описание алгоритма поиска в глубину (ореентированные графы).Для курсовой. До понедельника.

@темы: Дискретная математика

---

Помогите пжста. Геометрия, 11 класс

[Ms.Leigh]

В правильной треуголной пирамиде MABC сторона основания равна 4 умножить на корень из 3, а боковое ребро -5. Найдите:

1) площадь боковой поверхности пирамиды

2) объем пирамиды

3) угол между ребром и плоскостью основания

4) скалярное произведение векторов одна вторая умножить на (MB + MC)EA, где E - середина BC (MB, MC, EA - вектора)

5) объем вписанного в пирамиду шара

6) угол между стороной основания и плоскостью боковой грани

@темы: Стереометрия

---

Геометрия, 11 класс

[tonks.]

Помогите пожалуйста..



В правильной четырехугольной пирамиде MABCD сторона основания равна 6, а боковое ребро-5. Найдите:

1) площадь боковой поверхности пирамиды

2) объем пирамиды

3) угол наклона боковой грани к плоскости основания

4) скалярное произведение векторов (AD+AB)AM

5) площадь описаной около пирамиды сферы

6) угол между BD и плоскостью DMC



нужно очень сильно.

@темы: Стереометрия

---

Помогите мне(((

[.lampo4ka]

Мне надо срочно оценки нужны по геометрии, а я ничего не знаю((

@темы: Стереометрия

---

Производная к исследованию функций

[maryber]

Здравствуйте!
Помогите пожалуйста решить задания:
1) записать число 625 в виде произведения двух положительных чисел так, чтобы сумма их вадратов была наименьшей.
2) из всех прямоугольников данного периметра найти тот, у которого диагональ наименьшая.
3) в круг радиуса а вписан равнобедненных треугольник. При каком соотношении сторон треугольник будет иметь наибольшую плодадь
Заранее благодарна!
Это задание нужно сдать в понедельник.

@темы: Задачи на экстремум, Производная

---

дифференциальные уравнения.

[Sejk]

если кто-то хорошо шурупит в матане и у него на ура идут дифференциальные уравнения..

если у этого золотого человека с непременно золотым сердцем есть время и желание решить 14 уравнений, и тем самым несколько облегчить жизнь Sejk'o.. пишите.. буду очень рада)



заранее благодарна)



качество конечно не очень, но вроде видно))

http://static.diary.ru/userdir/3/0/...93/19514135.jpg

http://static.diary.ru/userdir/3/0/...93/19514143.jpg

http://static.diary.ru/userdir/3/0/...93/19514151.jpg



*очень надеется*)) желательно до завтра)

@темы: Дифференциальные уравнения

---

линейка- 1 курс

[starworker]

пожалста, помогите...нет ни у кого такой задачи????

или чего-то похожего???

фото

расшифровка- между словами регион и автомобилями написано в службе администрации губернатора

@темы: Линейное программирование

---

С Днем Победы!

[Robot]

Вставай, страна огромная,

Вставай на смертный бой

С фашистской силой темною,

С проклятою ордой!



Пусть ярость благородная

Вскипает, как волна,—

Идет война народная,

Священная война!



Дадим отпор душителям

Всех пламенных идей,

Насильникам, грабителям,

Мучителям людей.



Не смеют крылья черные

Над Родиной летать,

Поля ее просторные

Не смеет враг топтать!



Гнилой фашистской нечисти

Загоним пулю в лоб,

Отребью человечества

Сколотим крепкий гроб.



Пусть ярость благородная

Вскипает, как волна,—

Идет война народная,

Священная война!

(Стихи В. ЛЕБЕДЕВА-КУМАЧА

Музыка А. АЛЕКСАНДРОВА )



Низкий поклон Вам, дорогие ветераны, за Ваш подвиг, равному которому нет во всей истории. Спасибо Вам за мир, свободный от фашизма, за мир, у которого есть будущее.

С ПРАЗДНИКОМ, дорогие друзья, от всех администраторов сообщества!



Википедия

Renaissance_Art

---

геом

[bul]

проверьте еще пожалуйста решения по геометрии:

1. а)СВ

б)d1d

в)че то не очень понял

20тоже как это объяснить

@темы: Стереометрия

---

проверьте решение

[bul]

Пожалуйста проверьте анализ грфика функции:1/(x^2+1)

1.D(y)=(от минус бесконечности ; -2),(-2;2),(2;плюс бесконечности)вертикальных ассимптот нет горизонтальная =1

2.f(-x)=четная

3.х=0 у=1 (0;1)

у=0 1/(x^2+1)=0

х=+-1

4.f>0 (от - бесконечности до нуля),(0;+бесконечности)

f<0 нет

до завтра

@темы: Исследование функций

---

[Almazik]

и еще какие-то темы по геометрии







Примечание  Robot:Отдам ребенка в добрые руки). Остались задачи 12-16, 18-21

@темы: Планиметрия

---

[Крылатая]

В урне находится 6 красных, 7 белых и 3 черных шара. Случайным образом извлекают по одному шару без возврата назад. Найти вероятность того, что первым появится черный шар – событие A, вторым появится белый шар – событие B, и третьим появится синий шар – событии C.





Никак не могу понять, как высчитывать вероятность для всех сразу. Для каждых в отдельности понимаю, а вместе...

Если кто знает, объясните пожалуйста.

@темы: Теория вероятностей