10-синфлар учун олимпиада саволлари

Вопросы практических заданиях 9-классах
1.Составить программу, которая выводить квадратные корень заданного число N, если число положительное и кратная к 5, в противном случае квадрат числа.
2. Следующие числа расположить в порядке возрастания:
714₈=460 111110₂=62 160₁₀ 110₁₆=242
714₈> 110₁₆ > 160₁₀ >111110₂
3.Даны стороны треугольника а, б и угол αмежду ними. Составьте программу и блок схема для вычисления площадь треугольника (подсказка :
s=)
4. Добавьте к следующей программе такие процедуры, чтобы на экране весь текст отражался в зеленым цвете, а фон текста в желтом цвете.
Var a,b: String;m,s:real;
Begin
a:=”Kvadratning tomonini kiriting: ‘ ; b:=’Kvadratning yuzi: ‘ ;
write(a); readln(m); s:=sqr(m); write)b, s:8:2, ‘kvadrat birlik ‘);
readLn;
End.
5. Задан массив A[1..17]. Составьте программу, которая выводит индексы тех элементов, значения которых равны нулю.

Ответы практических заданиях 9-классах
Отвеt 1 Var
N:integer;
K:real;
Begin
Write(‘N ni kiriting:’);
ReadLn(N);
If (N>0) And (N mod 5=0) Then
K:=sqrt(N)
Else K:=sqr(N);
WriteLn(‘Javob:’,K:0:3);
ReadLn;
End.
Ответ 2: 714₈=460 111110₂=62 160₁₀ 110₁₆=242
714₈> 110₁₆ > 160₁₀ >111110₂
Ответ 3.
Program uchburchak_yuzi;
Var
a,b, alfa, s:Real;
Begin
Write(‘a=’); ReadLn(a);
Write(‘b=’); ReadLn(b);
Write(‘alfa burchak=’); ReadLn(alfa);
S:=a*b*sin(alfa)/2;
WriteLn(‘Uchburchak yuzi S=’, s, ‘kvadrat birlik’);
End.
4.
Var a,b: String;m,s:real;
Begin
TextColor(green); TextBackGround(yellow);
a:=”Kvadratning tomonini kiriting: ‘ ; b:=’Kvadratning yuzi: ‘ ;
write(a); readln(m); s:=sqr(m); write)b, s:8:2, ‘kvadrat birlik ‘);
readLn;
End.
5.
var
K:integer;
A: array[1..17] of real;
Begin
For k:=1to 17 do
Begin
Write(‘A[‘,k, ‘];
readLn(A[k]);
end;
For k:=1 to 17 do
If A[k]=0 then
WriteLn(‘A[‘,k, ‘]= ‘, A[k]:0:0);
Readln;
End.