Програміст-це круто!

вторник, 27 сентября 2016 г.

Бази даних

створити таблицю новини
CREATE TABLE news
(
ID SMALLINT UNSIGNED NOT NULL auto_increment,
title VARCHAR(180) NOT NULL,
text TEXT NOT NULL,
tema TEXT NOT NULL,
ntext TEXT NOT NULL,
category VARCHAR(50) NOT NULL,
fotossulka VARCHAR(50) NOT NULL,
fotopodpis VARCHAR(50) NOT NULL,
comment TEXT NOT NULL,
foto1 VARCHAR(30) NOT NULL,
foto2 VARCHAR(30) NOT NULL,
aid INT(9) NOT NULL,
date1 DATETIME NOT NULL,
time time NOT NULL,
date datetime NOT NULL default '0000-00-00 00:00:00',
topnews VARCHAR(10) NOT NULL,
reiting INT(9) NOT NULL,
sum INT(9) NOT NULL,
count INT(9) NOT NULL,
today date NOT NULL,
status VARCHAR(15) NOT NULL,
ip VARCHAR(30) NOT NULL,
PRIMARY KEY(ID)
);

вторник, 12 апреля 2016 г.

Визначити кількість днів в році, який вводить користувач.

У високосний рік - 366 днів, тоді як в звичайному 365. Високосними роками є всі роки діляться без остачі на 4 за винятком століть, які не діляться без остачі на 400.
Перевірка чи ділиться рік на 4. Якщо немає, то рік уже невисокосний.
Якщо рік ділиться на 4, то перевіряємо ділиться він на 100. Якщо немає, то рік однозначно високосний.
Якщо рік ділиться на 100, але при цьому не ділиться на 400, то рік невисокосний.

вивід на екран таблиці ASCII

понедельник, 30 ноября 2015 г.

Знайти суму першої та останньої цифр будь-якого цілого додатнього числа.

среда, 28 января 2015 г.

Задачі

В одній формі передбачити ввід елементів масиву в ListBox і вивід результату в інший ListBox. По кожному введеному користувачем елементу масиву знайти функцію y:=1+2*sqr(x); і занести результат в ListBox. Розв'язати задачу за допомогою циклу for.

Використовуються компоненти і встановлюються їх властивості
Компоненти	Властивості	Значення
Form1	Caption	Обробка одномірного масиву
Label1	Caption	Введіть
Label2	Caption	число елементів N=
Label3	Caption	Елемент A[i]=
Label4	Caption	Масив даних
Label5	Caption	Результат
Edit1	Text	пусто
Edit2	Text	пусто
Button1	Caption	Додати елемент в масив
Button2	Caption	Розв'язок
Button3	Caption	Вихід
ListBox1	-	-
ListBox2	-	-

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

x, y : array [1..20] of Real; : ShortString змінні x, y будуть масивами з елементами типу Real, індекси елементів від 1 до 20
StrToInt перетворює значення типу рядок в значення типу Integer
StrToFloat перетворює значення типу рядок (що вміщує число) в значення типу Float
FloatToStr перетворює значення типу Float в значення типу рядок
Form1.ListBox1.Items.Add; додати до списку один елемент
sqr піднесення в квадрат
for i:=1 to n do цикл, в якому змінна і проходить значення від 1 до n включно (з кроком 1)
Form1.ListBox1.Items.Strings[i-1] повертає значення i-1 -го елементу списку (елементи нумеруються від 0)

четверг, 20 ноября 2014 г.

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

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

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