помогите блондинке плиз:)))

[programistka]

Пример 20. ЗАДАНИЕ
Решатель

На форме разместите:
- поле ввода - edChislo1 - целое число
- поле ввода - eddeistv - символ арифметического действия
- поле ввода - edChislo2 - целое число
- текстовое поле lbResult - результат операции над числами
- кнопку bbRun - выполнение операции

По нажатию кнопки должно быть произведено действие и выведен
результат. В поля ввода должны вводиться лишь допустимые символы.

Пример 34. ЗАДАНИЕ

Напишите программу, которая бы по нажатию кнопки переносила строки
из многострочного редактора в поле ввода: первое нажатие - первая
строка, второе нажатие - вторая строка и т.д.

Пример 28. ЗАДАНИЕ

Создайте два списка и две кнопки, по нажатию которых элементы
одного списка можно было переносить в другой

Пример 31. ЗАДАНИЕ

Модифицировать пример 20, расположив знак операции в виде
комбинированного списка.


Пример 22. (proj10) Переключатель в трех положениях

На форме создать:
поле ввода edVvod
текстовое поле lbText
переключатель chIzmen (установить AllowGrayed=True)
кнопку bbRun

В поле ввода можно вводить в зависимости от положения переключателя:
- серый - любые символы
- сброшен - только цифры
- установлен - только русские буквы
По нажатию кнопки переключатель устанавливается в положение "Серый"
По нажатию Enter в поле ввода введенный текст переходит в текстовое
поле, а поле ввода очищается.

В секции Private
procedure ClearEdVvod;
В секции implementation
procedure TfmExample.ClearEdVvod;

begin

// Очистить поле ввода
edVvod.Text:='';
edVvod.SetFocus;

end;

Событие ONClick переключателя
ClearEdVvod;

Событие ONClick кнопки
chIzmen.State:=cbGrayed;
ClearEdVvod;

Событие KeyPress элемента ввода

if key=#13 then
begin
lbText.Caption:=edVvod.Text;
ClearEdVvod;
end
else
// Если переключатель сброшен - только цифры
if chIzmen.State=cbUnchecked then
begin
if not(Key in ['0'..'9']) then Key:=#0;
end
else
// Если переключатель установлен - только буквы
if chIzmen.State=cbChecked then
if not(Key in ['а'..'я','А'..'Я']) then Key:=#0;


Пример 22. ЗАДАНИЕ

В двух полях ввода находятся целые числа. Используя переключатели,
найти
а) В зависимости от положения переключателя сумму или разность чисел
б) В зависимости от положения переключателя сумму, разность или произведение
чисел

Пример 24. ЗАЛАНИЕ

Модифицировать пример 20, расположив знак операции в виде
зависимых переключателей.

Пример 37. ЗАДАНИЕ

Проверка знания таблицы умножения

На форме должна быть талица 9*9 с заполненными заголовками
строк и столбцов (от 1 до 9). В эту таблицу учащийся может
внести результаты умножения соответствующих чисел (один или несколько). По нажатию на кнопку
в текстовом поле должны быть перечислены допущенные ошибки
или появиться сообщение о правильности ввода

Пример 39. ЗАДАНИЕ

Почти Блокнот

Добавьте к программе предыдущего примера еще 2 кнопки, связав их со
стандартными диалоговыми окнами: Сохранение файла и Поиск подстроки.
Реализация сохранения текста - метод SaveToFile поля Lines многострочного
редактора; поиск подстроки - в соответствии с примером 33.

Пример 41. ЗАДАНИЕ

Летающая буква

Поместить в центр формы символ. Каждые 100 мс он должен перемещаться
по форме случайным образом (смещения Top и Left - на Random(4)), отражаясь
от границ формы

[programistka]

Пример 43. ЗАДАНИЕ

Создайте главную форму с табличным редактором для размещения
данных о студентах и кнопку для добавления нового студента
(*** и редактирования текущего ***). По нажатию этой кнопки должны
вводиться следующие данные: Фамилия, Имя, Факультет (поле со списком),
Курс (поле ввода с возможностью контроля), Пол (зависимый перекльчатель)

Пример 45. ЗАДАНИЕ

Разработайте программу ввода результатов экзаменов:
Меню Файл
подменю Экзамены
подменю Выход
Меню Параметры
подменю Студенты
подменю Предметы

Подменю Экзамены: табличный редактор ввода оценок
Подменю Студенты: ввод студентов, сдаюших экзамены (первый столбец
таблицы Экзамены)
Подменю Предметы: ввод списка экзаменационных предметов (первая строка
таблицы Экзамены)

Пример 47. Смена рисунков (proj27)

На главной форме создать:
кнопку bbRun
рисунок imMain (размеры установите почти во всю форму. свойства Stretch=True и AutoSize=False

По нажатию кнопки на форму должны выводиться рисунки *.wmf из каталога
c:\temp\1

Секция Implementation

const
aPath='c:\temp\1\';

var
aSearch:TSearchRec;
iw,ih:integer; // начальный размер компонента Image

Procedure ScaleImage; // масштабирование
var
pw,ph:integer; // размер изображения
scaleX,scaleY,scale:real;
r:integer;

begin
pw:=fmExample.imMain.Picture.Width; // ширина
ph:=fmExample.imMain.Picture.Height ; // высота

if pw>iw then
ScaleX:=iw/pw //надо масштабировать по X
else
ScaleX:=1;

if ph>ih then
ScaleY:=ih/ph //надо масштабировать по y
else
ScaleY:=1;

if ScaleX<ScaleY then
Scale:=ScaleX
else
Scale:=ScaleY;

// Новые размеры imMain

fmExample.imMain.Width:= round(fmExample.imMain.Picture.Widt h*Scale);
fmExample.imMain.Height:= round(fmExample.imMain.Picture.Heig ht*Scale);

r:=FindNext(aSearch);
if r<>0 then
fmExample.bbRun.Enabled:=false;

end;

procedure FirstPicture; // Вывести 1-ю картинку
var

aFile:string;
begin

FindFirst(aPath+'*.wmf',faAnyFile,a Search);
aFile:=aPath+aSearch.Name;
fmExample.imMain.Picture.LoadFromFi le(aFile);
ScaleImage;

end;

procedure NextPicture; // Вывести 1-ю картинку
var
aFile:string;

begin

aFile:=aPath+aSearch.Name;
fmExample.imMain.Picture.LoadFromFi le(aFile);

ScaleImage;

end;

Событие ONActivate формы:
iw:=imMain.Width;
ih:=imMain.Height;
FirstPicture;


Событие ONClick кнопки:

NextPicture;

[programistka]

помогите мне нужно сдать эти задачи до конца этой недели

[merax]

Однозначно надо во фриланс.

[programistka]

Сообщение от merax

Однозначно надо во фриланс.

а это как???
задачи на объектное ориентирование

[AngelOfDeath]

Во фриланс
И вообще эту тему следует закрыть из-за названия

Сообщение от merax Посмотреть сообщение
Однозначно надо во фриланс.

а это как???

есть такой раздел фриланс
Там выполнят эти задачи за деньги

[B_N]

14 заданий и ни одной своей мысли + срочность... однозначно фриланс. Начиная от $150, если не больше.

[programistka]

извените наверное я не туда попала т.к. денег у меня нету))))

[Stilet]

Я тему переместил, но чесно говоря были мысли ее удалить согласно последнему посту.

[Fainder]

Убивайте тему, т.к. авторешалки здесь нет