Программа написанная на языке С++ обычно реализуется с помошью программы 1б a редактор B
- Bu səhifədəki naviqasiya:
- Создайте программу по вычислению площади круга и параметров (в VBA)
- Doirani yuzini va parametrini topish dasturini tuzing(VBA dasturida)
- Создайте программу по вычислению максимального и минимального значения 4 чисел A, B, C и D (в VBA)
- 4 ta A, B, C va D sonlarning maksimal va minimal qiymatlarini topish dasturini tuzing(VBA dasturida)
| 138. Что означает термин HTML
A) Hyper Text Markup Languager B) Язык гипер текста C) Показатели D) правельный ответ А и В 1 балл |
138. HTML термини нима деган маънони англатади? А)Hyper Text Markup Language В)Гиперматнлар маркировкасининг тили C)курсатмалар тили D)A ва B 1 балл | ||
|
| |||
|
139. Какой тег определяет титул документаб, (Заголовок файла) A) B) … C) … ... … ... цвет”> B) C) D) 2 балл |
155. Воdy тегининг кайси атрибути утилган ссылканинг рангини белгилайди? А) <body vlink= “ранг”> В) С) D) 2 балл |
| |
|
Задачи |
| ||
| Создайте программу “ Hello world ” на языке С++ Код программы #include void main() { cout<<"Hello world"; } 1 балл | С++ дастурида “Cалом Олам” дастурини тузинг? Дастур коди #include void main() { cout<<"Hello world"; } 1 балл |
| |
| Создайте программу “Квадратное уравнение” на языке С++ Код программы #include #include void main() { float a,b,c,d; cin>>a; cin>>b; cin>>c; if (a==0) { cout<<"не квадратное уравнение"<<-c/b; } else { d=b*b-4*a*c; if (d>0) { cout<<"x1="<<(-b+sqrt(d))/(2*a)<<"\t"; cout<<"x2="<<(-b-sqrt(d))/(2*a)<<"\t"; } if (d==0) { cout<<"x1="<<(-b/(2*a)); } else { cout<<"уравнение не имеет решения"; } } } 3 балл | С++ дастурида “Квадрат тенглама” дастурини тузинг? Дастур коди #include #include void main() { float a,b,c,d; cin>>a; cin>>b; cin>>c; if (a==0) { cout<<"Kvadrat tenglama emas"<<-c/b; } else { d=b*b-4*a*c; if (d>0) { cout<<"x1="<<(-b+sqrt(d))/(2*a)<<"\t"; cout<<"x2="<<(-b-sqrt(d))/(2*a)<<"\t"; } if (d==0) { cout<<"x1="<<(-b/(2*a)); } else { cout<<"Tenglama echimga ega emas"; } } } 3 балл |
| |
| Создайте программу “Сумма двух чисел” на языке С++ Код программы #include void main() { int a,b; cout<<"vvedite a="; cin>>a; cout<<"vvedite b="; cin>>b; cout<<"Summa="< 1 балл | С++ дастурида “Иккита сон йигиндиси” дастурини тузинг? Дастур коди #include void main() { int a,b; cout<<"vvedite a="; cin>>a; cout<<"vvedite b="; cin>>b; cout<<"Summa="< 1 балл
|
| |
| Создайте программу “Вычисление максимума двух чисел” на языке С++ Код программы #include void main() { int a,b; cout<<"vvod a="; cin>>a; cout<<"vvod b="; cin>>b; if (a>b){ cout<<"a>b";} else { cout<<"a 2 балл | С++ дастурида “Иккита соннинг махсимумини топиш” дастурини тузинг? Дастур коди #include void main() { int a,b; cout<<"vvod a="; cin>>a; cout<<"vvod b="; cin>>b; if (a>b){ cout<<"a>b";} else { cout<<"a 2 балл |
| |
| Создайте программу “Hello world” на VBA Ответ:
Private Sub Command1_Click() Text1.Text = ” Hello world!” End Sub Private Sub Command2_Click() End End Sub 1 балл | VBA dasturidan “Salom dunyo ” dasturini tuzing? Javobi: Dastur kodi Private Sub Command1_Click() Text1.Text = ”Salom dunyo!” End Sub Private Sub Command2_Click() End End Sub 1 балл |
| |
Создайте программу по вычислению площади круга и параметров (в VBA)?Ответ:
Option Explicit Private Sub Command1_Click() Const Pi As Single = 3.1415 Dim sngR As Single Dim sngD, sngAV, sngAO As Single Dim sngC1, sngC2 As Single Dim sngKV1, sngKV2 As Single Dim sngKO1, sngKO2 As Single sngR = Val(Text1.Text) ' Определение радиуса sngC1 = 2 * Pi * sngR ' Длина окружности sngC2 = Pi * sngR ^ 2 ' Площадь круга sngD = 2 * sngR ' Диаметр sngAV = sngD / Sqr(2) ' Сторона внутреннего квадрата sngKV1 = 4 * sngAV ' Периметр внутреннего квадрата sngKV2 = sngAV ^ 2 ' Площадь внутреннего квадрата sngAO = sngD * Sqr(2) ' Сторона внешнего квадрата sngKO1 = 4 * sngAO ' Периметр внешнего квадрата sngKO2 = sngAO ^ 2 ' Площадь внешнего квадрата Text2.Text = Str(sngC1) Text3.Text = Str(sngC2) Text4.Text = Str(sngKV1) Text5.Text = Str(sngKV2) Text6.Text = Str(sngKO1) Text7.Text = Str(sngKO2) End Sub Private Sub Command2_Click() End End Sub 3 балл | Doirani yuzini va parametrini topish dasturini tuzing(VBA dasturida)?Javobi:
Option Explicit Private Sub Command1_Click() Const Pi As Single = 3.1415 Dim sngR As Single Dim sngD, sngAV, sngAO As Single Dim sngC1, sngC2 As Single Dim sngKV1, sngKV2 As Single Dim sngKO1, sngKO2 As Single sngR = Val(Text1.Text) ' Radiusni aniqlash sngC1 = 2 * Pi * sngR ' Aylana uzunligi sngC2 = Pi * sngR ^ 2 ' Doira maydoni sngD = 2 * sngR ' Diametr sngAV = sngD / Sqr(2) ' Ichki chizilgan kvadratning tomoni sngKV1 = 4 * sngAV ' Ichki chizilgan kvadratning perimetri sngKV2 = sngAV ^ 2 ' Ichki chizilgan kvadratning maydoni sngAO = sngD * Sqr(2) ' Tashqi chizilgan kvadratning tomoni sngKO1 = 4 * sngAO ' Tashqi chizilgan kvadratning perimetri sngKO2 = sngAO ^ 2 ' Tashqi chizilgan kvadratning maydoni Text2.Text = Str(sngC1) Text3.Text = Str(sngC2) Text4.Text = Str(sngKV1) Text5.Text = Str(sngKV2) Text6.Text = Str(sngKO1) Text7.Text = Str(sngKO2) End Sub Private Sub Command2_Click() End End Sub 3 балл |
| |
Создайте программу по вычислению максимального и минимального значения 4 чисел A, B, C и D (в VBA)?Ответ:
Option Explicit Private Sub Command1_Click() Dim R, A, B, C As Single Dim X1, X2, X3, D As Single Dim S As String R = Text1.Text A = Text2.Text B = Text3.Text C = Text4.Text If (A < B) And (A < C) Then If B < C Then X1 = A X2 = B X3 = C Else X1 = A X2 = C X3 = B End If ElseIf (B < A) And (B < C) Then If A < C Then X1 = B X2 = A X3 = C Else X1 = B X2 = C X3 = A End If Else If A < B Then X1 = C X2 = A X3 = B Else X1 = C X2 = B X3 = A End If End If D = Sqr(X1 * X1 + X2 * X2) If D > 2 * R Then S = "" Else S = "" End If Label5.Caption = S End Sub Private Sub Command2_Click() End End Sub | 4 ta A, B, C va D sonlarning maksimal va minimal qiymatlarini topish dasturini tuzing(VBA dasturida)?Javobi:
Option Explicit Private Sub Command1_Click() Dim R, A, B, C As Single Dim X1, X2, X3, D As Single Dim S As String R = Text1.Text A = Text2.Text B = Text3.Text C = Text4.Text If (A < B) And (A < C) Then If B < C Then X1 = A X2 = B X3 = C Else X1 = A X2 = C X3 = B End If ElseIf (B < A) And (B < C) Then If A < C Then X1 = B X2 = A X3 = C Else X1 = B X2 = C X3 = A End If Else If A < B Then X1 = C X2 = A X3 = B Else X1 = C X2 = B X3 = A End If End If D = Sqr(X1 * X1 + X2 * X2) If D > 2 * R Then S = "" Else S = "" End If Label5.Caption = S End Sub Private Sub Command2_Click() End End Sub |
| |
Yüklə 0,71 Mb.
Dostları ilə paylaş:
