четверг, 23 октября 2014 г.
вторник, 14 октября 2014 г.
вторник, 7 октября 2014 г.
Задача
Використовуючи одну й ту ж форму для введення і виведення даних, по введених користувачем 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. кінець виконання програми
Створення програми вимагає знання функцій і команд 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. кінець виконання програми
понедельник, 29 сентября 2014 г.
Тітанік
в розділі var пишемо координати малюнка
var
Form1: TForm1;
x,y: integer;
створюємо і пишемо процедуру з парамерами Titanik
четверг, 15 мая 2014 г.
Задача
Згенерувати випадкові ціле число , дійсне число , букву в діапазонах , які вводить користувач .Опис змінних:
min_i , max_i - мінімальна і максимальна межі діапазону для цілого числа;
n_i - випадкове ціле число;
min_f , max_f - мінімальна і максимальна межі діапазону для дійсного числа ;
n_f - випадкове дійсне число ;
first_c , last_c - перший і останній символ діапазону , в якому повинен бути згенерований випадковий символ ;
min_c , max_c - коди - числа , що відповідають зазначеним символам ;
n_c - випадкове число , яке буде переведено в символ по таблиці ASCII.
min_i , max_i - мінімальна і максимальна межі діапазону для цілого числа;
n_i - випадкове ціле число;
min_f , max_f - мінімальна і максимальна межі діапазону для дійсного числа ;
n_f - випадкове дійсне число ;
first_c , last_c - перший і останній символ діапазону , в якому повинен бути згенерований випадковий символ ;
min_c , max_c - коди - числа , що відповідають зазначеним символам ;
n_c - випадкове число , яке буде переведено в символ по таблиці ASCII.
среда, 7 мая 2014 г.
Подписаться на:
Комментарии (Atom)