9 Урок 27 Алгоритми опрацювання табличних величин За

9 Урок 27 Алгоритми опрацювання табличних величин За новою програмою

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини 9 Задача 4. Визначити найбільше значення елементів табличної величини. Спочатку вважатимемо, що значення елемента табличної величини є найбільшим. Після цього послідовно переглядатимемо значення всіх інших елементів табличної величини, і якщо трапиться значення, що більше того, яке на даний момент вважаємо найбільшим, то вважатимемо тепер уже це значення найбільшим. © Вивчаємо інформатику teach-inf. at. ua першого

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини Текст відповідної процедури: 9 procedure TForm 1. Button 1 Click(Sender: TObject); var a: array [1. . 10] of real; i: integer; max: real; begin for i : = 1 to 10 do a[i] : = Str. To. Float(Memo 1. Lines[i-1]); max : = a[1]; {вважаємо, що найбільше значення — значення першого елемента} for i : = 2 to 10 do If a[i] > max Then max : = a[i]; {замінюємо найбільше значення} Label 1. Caption : = Float. To. Str (max) + ' — найбільше значення’; end; © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини Можливий варіант розміщення об’єктів на електронній формі. © Вивчаємо інформатику teach-inf. at. ua 9

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини 9 Задача 5. Дано табличну величину, значення всіх елементів якої різні. Визначити найбільше та найменше значення серед елементів цієї табличної величини та поміняти їх місцями. Оскільки треба поміняти місцями найбільше та найменше значення серед значень елементів табличної величини, то потрібно визначити не тільки самі ці значення, а ще й номер елемента, значення якого найбільше, та номер елемента, значення якого найменше. Визначимо все це, переглядаючи значення елементів табличної величини лише один раз. © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини 9 Спочатку вважатимемо, що значення першого елемента і найбільше, і найменше, а номер найбільшого і найменшого елементів: 1 © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини 9 Після цього послідовно переглядатимемо всі інші елементи масиву. Якщо значення чергового елемента табличної величини більше того значення, яке на той момент вважаємо найбільшим, то замінюємо найбільше значення серед уже переглянутих і номер найбільшого елемента. Якщо ні, то може це значення менше, ніж те, яке поки що вважаємо найменшим. І якщо це так, то замінюємо найменше значення серед уже переглянутих і номер найменшого елемента. © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини Можливий варіант розміщення об’єктів на електронній формі. © Вивчаємо інформатику teach-inf. at. ua 9

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини Текст відповідної процедури: 9 procedure TForm 1. Button 1 Click(Sender: TObject); var a: array [1. . 10] of real; i, nmax, nmin: integer; max, min: real; begin for i : = 1 to 10 do a[i] : = Str. To. Float(Memo 1. Lines[i-1]); max : = a[1]; nmax : = 1; // значення першого елемента важаємо найбільшим min : = a[1]; nmin : = 1; // значення першого елемента важаємо найменшим for i : = 2 to 10 do ння з ]гового йбільшим елемента If на цей момент} Then begin max : = a [i]; // замінюємо значення найбільшого елемента nmax : = i; // замінюємо номер найбільшого елемента end © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Найбільший і найменший елементи табличної величини (Продовження…) Текст відповідної процедури: Else © Вивчаємо інформатику teach-inf. at. ua 9

Розділ 6 § 6. 2 Розгадайте ребус 9 Найбільше © Вивчаємо інформатику teach-inf. at. ua «Ребуси українською» © rebus 1. com

Розділ 6 § 6. 2 Дайте відповіді на запитання 9 1. Як потрібно змінити наведений фрагмент, щоб у ньому визначалося найменше значення елементів табличної величини? max : = а[1]; for і : = 2 to 10 do If a[i] > max Then max : = a[i]; 2. Якщо в табличній величині кілька елементів мають найбільше значення серед значень усіх елементів цієї табличної величини, то фрагмент max : = a[1]; for і : = 2 to 10 do If a[i] > max Then max : = a[i]; визначає, який з них найбільший? Чи зміниться щось, якщо в розгалуженні змінити знак > на знак >=? © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Дайте відповіді на запитання 9 3. Для чого використовують властивість Memo 1. Lines. Count багаторядкового текстового поля? 4. Для розв'язування якої задачі опрацювання елементів табличної величини можна використати такий фрагмент? s : = 0; k : = 0; for і : = 1 to 10 do If a[i] > 0 Then begin s : = s + a[i]; k : = k + 1; end; sa : = s/k; У яких випадках під час виконання проекту із цим фрагментом може виникнути помилка? © Вивчаємо інформатику teach-inf. at. ua

Розділ 6 § 6. 2 Домашнє завдання 9 Проаналізувати § 6. 2, ст. 167

Розділ 6 § 6. 2 Працюємо за комп’ютером Сторінка 169 -170 © Вивчаємо інформатику

Дякую за увагу! 9 Урок 27 За новою програмою