[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

Код:

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 вместо

Код:

Form1.Close;

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

Код:

Application.Terminate;