Форум » Уроки інформатики » ДПА з інформатики » Ответить
ДПА з інформатики
inspector: Пропоную розміщувати тут розв'язки завдань (відповіді) ДПА з інформатики. Сподіваюсь, це стане комусь у пригоді.
Богдан: спасиба вам огромное )
bodik777: як можна подивитись розвязки до дпа???просто сьогодні зайшов на форум!!!!!скажіть буди-ласка!!!!!
Lucifer: А можно еще 16 вопрос в 3 варианте???
Boss: Ви неуважно читали 1 сторінку. Перегляньте її ще раз.
ваня: пажаласта памагите з 7 белетал
юля: Напишите ответы на тесты....
Ігор: дякую вам величезне
Ігор: бонус 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
Ігор: В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
влад: inspector скоро будут решения на остальное???
вчитель: без обид конечно, но ответы здешние полная чушь!
катя: когда будут ответі за 2012 год?
А тебе скажи!: 1 Вариант не правильно. Думаю и все неправильно! Тут обман!
полная версия страницы