Паскаль

авдання:
Визначити кількість елементів в заданому масиві, що відрізняються від мінімального на 5.

Опис змінних:
a - масив
min - мінімальний елемент масиву
i - лічильник для циклів
count - кількість елементів масиву, більше мінімального на 5.
Алгоритм розв'язання задачі:
Дану задачу можна звести до двох підзадач:

Пошук мінімального елемента масиву.
Визначення кількості елементів масиву, які відрізняються від мінімального на 5 одиниць.

Рішення першої підзадачі було розглянуто в інших завданнях.

У другій підзадачіфактично потрібно знайти кількість елементів, які більше мінімального на 5. Менше мінімального на 5 (або будь-яке інше число) бути не може.

У масиві може взагалі не бути елементів, великих мінімального на 5. Тому спочатку присвоюємо змінної count значення 0. Далі в циклі з лічильником (for) перебираємо всі елементи масиву. Якщо який-небудь з них дорівнює сумі змінної min і 5, то збільшуємо значення count на 5.

Сформувати і вивести на екран послідовність з n елементів, заданих датчиком випадкових чисел на інтервалі [-23, 34].

У заданому одновимірному масиві, що складається з n цілих чисел, підрахувати кількість нулів

Знайти добуток елементів цілочисельного одновимірного масиву з парними номерами, що складається з n елементів. Елементи вводяться з клавіатури.

Задачі

Ввести чотиризначне число (abcd). Вивести суму ab + cd.

Перевірити, чи зустрічається число k в масиві А [10]

Дано одновимірний масив, значення елементів якого задаються випадковим чином. Обчислити суму квадратів елементів даного масиву, великих деякого числа M. На екран вивести вихідний масив і отриманий результат.

задачі

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

Дано масив розміру N. Знайти номери тих елементів масиву, які більше свого правого сусіда, і кількість таких елементів. Знайдені номера виводити в порядку їх зростання.

Дано масив розміру N. Знайти номери тих елементів масиву, які більше свого лівого сусіда, і кількість таких елементів. Знайдені номера виводити в порядку їх зменшення.

Дано два цілих числа і B (A

Бази даних

створити таблицю новини
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)
);

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

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

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

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

Задачі

В одній формі передбачити ввід елементів масиву в 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)