Презентація на тему:
Відомості про випадкові числа

Випадкові числа НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Випадкові числа Randomize Підготовка до використання випадкових чисел Random(n) Випадкове число від 0 до n-1 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Як записати? [-5, 5] Якби ми брали випадкове число від 0, то який потрібен діапазон? 11 Random(11) Початок відліку зміщуємо з 0 до -5 Від випадкового числа Random(11) відняти 5 Random(11)-5 Random(B-A+1)+A НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 1 Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p1; var x,i:integer; begin randomize; for i:=1 to 10 do begin x:=random(11); write(x,' '); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 2 Знайти суму 20 випадкових чисел від 1 до 10 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p2; var x,s,i:integer; begin randomize; s:=0; for i:=1 to 20 do begin x:=random(10)+1; write(x,' '); s:=s+x; end; writeln(s); readln; end. Random(B-A+1)+A=(10-1+1)+1 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 3. Самостійно Одержати у програмі 15 випадкових чисел у діапазоні від –5 до 5 та знайти кількість додатніх. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p3; var x,k,i:integer; begin randomize; k:=0; for i:=1 to 15 do begin x:=random(11)-5; write(x,' '); if x>0 then k:=k+1; end; writeln('K=',k); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 4 Одержати випадковим чином два числа (від 1 до 6), що моделюють кидання іграшкових кубиків двома гравцями. Вивести результат та з’ясувати, хто з гравців набрав більше балів. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p4; var a,b:integer; begin randomize; a:=random(6)+1; b:=random(6)+1; writeln(a); writeln(b); if a=b then writeln('Nichya') else if a>b then writeln('Pershyy') else writeln('Drugyy'); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 5 Скласти програму, що перевіряє знання таблиці множення. В ній випадковим чином одержати два числа  (від 0 до 9), після чого на екран виводиться питання у вигляді: 4 * 9 =? Після вводу відповіді повинно видаватись повідомлення, чи відповідь вірна Так Ні НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p5; var a,b,s,v:integer; begin randomize; a:=random(10)+1; b:=random(10)+1; write(a,'*',b,'='); readln(v); s:=a*b; if s=v then writeln('Tak') else writeln('Ni'); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 6. Самостійно Питання виводити 12 раз та підраховувати кількість вірних та невірних відповідей. В кінці поставити оцінку (кількість правильних відповідей) НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p6; var a,b,s,v,i,k:integer; begin randomize; for i := 1 to 12 do begin a:=random(10)+1; b:=random(10)+1; write(a,'*',b,'='); readln(v); s:=a*b; if s=v then writeln('Tak') else writeln('Ni'); if s=v then k:=k+1; end; writeln('Bal=',k); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"