Сайт присвячений онлайн сервісам і методам їх застосування
в навчальному процесі
понеділок, 17 вересня 2018 р.
четвер, 13 вересня 2018 р.
четвер, 6 вересня 2018 р.
середа, 5 вересня 2018 р.
Алгоритм сортування
Алгоритми впорядкування табличних величин
МЕТОД ВИБІРКИ
Program up_repl;
Uses crt;
Const n =10; k1=10; k2=2*k1+1;
Type vec=array[1..n] of integer;
Var a,b,c :vec;
k,i,j,f,m :integer;
ch :char;
l :Boolean;
Begin
Repeat
ClrScr;
Randomize;
Write("Исходый масив a[i]=");
For i:=1 to n do
Begin
f:=Random(k2);
a[i]:=k1-f;
Write(a[i]:3);
End;
Writeln;
b:=a;
For k:=1 to n do
Begin
m:=100;
For i:=1 to n do
If m>b[i] then
begin
m:=b[i];j:=i;
end;
b[j]:=100; c[k]:=m
end;
Write("Впорядкований масив c[i]=");
For i:=1 to n do Write(c[i]:3);
Readln;
ch:=ReadKey;
Until ch=#27;
End.
МЕТОД БУЛЬБАШКИ
Program Bubble; {Сортування за зростанням} Const N=20; Var Mas:array[1..N] of integer; i,j:integer; {i,j - змінні циклу} Rez:integer; {Rez - додаткова змінна для обміну елементів масиву між собою} Begin For i:=1 to N do For j:=1 to N-1 do If Mas[j]>Mas[j+1] then Begin {Обмін елементів масиву через третю змінну} Rez:=Mas[j]; Mas[j]:=Mas[j+1]; Mas[j+1]:=Rez; End; End.
МЕТОД ВИБІРКИ
Program up_repl;
Uses crt;
Const n =10; k1=10; k2=2*k1+1;
Type vec=array[1..n] of integer;
Var a,b,c :vec;
k,i,j,f,m :integer;
ch :char;
l :Boolean;
Begin
Repeat
ClrScr;
Randomize;
Write("Исходый масив a[i]=");
For i:=1 to n do
Begin
f:=Random(k2);
a[i]:=k1-f;
Write(a[i]:3);
End;
Writeln;
b:=a;
For k:=1 to n do
Begin
m:=100;
For i:=1 to n do
If m>b[i] then
begin
m:=b[i];j:=i;
end;
b[j]:=100; c[k]:=m
end;
Write("Впорядкований масив c[i]=");
For i:=1 to n do Write(c[i]:3);
Readln;
ch:=ReadKey;
Until ch=#27;
End.
Алгоритм Евклида
Беремо числа m = 24 и n = 9.
2. m > n {m=24,n=9}
3. m := m mod n
4. m > n {m=6,n=3}
7. m := m mod n
8. т.к m = 0 віходим из цикла . НОД рівен n = 3
алгоритм Евклида в паскалі .
var m, n: integer; begin Writeln('Введите два числа'); Readln(m, n); {старт цикла } repeat if m > n then m := m Mod n else n := n Mod m; until (m = 0) Or (n = 0); {если или m или n в процессе хода цикла стал равен 0 ,то цикл заканчивается } writeln('НОД = ', m + n); {так как мы знаем ,что одно из чисел равно нулю ,а другое НОД , то мы выводим сумму этих чисел} end.
середа, 29 серпня 2018 р.
Календарно-тематичне планування. Інформатика 10(11) клас, 7 клас. Вибіркові модулі
Календарно-тематичне планування уроків інформатики в 10(11) класі. Вибіркові модулі. За новою навчальною програмою 2017 року, починаючи з 2018-2019 н.р.
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Бази даних
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Веб-технології
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Графічний дизайн
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Комп’ютерна анімація
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Креативне програмування
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Математичні основи інформатики
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Основи електронного документообігу
Календарно-тематичне планування. Інформатика 10(11) клас. Модуль. Формальна логіка
Календарно-тематичне планування. Інформатика 10 (11) клас. Рівень стандарту. Базовий рівень. 2018 рік
Календарно-тематичне планування. інформатика 7 клас. нова програма 2017 року.
середа, 11 липня 2018 р.
Підписатися на:
Дописи (Atom)