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:
Dastur kodi
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:
Dastur kodi
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
|
|
