Варіант 3. Цілочисельна арифметика

TNumber = Longint – тип чисел.

1) Function GetMaxCD(A, B: TNumber): TNumber;

Знайти найбільший спільний дільник двох чисел.

2) Function GetMinCK(A, B: TNumber): TNumber;

Знайти найменше спільне кратне двох чисел.

3) Function IsPalindrom(A: TNumber): Boolean;

Повернути значення True, якщо число паліндром (наприклад, 34143).

4) Procedure WriteDiv(A: TNumber);

Вивести на екран всі дільники числа.

Варіант 4. Опрацювання лінійного масиву даних

Const m – найбільша кількість елементів у масиві.

TElement – тип елементів масиву.

TVector = array [1..m] of TElement;

1) Procedure VectorRead(var A: TVector);

Ввести розмірність масиву та його елементи з клавіатури.

2) Procedure VectorWrite(var A: TVector);

Вивести елементи масиву на екран у рядок.

3) Function GetSortVector(A: TVector; Sort: byte): boolean;

Повернути значення True, якщо елементи масиву впорядковано за зростанням при S=1, або за спаданням при S=0.

4) Procedure DelRepeatElement(var A: TVector);

Вилучити з масиву елементи, які повторюються.

Варіант 5. Аналіз текстового рядка

1) Function GetCountWord(S: string): byte;

Підрахувати кількість слів у текстовому рядку.

2) Procedure ConvertSymbol(var S: string);

Перевести всі символи рядка у верхній регістр.

3) Procedure ConvertString(var S: string);

Замінити всі слова S1 на S2.

4) Function IsPalindrom(S: String): Boolean;

Повернути значення True, якщо слово паліндром.

Варіант 6. Трикутник

Тип трикутника заданого довжинами сторін:

TTruk = record

A, B, C: Real;

End;

1) Procedure TrukReadKey(var T: TTruk);

Ввести довжини сторін трикутника.

2) Function IsTruk(A, B, C:Real): boolean;

Повернути значення True, якщо трикутник з заданими довжинами існує.

3) Procedure SetTruk(A,B,C: real; var T: real);

Надати сторонам трикутника Т довжини А, В, С.

4) Function GetInR(T: TTruk):real;

Обчислити радіус кола, вписаного в трикутник.

Варіант 7. Опрацювання масиву даних

Const m – найбільша кількість елементів у масиві.

TElement – тип елементів масиву.

TVector = array [1..m] of TElement;

1) Procedure VectorRead(var A: TVector);

Ввести розмірність масиву. Елементи масиву створюються випадковим чином.

2) Procedure VectorWrite(var A: TVector);

Вивести елементи масиву на екран у рядок.

3) Function VectorMin(A: TVector): TElement;

Знайти найменший елемент масиву.

4) Function VectorSeredA(A: TVector): TElement;

Обчислити за абсолютною величиною середнє арифметичне від'ємних елементів масиву.

Варіант 8. Опрацювання масиву даних

Const m – найбільша кількість елементів у масиві.

TElement – тип елементів масиву.

TVector = array [1..m] of TElement;

1) Procedure VectorRead(var A: TVector);

Ввести розмірність масиву. Елементи масиву створити за власною формулою.

2) Procedure VectorWrite(var A: TVector);

Вивести елементи масиву на екран у рядок.

3) Procedure VectorStor(Var A: TVector; Sort:byte);

Упорядкувати елементи масиву за зростанням, якщо Sort =0 або за спаданням при Sort = 1.

4) Procedure InsertElement(Var A: TVector; K: TElement);

Вставить елемент К у впорядкований масив.