вівторок, 20 листопада 2018 р.
неділя, 11 листопада 2018 р.
середа, 7 листопада 2018 р.
3 клас. Дії з інформацією.
Пазл. Дії та інформаційні процеси.
Перший мільйон. Інформаційні процеси. повторення.
Вправа. Інформаційні процеси. Знайди назву.
Перший мільйон. Інформаційні процеси. повторення.
Вправа. Інформаційні процеси. Знайди назву.
вівторок, 6 листопада 2018 р.
5 клас. Практична робота №3. Завантаження даних з Інтернету.
Завдання:
1. Створити у своїй папці папку Пр№ 3,
в ній – текстовий документ під назвою Вірш.
2. Запустити браузер Google Chrome.
3. Знайти інформацію, використавши ключові слова
«Вірші для дітей про осінь».
4. Розглянути і оцінити знайдену інформацію,
вибрати один віршик, скопіювати його у текстовий документ Вірш.
5. Знайти зображення осені і зберегти його у
створену папку, назвати Осінь.
6. Зайти на сайт Пустунчик за адресою www.
pustunchik.ua і зберегти будь-яку сторінку цього сайту у папку Пр№ 3.
7. На сайті http://javalibre.com.ua/ знайти
книгу Наталія Забіла – «Вовк та козлята», зберегти її в папці Пр№3
8. Знайти відео за запитом «Фіксіки
комп'ютер» та завантажити мультфільм який триває 0:57, перемістити мультик в
папку Пр№3.
понеділок, 5 листопада 2018 р.
9 клас. Упорядкування масиву.
Вправа 3. ст. 135.
procedure TForm1.Button1Click(Sender: TObject);
var i,j,min,nmin:integer;
a:array[1..10] of integer;
begin
for i:=0 to 9 do
a[i+1]:=StrToInt(Memo1.Lines[i]);
for i:=1 to 9 do
begin
min:=a[i];
nmin:=i;
for j:=i+1 to 10 do
if a[j]<min then
begin
min:=a[j];
nmin:=j;
end;
a[nmin]:=a[i];
a[i]:=min;
end;
for i:=0 to 9 do
Memo2.Lines[i]:=IntToStr(a[i+1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j,min,nmin:integer;
a:array[1..10] of integer;
begin
for i:=0 to 9 do
a[i+1]:=StrToInt(Memo1.Lines[i]);
for i:=1 to 9 do
begin
min:=a[i];
nmin:=i;
for j:=i+1 to 10 do
if a[j]<min then
begin
min:=a[j];
nmin:=j;
end;
a[nmin]:=a[i];
a[i]:=min;
end;
for i:=0 to 9 do
Memo2.Lines[i]:=IntToStr(a[i+1]);
end;
Підписатися на:
Дописи (Atom)