Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2011, 20:45   #1
hacker_xD
Новичок
Джуниор
 
Регистрация: 03.03.2011
Сообщений: 1
По умолчанию Замена Exit

Я написал программу для вычисления выражения:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,y,z,koren,znamenatel:double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
y:=StrToFloat(Edit3.Text);

koren:=cos(b+y)*cos(b+y)*cos(b+y)+2 .05;
if koren<0 then
begin
label4.Caption:='Корень меньше нуля';
Exit;
end;
znamenatel:=1.15*y-b;
if znamenatel=0 then
begin
Label4.Caption:='Знаменатель равен нулю';
Exit;
end;

z:=(sqrt(cos(b+y)*cos(b+y)*cos(b+y) +2.05))-((pi*a)/(1.15*y-b));
Label4.Caption:='z = '+FloatToStr(z);
end.

Программа работает нормально, но в задании требуется переделать программу так, чтобы слово Exit вообще не использовалось. Что можно использовать вместо Exit?
hacker_xD вне форума Ответить с цитированием
Старый 03.03.2011, 20:50   #2
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

else (дурацкое ограничение в 10 символов)
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с case и exit в Delphi Matricaria Помощь студентам 17 24.10.2013 14:23
Замена q на u, а u на q xkpukx Паскаль, Turbo Pascal, PascalABC.NET 3 15.12.2010 07:16
ЗАМЕНА ing60 Microsoft Office Excel 3 22.04.2009 12:41
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL DorianLeroy Фриланс 8 18.02.2009 18:52
Mouse Exit для TForm JoanM Общие вопросы Delphi 23 25.01.2008 12:54