![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 03.03.2011
Сообщений: 1
|
![]()
Я написал программу для вычисления выражения:
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? |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 13.08.2009
Сообщений: 2,581
|
![]()
else (дурацкое ограничение в 10 символов)
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с 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 |