Это приступы копипаста? Или ностальгии?

Пора бы знать.

Вот заметил, что уж очень много в ветке по кодингу появляется вопросов, связанных с решением задач.

И вот, покопавшись на винте, решил выложить решения, которые у меня уже были, надеюсь, пригодится!

Короче решил не мучить себя и вас и выложу все архивом. Бинарников в архиве нет. Но если нужны стучите.

_http://www.megaupload.com/ru/?d=HDHO4Q5K
Архив на меге

Содержание архива:
Графика
Инвертирование цветов
Конвертирование RGB->Grayscale
Фильтры: контур, размытие, резкость
Графы
Определение числа компонент связности
Поиск кратчайшего пути методом фронта волны
Путь минимального веса в нагруженном графе
Существование пути между 2 вершинами
Деревья
Модуль для работы
Массивы
Поиск: двоичный, линейный
Сортировка: от пузырька до шейкера
Матрицы
Модуль для работы
Строки
Алгоритм Бойера Мура
Алгоритм замены одной подстроки другой
Алгоритм последовательного поиска
Алгоритм Кнута Морриса и Пратта
Взятие подстроки
Структуры данных
Дек, Список, Стек

1. Объявите переменные, необходимые для вычисления значения функции у = х2.
2. Объявите переменные, необходимые для пересчета веса из фунтов в килограммы.
3. Объявите переменные, необходимые для вычисления объема параллелепипеда.
4. Объявите переменные, необходимые для вычисления площади круга.
5. Объявите переменные, необходимые для вычисления площади кольца.
6. Объявите переменные, необходимые для вычисления объема и площади поверхности цилиндра.
7. Объявите переменные, необходимые для вычисления стоимости покупки, состоящей из нескольких тетрадей, карандашей и линейки.
8. Объявите переменные, необходимые для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек.
9. Запишите инструкцию, которая присваивает переменной х значение —1,5.
10. Запишите инструкцию, которая присваивает переменной summa нулевое значение.
11. Запишите инструкцию, которая увеличивает на единицу значение переменной п.
12. Запишите инструкцию, которая уменьшает на два значение переменной counter.
13. Запишите инструкцию вычисления среднего арифметического переменных xi и х2.
16. Запишите в виде инструкции присваивания формулу пересчета веса из фунтов в килограммы (один фунт равен 409,5 г).
17. Запишите в виде инструкции присваивания формулу пересчета расстояния из километров в версты (одна верста равна 1066,8 м).
18. Запишите в виде инструкции присваивания формулу вычисления площади прямоугольника.

Задача 1

х: real; { аргумент функции } у: real; { значение функции }

Задача 2

funt: real; { вес в фунтах }
kg: real; { вес в килограммах }


Задача 5

rl: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца }

Задача 7

CenaTetr: real; {цена тетради }
KolTetr: integer; { количество тетрадей }
CenaKar: real; { цена карандаша }
KolKar: integer; { количество карандашей }
CenaLin: real; { цена линейки }
Suirana: real; { стоимость покупки }

Задача 11

п:=п+1;

Задача 14

у:=-2.7*х*х*х+0.23*х*х-1.4;

Задача 16

kg:=gunt*0.4095;