Відправлено: 01.05.11 18:30. Заголовок: ДПА з інформатики

Пропоную розміщувати тут розв'язки завдань (відповіді) ДПА з інформатики.

Сподіваюсь, це стане комусь у пригоді.

 Відправлено: 23.05.11 00:13. Заголовок: большое вам пасиба)

спасиба вам огромное )

 Відправлено: 24.05.11 14:09. Заголовок: як можна подивитись ..

як можна подивитись розвязки до дпа???просто сьогодні зайшов на форум!!!!!скажіть буди-ласка!!!!!

 Відправлено: 25.05.11 08:41. Заголовок: А можно еще 16 вопро..

А можно еще 16 вопрос в 3 варианте???

 Відправлено: 26.05.11 03:36. Заголовок: Ви неуважно читали 1..

Ви неуважно читали 1 сторінку. Перегляньте її ще раз.

 Відправлено: 26.05.11 08:12. Заголовок: пажаласта памагите з..

пажаласта памагите з 7 белетал

 Відправлено: 26.05.11 22:24. Заголовок: Напишите ответы на т..

Напишите ответы на тесты....

 Відправлено: 21.06.11 11:14. Заголовок: дякую вам величезне..

дякую вам величезне

 Відправлено: 25.06.11 15:29. Заголовок: бонус 16 завдання в ..

бонус 16 завдання в візуал бейсік відповіді на деякі питання

5.Private Sub Command1Click()
Dim N As Integer
Dim F(N) As Integer
N = Val(Text1.Text)
if_ (N > 1) And (M < 32)
Then_F(1) = 1
F(2) = 1
For i = 3 To N
F(i) = F(i - 2) + F(i - 1)
Next
For i = 1 To N
Print F(i) & " "
Next
End If
End Sub

8. Private Sub Command1Click()
Dim a As Currency
Dim b As Currency
Dim c As Currency
Dim d As Currency
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
if_ (a = b) And (c = d) Or (a = c) And (b = d) Or (a = d) And (b = c)
Then_text5.Text = "ïàðàëåëîãðàì ³ñíóº"
Else_text5.Text = "ïàðàëåëîãðàì íå ³ñíóº"
End If
End Sub

9. Private Sub Command1Click()
Dim a As Currency
Dim b As Currency
Dim c As Currency
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
if_ (a ^ 2 = b ^ 2 + c ^ 2) Or (b ^ 2 = a ^ 2 + c ^ 2) Or (c ^ 2 = a ^ 2 + b ^ 2)
then_Text4.Text = "Òðèêóòíèê ³ñíóº"
Else: Text4.Text = "òðèêóòíèê íå ³ñíóº"
End If
End Sub

11. Private Sub Command1Click()
Dim v As String
v = Val(Text1.Text)
If v = "Н" Then Text2.Text = "Який?"
If v = "Р" Then Text2.Text = "Якого?"
If v = "Д" Then Text2.Text = "Якому?"
If v = "З" Then Text2.Text = "Якого?"
If v = "О" Then Text2.Text = "Яким?"
If v = "М" Then Text2.Text = "На якому?"
If v = "К" Then Text2.Text = "Який?"
End Sub

12. Private Sub Command1_Click()
так само тільки питання такі
хто?що?
кого?чого
кому?чому
кого?що
ким?чим
на кому?на чому
хто що
End Sub

13. Private Sub Command1_Click()
Dim Os As Byte
Os = Val(text1.Text)
If_ (Os = 1) Or (Os = 2) Or (Os = 3)
Then_text2.Text = "низькийий рівень"
If_ (Os = 4) Or (Os = 5) Or (Os = 6)
Then_text2.Text = "середній рівень"
If_ (Os = 7) Or (Os = 8) Or (Os = 9)
Then_text2.Text = "достатній рівень"
If_ (Os = 10) Or (Os = 11) Or (Os = 12)
Then_text2.Text = "Високий рівень"
End Sub

15. Private Sub Command1_Click()
Dim N As Byte
N = val_text1.Text
if_N = 1
then_text2.Text = "Зима:Січень,Лютий,Грудень"
if_N = 2
then_text2.Text = "Весна:березень,Квітень,травенЬ"
і так далі
End Sub

16. Private Sub Command1_Click()
Dim N As Byte
if_ (N = 1) Or (N = 2) Or (N = 3)
then_text2.Text = "1-квартал"
і так далі
End Sub

1. Private Sub Command1_Click()
Dim x As Single
Dim y As Single
Dim R As Single
Dim x1 As Single
Dim y1 As Single
x = Val(text1.Text)
і так далі, потім
if(x-x1)^2+(y-y1)^2<R^2
then text6.text=належить далы else text6text=не належить
End Sub

 Відправлено: 25.06.11 15:44. Заголовок: В1 в б в г а в авд б..

В1 в б в г а в авд бвд абвг абгд вг бгд а5 б2 в3 г1 д4 а2 б4 в1 г3 д5 а2 б4 в1 г5 д3
В5 в в а б в б вгб бвд абвд авгд бвд абв а5 б3 в1 г4 д2 а2 б1 в5 г3 д4 а5 б1 в2 г3 д4
В8 б а г г в г авгд абвг авгд ад абд абвг а1 б5 в4 г3 д2 а2 б4 в1 г3 д5 а4 б5 в1 г2 д3
В9 б а б а б г авг агд абвд бвг абг абвгд а4 б3 в1 г2 д5 а2 б1 в4 г5 д3 а2 б3 в1 г5 д4
В11 в а г а в в абгд бвгд абвг абвг бвг баг а5 б2 в3 г1 д4 а5 б1 в4 г2 д3 а1 б3 в2 г4 д5
В12 г а в б б б абвд абвгд абвгд бвг бвд бвд а5 б3 в4 г1 д2 а4 б1 в2 г3 д5 а2 б5 в1 г4 д3
В13 в б в б в г абвг абвгд авгд бд авд абг а5 б2 в3 г1 д4 а3 б1 в5 г2 д4 а2 б3 в5 г1 д4
В15 а а г а б а гд абвгд абвгд бв в абг а4 б1 в2 г5 д3 а3 б5 в1 г2 д4 а5 б3 в2 г1 д4
В16 г б г в а в ав гд бвгд агд авгд аг а4 б3 в5 г2 д1 а4 б3 в1 г5 д2 а2 б1 в3 г5 д4
В17 а б в б г б вг абвг вг абвд авд аг а2 б5 в4 г1 д3 а3 б1 в4 г5 д2 а2 б4 в5 г1 д3

 Відправлено: 02.11.11 21:32. Заголовок: тесты

inspector скоро будут решения на остальное???

 Відправлено: 19.03.12 02:23. Заголовок: ВНИМАНИЕ!!!

без обид конечно, но ответы здешние полная чушь!

 Відправлено: 28.03.12 13:16. Заголовок: пжл скажите

когда будут ответі за 2012 год?

 Відправлено: 05.05.12 20:44. Заголовок: Обман!

1 Вариант не правильно.
Думаю и все неправильно!
Тут обман!