Вивчаємо розгалуження (15 задач)

1. Ввести два числа, вивести більше.

2. Ввести ціле число. Якщо воно є додатнім, то додати до нього 1; в іншому разі не змінювати його. Вивести отримане число.
3. Ввести ціле число. Якщо воно є додатнім, то додати до нього 1; в іншому випадку відняти від нього  10. Вивести отримане число. Читати далі

Фінал Lviv IT Challenge 2017

29 квітня відбувся фінальний етап онлайнової олімпіади “Lviv IT Challenge”, у якому взяли участь 10 талановитих школярів Львова і області. Всі учасники представили свої проекти – втілені ідеї для “Розумного кварталу” Львова.

it-challenger2 Читати далі

Lviv IT Challenge-2017

18 лютого відбувся  ІІ очний етап онлайнової олімпіади з інформаційних технологій Lviv IT Challenge-2017. У ІІІ фінальний етап запрошено учасників, які набрали не менше 4 балів (з 8 можливих), або зробили хоча б одне завдання з програмування.  У рамках фінального етапу конкурсу необхідно подати рішення з автоматизації процесів в розумному кварталі Львова http://naukova.com/ (на вибір учасника). Тематика має відповідати гаслу конкурсу.Учасник на власний розсуд додає функції, які вважатиме корисними для кінцевого користувача. Ініціатива – вітається. Також важливими є якість технічної реалізації, дизайн та стиль роботи.

У список фіналістів потрапив учень 10 класу Мацкула Олег.

it challenge

Всеукраїнська школа з програмування для переможців Міжнародного конкурсу з інформатики та комп’ютерної вправності „Бобер”

З 20 по 26 жовтня вчитель інформатики Роздільської ЗОШ І-ІІІ ст. Свідрик В.Є. та учень 10 класу Мацкула Олег взяли участь у Всеукраїнській школі з програмування для переможців Міжнародного конкурсу з інформатики та комп’ютерної вправності „Бобер”.
В рамках школи учні та вчителі слухали лекції з програмування, змагалися в інтелектуальних іграх та відвідували цікаві екскурсії.

Лекції з програмування читали:
Сергій Жуковський,  Житомирський державний університет. Рекурсія.
Сергій Вапнічний, Старокостянтиніська гімназія. Одновимірна та двовимірна динаміка.
Ілля Порубльов. Черкаський національний університет Бінарний і тернарний пошук.
Сергій Жуковський,  Житомирський державний університет. Бінарні операції.
Ілля Порубльов. Черкаський національний університет. Вимітання. Метод скануючої прямої.
Ірина Скляр. Київський природничо-науковий ліцей №145. Методи організації пребору.
В останній день заходу  учні мали змогу перевірити отримані знання в олімпіаді з програмування. Переможці отримали цінні призи, а всі учасники здобули нові знання і вміння.

Pascal програма “Знаходження НСК чисел”

Найменше спільне кратне (НСК) двох цілих чисел a, b називаємо найменше натуральне число, яке є кратним до обох цих чисел. Позначаємо НСК(a, b), в англомовній літературі LCM(a, b). Отже НСК(a, b) є найменшим натуральним числом, яке ділиться без залишку на обидва числа a, b. Означення можна – очевидним способом – узагальнити на довільну кількість аргументів.

Властивості•  НСК(a, b)= НСК(b, a) (перестановка аргументів не змінює НСК).

•          НСК(a, b, c, d) = НСК(НСК(a, b), НСК(c, d) )

•          НСК(a, b) =|ab|/НСД(a, b), де НСД(a, b) найбільший спільний дільник чисел a, b.

 

Програма

function NOD(x,y:integer):integer;

Begin

If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;

End;

function NOK(x,y:integer):integer;

Begin

NOK:=(x div NOD (x,y))*y;

end;

var a:array[1..100] of integer;

n,i:byte;

k:integer;

begin

write(‘Введіть к-сть елементів n=’);

readln(n);

writeln(‘Введіть елементи масиву: ‘);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);

readln(a[i]);

end;

clrscr;

writeln(‘Масив:’);

for i:=1 to n do

write(a[i],’ ‘);

writeln;

k:=NOK(a[1],a[2]);

for i:=3 to n do k:=NOK(k,a[i]);

writeln(‘НСК елементів=’,k);

readln

end.

Pascal програма “Знаходження НСД чисел”

НСД(a, b)= НСД(b, a) (перестановка аргументів не змінює НСД).

•          1<=НСД(a, b)<=min(|a|,|b|)

•          НСД(a, b, c, d) = НСД(НСД(a, b), НСД(c, d) )

•          НСД(a, b) =|ab|/НСК(a, b), де НСК(a, b) найменше спільне кратне чисел a, b.

 

Програма

function Nod(a,b:integer):integer;{знаходження НСД 2 чисел}

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

Nod:=a;

end;

var a:array[1..100] of integer;

n,i:byte;

k:integer;

begin

clrscr;

write(‘Введіть к-сть елементів n=’);

readln(n);

writeln(‘Введіть елементи масиву: ‘);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);

readln(a[i]);

end;

writeln(‘Масив:’);

for i:=1 to n do

write(a[i],’ ‘);

writeln;

k:=Nod(a[1],a[2]);

for i:=3 to n do k:=nod(k,a[i]);

writeln(‘НСД елементів=’,k);

readln

end.

ПЕРЕМОЖЦІ ІІ ЕТАПУ ВСЕУКРАЇНСЬКИХ УЧНІВСЬКИХ ОЛІМПІАД У 2015-2016 Н. Р.

Липівська ЗОШ І-ІІІ ст.

Петров Д
Петров Дмитро – ІІ місце – ІКТ

Роздільська ЗОШ І-ІІІ ст.

Мацкула Олег – ІІ місце Інформатика