вівторок, 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;