Дано масив з 10 елеменов. Перші 4 впорядкувати по зростанню, останні 4 по спадаючій.

Алгоритм вирішення задачі:
В даному випадку використовується сортування методом бульбашки.

Виникають складності при сортування останніх чотирьох елементів масиву. Кількість проходів (i) і кількість порівнянь (j) такі ж як в першому випадку. Однак номера елементів стоять далі від початку на 6 значень. Тому простіше при обм

іні додавати до j 6.


































В однорідному масиві, шо складєьться з N  елементів, знайти максимальний по модулю елемент масиву.

Сортування масиву методом бульбашки

Перевести фунти у кг використовуючи вказівку вибору

Масиви. Теорія+ задачі

Задача

Дано три дійсних числа. Вибрати з них ті, які належать інтервалу (1,3)

Задача

Використовуючи одну й ту ж форму для введення і виведення даних, по введених користувачем x, y, r знайти, чи лежить точка P (x, y) в окружності радіуса r з центром на початку координат (включаючи саму окружність) або за колом.

Створення програми вимагає знання функцій і команд delphi:

     s: ShortString мінлива s матиме тип ShortString (короткий рядок)
     StrToFloat перетворює змінну типу рядок (що містить число) в змінну типу Float
     FloatToStr перетворює змінну типу Float в змінну типу рядок
     sqrt витягує квадратний корінь
     sqr зведення в квадрат
     if перевірка умови - then виконується, якщо умова істина else - виконується в протилежному випадку

 Користувач вводить одномірний масив до 20 елементів. Потрібно знайти суму елементів, які стоять на непарних місцях.

VAR починає розділ оголошення змінних

i, N, K: integer; змінні i, N, K матимуть тип integer

Writeln виводить на дисплей в новий рядок свої аргументи

Readln зчитує введені користувачем дані з клавіатури і вносить отримане значення в змінну

For i: = 1 to N do виконується цикл, в якому змінна i приймає значення від 1 до N

Round функція округлення аргументу

X: array [1..20] of real масив X буде мати елементи з номерами від 1 до 20 включно, тип кожного елемента real

BEGIN початок виконання програми

END. кінець виконання програми

 

Тітанік

в розділі var пишемо координати малюнка

var

  Form1: TForm1;

  x,y: integer; 

створюємо і пишемо процедуру  з парамерами  Titanik