25 Программ Опции

[nOoB]

Всем доброго времени суток. Прошу помощи у форумчанинов. Сегодня первый день после больницы пришел на учебу. На что мне училка задала 25 заданий. и воплнить их надо за 2 дня Понимаю прошу многого. Но всё же кто чем может помогите написать проги в срок.

Спойлер (Показать/Скрыть)

1) Создать программу «Телефонный справочник». О каждом абоненте вносится информация: Фамилия, имя, отчество, адрес, номер телефона.
Программа должна производить ввод, корректировку и поиск данных. Основные операции выполняются с использованием главного меню и панели инструментов. По результатам поиска формируются печатные отчеты.
Для хранения данных используется любая локальная реляционная СУБД.
2) Создать элементарную программу тестирования. Файл тестовых заданий должен иметь текстовый формат без шифрования данных.
Текст вопроса и варианты ответа могут занимать от одной до нескольких строк текста. Каждому вопросу соответствую от 3 до 5 вариантов ответа.
Результат необходимо выдать в процентной форме и в виде оценки по следующим критериям: от 90 до 100% - оценка «5», от 75 до 90% - оценка «4», от 60 до 75% - оценка «3», меньше 60% - оценка «2».
3) Создать программу – элементарный текстовый редактор на основе компонента Memo.
Редактор должен иметь возможность выполнять команды «Открыть», «Сохранить», «Сохранить как…», элементы редактирования текста – копировать, вырезать, вставить. Предусмотреть возможность изменения шрифта в окне редактирования.

4) Создать программу «Библиотека». О каждой книге вносится информация: Наименование, автор, издательство, год издания, номер стеллажа (месторасположение книги). Предусмотреть справочник издательств.
Программа должна производить ввод, корректировку и поиск данных. Основные операции выполняются с использованием главного меню и панели инструментов. По результатам поиска формируются отчеты на печать.
Для хранения данных используется любая локальная реляционная СУБД.
5) Создать программу «Студенты». О каждом студенте вносится информация: Фамилия, имя отчество, дата рождения, адрес, группа. Предусмотреть справочник групп.
Программа должна производить ввод, корректировку и поиск данных. Основные операции выполняются с использованием главного меню и панели инструментов. По результатам поиска формируются отчеты на печать.
Для хранения данных используется любая локальная реляционная СУБД.
6) Создать приложение, позволяющее:
a) устанавливать количество столбцов и строк квадратной таблицы StringGrid равными числу, вводимому пользователем;
b) закрашивать ячейки таблицы, расположенные на главной диагонали и ниже цветом, выбранным пользователем.

7) Создать программу «Товары и реализация». На склад поступают товары, имеющие следующие характеристики: наименование, цена, количество, единица измерения. Склад производит отпуск товаров в количестве, не превышающем наличие.
Программа должна производить прием товаров на склад и отпуск товаров со склада. Если наименование поступающего товара уже имеется в базе данных, то количество суммируется.
Сформировать отчет о наличии товаров на складе.
Для хранения данных используется любая локальная реляционная СУБД.

8) Создать приложение, позволяющее:
a) загружать в редактор Мемо текст из файла, выбранного пользователем - имя файла должно отображаться в заголовке формы;
b) распечатать текст редактора на принтере;
c) изменять шрифт и цвет фона в редакторе Мемо.
d) управлять выравниванием текста в окне редактора выбором кнопок из RadioGroup (по краям и по центру);
e) очищать содержимое редактора
Управлять выравниванием текста в окне редактора выбором кнопок из RadioGroup

9) Составить программу для хранения данных о погоде. Дата, полученная из компонента MonthCalendar и температура, введенная в компонент Edit, после нажатия на кнопку "Добавить", записываются последовательно в файл pogoda.txt. Программа не использует обычные базы данных и методы работы с ними.

10) Создать простейший текстовый процессор, содержащий переключатели цвета шрифта, флажки для определения стиля

11) Создать программу, которая на поверхность формы выводит координатные оси (x,y) и оцифрованную сетку.
12) Составить таблицу 4х4, состоящую из целых чисел. Программа должна выводить число, лежащее в ячейке с введенным с клавиатуры номером столбца и строки.

13) Написать программу, которая демонстрирует обработку исключений при помощи инструкции try…except.

