задача на Delphi 7

[Юрий2009]

Составить программу, которая проверяла бы не приводит ли суммирование двуч целых чисел A и B к переполнению (т.е. к результату большему, чем 32767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел! Пожалуйста, напишите программу полностью!!!!

[Vladya]

Вот, попробуйте в кнопке пересчета написать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3. Text := IntToStr(StrToInt(Edit1.Text) + StrToInt (Edit2.Text));
if StrToInt(Edit3.Text)>=3 then
Begin
if MessageBox(handle, 'Число больше чем допускается, вернуться к вводу чисел?', 'Ошибка!', 4)=MrYes then
Begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
End;
End;
end;

end.

Вот сама программа: http://www.sharemania.ru/0207699

[Anna_N]

Помогите написать программу. Задача: Вычислить значение выражения по формуле (все переменные принимают действительные значение):
1) ln /cos x/ (числитель)
ln (1+x*x) (знаменатель)
2) Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.

[maladoy]

И в чем трудность?

[Vladya]

Anna_N а Вам вообще в чем писать ее нужно? Delphi или Pascal или еще что то?

[Anna_N]

Писать в Delphi 7. (А трудность в том, что я вообще в Delphi никогда не работала).

[bush007]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Label2: TLabel;
BitBtn1: TBitBtn;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
dlina: string;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);//нажали кнопку
begin
dlina:=edit1.Text;
edit2.Text:=IntToStr(sqr(StrToInt(d lina))); //площадь грани
edit3.Text:=IntToStr(sqr(StrToInt(d lina))*6) ;//площадь поверхности
edit4.Text:=IntToStr(sqr(StrToInt(d lina))*(StrToInt(dlina))); //обьем куба
end;

end.
-----
Четыре edit на форму, кнопку , 4 Label.
Правда ввод не проверяется на пустой или на наличие букв в значении длины ребра. Добавьте господа программеры проверку правильности ввода в эдит1 после нажатия кнопки.

[Vladya]

Ну если я правильно понял то вот первое задание:
http://www.filehoster.ru/files/cm3988