[qwerty1991]

1. Создать 3 формы в однооконном приложении (SDI- документы).
2. На первую форму поместить заставку и главное меню. Создать пункты главного меню :
• Переход на форму 2
• Переход на форму 3
• Выход
В редакторе кода создать соответствующие процедуры.
3. На форме 2 создать интерфейс пользователя и написать необходимые процедуры для решения задачи 1. Создать процедуру перехода на форму 1.

Задача 1. Написать программу вычисления площади прямоугольника.


Помогите кто-нибудь пожалуйста! зачет надо сдать, а я полный 0 в Delphi.

[iliasmalorum02]

1234567890

[iliasmalorum02]

Я добавил на этот сайт исходники решения твоей задачки

-------------------------
Aristarh Dark
Где ссылка? за сутки не выложишь - удешь глуже в минус... ну а дальше и баном запахнет

[vah-smile]

Переходи между формами осуществляются так:
• Form1.Show - Показать Form1
• Form1.Hide - спрятать Form1

Закрить приложение:
• Form1.Close

Формула для нахождения площи прямоугольника:
• S = a * b

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); // Задаешь новую переменную var S, a, b: real; // Тело программы begin // Задаешь значение для переменных a и b // StrToFloat - Переводит текст в дробное число   a:= StrToFloat (Edit1.Text);   b:= StrToFloat (Edit2.Text);   // Делаешь опперации над числами  S = a * b;    // В поле Edit1 передаешь значение переменной S // FloatToStr - Переводит дробное число в строку  Edit1.Text := FloatToStr(S);   end;

[qwerty1991]

Спасибо за помощь)
Народ, а как на форму 1 поставить картинку?

[iliasmalorum02]

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

Спасибо за помощь)
Народ, а как на форму 1 поставить картинку?

Добавь на форму компонент Image. В любом месте кода добавь Image1.Picture.LoadFromFile('<путь к файлу>'); или просто нажни на кнопку с многоточием в свойстве Picture и в диалоге выбери Load

[iliasmalorum02]

Я не знаю, может у меня всё криво и никому не подходит, но посмотрите решение задачки:
http://rapidshare.com/files/37120587...y1991.rar.html

[Aristarh Dark]

Сообщение от vah-smile

Закрить приложение:
• Form1.Close

В жизни бы не подумал... Или я отстал... Не обессуд(т)ьте

[NIch]

Создатели Delphi вместо

Код:

1	Form1.Close;

рекоммендуют

Код:

1	Application.Terminate;