14) Написать программу (консольное приложение), которая запрашивает у пользователя вес в фунтах, пересчитывает его в килограммы и выводит результат на экран. Для вывода сообщений использовать функцию RUS, которая преобразует строку символов в кодировке ANSI в строку в кодировке ASCII. (функцию создать самостоятельно)

15) Написать программу, которая должна вычислить общее количество медалей, завоеванных представителями каждой страны, и соответствующее количество очков (баллов), которое вычисляется по следующему правилу: за каждую золотую медаль команда получает семь очков, за серебряную — шесть очков, за бронзовую — пять очков. (С использованием компонента TStringGrid)

16) Создать программу управления базой данных "Школа" и базу данных "Школа". В программе создать запрос по фамилии и вывод всего списка учащихся.

17) Создать приложение, позволяющее:
a) просматривать в указанном каталоге графические файлы в выбранном пользователем формате;
b) управлять выбором формата с помощью кнопок из RadioGroup (.bmp или .jpg).

18) Написать программу которая демонстрирует использование компонента Animate. После запуска программы в форме выводится первый кадр анимации. Программа обеспечивает два режима просмотра анимации: непрерывный и покадровый.

19) Написать программу которая выводит на печать картинку, которая находится в компоненте Timage, программа должна высчитывать реальный размер картинки.

20) Написать программу вычисляющую факториал числа, находящегося в поле ввода. Для вычисления использовать рекурсивную функцию.

21) Написать программу "Стили заполнения областей", которая в окно выводит восемь прямоугольников, закрашенных с использованием разных стилей.

22) Написать программу которая выводит в поле Memo данные: Какими карточками пользуется пользователь, программа должна выводит сообщение (Вы не используете кредитные карточки) если ничего не выбрано. В программе использовать компоненты CheckBox и вспомогательную процедуру TestCard которая проверяет установлен ли флажок кредитной карточки.

23) Написать программу с помощью компонента TWebBrowser которая будет отображать файлы HTML, при вводе адреса файла в Tedit, программа должна быть оснащена кнопками перемещения "Назад", "Вперед", "Начальная страница".

24) Написать программу "чтение файла", которая будет считывать данные из файла и выводить их в поле Memo и также при внесении изменений в Memo будет их записывать в файл.

25) Создать приложение, позволяющее:
a)Размещенный на форме компонент TShape с помощью полос прокрутки (ScrollBar) изменяет размер, цвет и внешний вид объекта;
b) С помощью определенных кнопок изменяется размер и цвет самой формы;
c) Для выбора изменении вида фигуры используется выпадающий список (ComboBox).

[Innusya***]

У самой такие же 25 заданий надо к экзамену приготовить))
могу с медалями помочь
вставляй в процедуры
procedure TForm1.FormActivate(Sender: TObject);
begin
tabl.Cells[0,0]:='Страна';
tabl.Cells[1,0]:='Золотых';
tabl.Cells[2,0]:='Серебро';
tabl.Cells[3,0] :='Бронза';
tabl.Cells[4,0] :='Bcего';
tabl.Cells[5,0] :='Баллов';
tabl.Cells[0,1] :='австралия';
tabl.Cells[0,2] :='белорусия';
tabl.Cells[0,3] :='великобритания';
tabl.Cells[0,4] :='германия';
tabl.Cells[0,5] :='итаия';
tabl.Cells[0,6] :='китай';
tabl.Cells[0,7] :='корея';
tabl.Cells[0,8] :='куба';
tabl.Cells[0,9] :='нидерланды';
tabl.Cells[0,10]:='россия';
tabl.Cells[0,11]:='сша';
tabl.Cells[0,12]:='франция';
tabl.Cells[0,13]:='япония';
end;

procedure TForm1.Button1Click(Sender: TObject);
var r,s,p,m,c:integer; {номер колонки и сроки}
begin
for r:=1 to tabl.rowcount do //обработать все строки
begin s:=0; // вычисляем общ.кол-во медалей
for c:=1 to 3 do
if tabl.cells[c,r] <>''
then s:=s+StrToInt(tabl.cells[c,r])
else tabl.cells[c,r]:='0'; // вычисл.кол-во очков
p:=7*StrToInt(tabl.cells[1,r])+6*StrToInt(tabl.cells[2,r])+5*StrToInt(tabl.cells[3,r]);// вsdjl результата
tabl.cells[4,r]:=IntToStr(s); //количество медалей
tabl.cells[5,r]:=IntToStr(p); // очков
end;