[Deus lo vult]

http://www.newsru.com/crime/22apr2006/us.html



Отлично. Что дальше? Блин...И можно потом удивляться почему я стараюсь по возможности не рисковать?

Comments

[behinde the enemy line]

м-дааа......

серьёзно.

а армян-то за что? сами же их в своё время в краснодарских землях поселили и насчёт турок помогли. м-даа...

~Тундра~

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

[Deus lo vult]

Certus добрый ты, Серега, и товарищ настоящий.

Imperiosus

Я в этом вопросе пристрастен по определенным личным обстоятельствам, поэтому судить объективно не могу, сразу говою.

[Izeor]

Certus Жестока...

[Karinka8]

Private Sub Command1_Click()

m = InputBox("Введите минимальное значение ординаты")

l = InputBox("Введите максимальное значение ординаты")

c = InputBox("Введите минимальное значение аргумента")

d = InputBox("Введите максимальное значение аргумента")

e = InputBox("Введите коэффициент")



Picture1.Scale (m, d)-(l, c)



For I = a To b

Picture1.Line (I, d)-(I, c), vbMagenta

Next I



Picture1.Line (m, 0)-(l, 0), vbRed

For I = a To b

Picture1.PSet (I, 0)

Picture1.Print I

Next I



Picture1.Line (0, c)-(0, d), vbRed

For I = c To d

Picture1.PSet (0, I)

Picture1.Print I

Next I

End Sub







Private Sub Command2_Click()

Unload Form2

Load Form1

Form1.Show

End Sub

[Karinka8]

Блин. У меня все виснет, но код вроде верный... =(



Dim I As Integer, e, a, b, c, d, m, l As Single

Dim x, K As Double, n, o, v, r, t, q, s, y, j, u, aa, ab, ac, bb, bc, bd As Integer







Private Sub Command1_Click()

a = InputBox("Ââåäèòå ìèíèìàëüíîå çíà÷åíèå îðäèíàòû")

b = InputBox("Ââåäèòå ìàêñèìàëüíîå çíà÷åíèå îðäèíàòû")

c = InputBox("Ââåäèòå ìèíèìàëüíîå çíà÷åíèå àðãóìåíòà")

d = InputBox("Ââåäèòå ìàêñèìàëüíîå çíà÷åíèå àðãóìåíòà")

e = InputBox("Ââåäèòå êîýôôèöèåíò")



Picture1.Scale (a, d)-(b, c)



For I = a To b

Picture1.Line (I, d)-(I, c), vbMagenta

Next I



Picture1.Line (a, 0)-(b, 0), vbRed

For I = a To b

Picture1.PSet (I, 0)

Picture1.Print I

Next I



Picture1.Line (0, c)-(0, d), vbRed

For I = c To d

Picture1.PSet (0, I)

Picture1.Print I

Next I

End Sub

Private Sub Check1_Click()



If Check1.Value = 1 Then



l = InputBox("a")

m = InputBox("b")

n = InputBox("c")



For x = c To d Step K

Picture1.PSet (x, l * (x * x) + m * x + n)

Next x

End If



If Check2.Value = 0 Then

Picture1.Cls

End If



End Sub





Private Sub Check2_Click()

If Check2.Value = 1 Then



o = InputBox("k")

v = InputBox("b")



For x = c To d Step K

Picture1.PSet (x, (z * x) + v)

Next x

End If

If Check2.Value = 0 Then

Picture1.Cls

End If

End Sub



Private Sub Check3_Click()

If Check3.Value = 1 Then

r = InputBox("k")

t = InputBox("b")



For x = c To -K Step K

Picture1.PSet (x, (r / x) + t)

Next x

For x = K To d Step K

Picture1.PSet (x, (r / x) + t)

Next x

End If

If Check3.Value = 0 Then

Picture1.Cls

End If



End Sub



Private Sub Check4_Click()

If Check4.Value = 1 Then



q = InputBox("a")

s = InputBox("b")

y = InputBox("k")



For x = c To d Step K

Picture1.PSet (x, q * (Sin(w * x + y)))

Next x

End If

If Option4.Value = 0 Then

Picture1.Cls

End If





End Sub



Private Sub Check5_Click()

If Option5.Value = 1 Then



j = InputBox("a")

o = InputBox("b")

u = InputBox("k")



For x = c To d Step K

Picture1.PSet (x, p * Cos(o * x + u))

Next x

End If

If Check5.Value = 0 Then

Picture1.Cls

End If



End Sub



Private Sub Check6_Click()

If Check6.Value = 1 Then



aa = InputBox("a")

ab = InputBox("b")

ac = InputBox("k")



For x = c To d Step K

Picture1.PSet (x, v1 * (Sin(v2 * x + v3) / Cos(v2 * x + v3)))



Next x

End If

If Check6.Value = 0 Then

Picture1.Cls

End If



End Sub



Private Sub Check7_Click()

If Check7.Value = 1 Then



bb = InputBox("a")

bc = InputBox("b")

bd = InputBox("k")



For x = c To d Step K

Picture1.PSet (x, v1 * (Cos(v2 * x + v3) / Sin(v2 * x + v3)))



Next x

End If

If Check7.Value = 0 Then

Picture1.Cls

End If

End Sub

эээ.. Каринк??? О_о что это??

[Петрови4]

Похоже на программирование =))

я догадался... но зачем, интересно

[Deus lo vult]

Это мы проект по информатике делали, и мне каря кодировку скидывала)

Мне бы такую информатику, когда я в школе учился.. А то учитель мудак.. эксель все разучивал.. грр..