Olimpiada masalalari 9 sinflar uchun
Download 24.07 Kb.
|
Olimpiada masalalari 9 sinflar uchun yechimlari bilan
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. 7k>A shart bajariladigan eng kichik manfiy bo’lmagan butun K sonni topish dasturini tuzing Дано число А>1. Создайте программу, находящую такое неотрицательное число К, при котором выполняется условие 7k>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. Download 24.07 Kb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling