Olimpiada masalalari 9 sinflar uchun

Olimpiada masalalari 9 sinflar uchun
1. Ekranning yashil fonida qizil rangli ichi bo’yalgan muntazam oltiburchak chizuvchi dastur tuzing
На зеленом фоне экрана создайте программу, рисующую равносторонний шестиугольник, закрашенный красным цветом
Program Olimpiada1;
Uses Crt, Graph;
Var
maxX, maxY, gd, gm, x, y, i, r: integer;
a: array[1..6, 1..2] of integer;
Begin
clrscr;
writeln('radius - ?');
readln(r);
gd:=0;
initgraph(gd, gm, '');
setcolor(red);
setfillstyle(1, red);
setbkcolor(green);
cleardevice;
maxX:=GetmaxX div 2;
maxY:=getMaxY div 2;
for i:=1 to 6 do
begin
a[i, 1] := Round(r * cos(PI / 3 * i) + maxX);
a[i, 2] := Round(r * sin(PI / 3 * i) + maxY);
end;
fillpoly(6, a);
readln;
closegraph;
End.
2. Ikki sonning eng katta umumiy bo’luvchisini (EKUB) topuvchi dastur tuzing
Создайте программу, которая находит наибольший общий делитель (НОД) двух чисел
Program EKUB;
Uses Crt;
Var
a, b, min, i: Integer;
Begin
clrscr;
writeln('ikkita son kiriting');
readln(a, b);
if a < b then
min := a
else
min := b;
for i := min downto 1 do
if (a mod i = 0) and (b mod i = 0) then
begin
writeln('EKUB=', i);
readln;
break;
end;
End.
3. 1 dan katta A son berilgan. 7^k>A shart bajariladigan eng kichik manfiy bo’lmagan butun K sonni topish dasturini tuzing
Дано число А>1. Создайте программу, находящую такое неотрицательное число К, при котором выполняется условие 7^k>A.
Program Olymp3;
Uses Crt;
Var
n, a, k: cardinal;
Begin
clrscr;
writeln('A - ?');
readln(a);
k:=1;
n:=7;
while(n < A) do
begin
n := n * 7;
inc(k);
end;
writeln('K=', k);
readln
End.
4. Quyidagi ifoda hisoblash dasturini tuzing
Создайте программу, вычисляющую значение выражения

Program Olimpiada4;
Uses Crt;
Var
mahraj, k, n: cardinal;
s: double;
function faktorial(x: cardinal):cardinal;
var
i, t: cardinal;
begin
t:=1;
for i:=1 to x do
t := t * i;
faktorial:=t;
end;
Begin
clrscr;
writeln('n - ?');
readln(n);
s:=0;
mahraj:=1;
for k:=1 to n do
begin
mahraj:=faktorial(2 * k);
s:=s+(k+1)/mahraj;
end;
writeln('s=', s:0:4);
readln
End.
5. N natural son berilgan. Shu sonning tub yoki tub emasligini aniqlovchi dastur tuzing.
Дано натуральное число N. Определить, простое оно или нет.
Program Olimpiada5;
Uses Crt;
Var
n, i: cardinal;
begin
clrscr;
writeln('n - ?');
readln(n);
for i:=2 to Round(sqrt(n)) do
if n mod i = 0 then
begin
writeln('murakkab son');
readln;
exit;
end;
writeln('tub son');
readln
End.