вторник, 7 октября 2014 г.

Задача

Дано три дійсних числа. Вибрати з них ті, які належать інтервалу (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. кінець виконання програми