VPF::помогите подправить код - Форум программистов

Truegirl

Дата 6.7.2009, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

Ребята, помогите пожалуйста, задание следующее

x =a^2-√(2&a)
z={█(ln⁡〖x+1,если x>0,5〗@x, если x≤05)┤
y=√(5&π*a^2+1/b) + (z-a/2)/(a+b)
n - количество вычисленных x
M=max{y};
K=n!

вот то что я написала

Код


var   An, hA, x, y,  b, c, a, z : real;
k, n: integer;
begin
An:=StrToFloat(Edit_An.Text);
hA:=StrToFloat(Edit_hA.Text);
b:=StrToFloat(Edit_b.Text);
c:=StrToFloat(Edit_c.Text);
k:=0; a:=An; x:=0;
n:=0;
while  (n<=c)  do
begin
if a<0 then  ShowMessage('Error!!!!!')
else
  x:=a*a-sqrt(a);
if x>1/2 then z:=ln(x)+1 else z:=x;

if (b=0) or (a+b=0) then Showmessage('Error!!!!!');
 else
  begin
 y:=exp(1/5*ln(pi*a*a+1/b))+((z-a/2)/(a+b));
 Memo1.Lines.Add('a =  ' + FormatFloat('##0.0', a)+
 '  x =  '+FormatFloat ('##0.0', x)+
 '  y =  '+FormatFloat ('##0.0', y));
 a:= a + hA;
 n:=n+1;
  end;
 end;
 Edit_n.Text:=IntToStr(n);
k:=Fact(n);
Edit_K.Text:=IntToStr(k);

end;

проблема в том, что если я ввожу b=0 или a+b=0 то выскакивает ошибка, и дальше программа не идет, как это исправить?

Данкинг

Дата 6.7.2009, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Truegirl @ 6.7.2009, 19:10

)

выскакивает ошибка

Какая ошибка?
Кстати, обрати внимание, что после "Error!!!!!" у тебя программа всё равно будет продолжаться со строки 15.

Это сообщение отредактировал(а) Данкинг - 6.7.2009, 18:30

--------------------

There's nothing left but silent epitaphs.

Truegirl

Дата 6.7.2009, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

а как, прекратить работу программы?

Keeper89

Дата 6.7.2009, 19:51 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Можно написать
Exit
После каждого вывода сообщений об ошибке, но я бы оптимизировал алгоритм, например, объединив условия ошибки в одно.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Truegirl

Дата 6.7.2009, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

это как?

Данкинг

Дата 6.7.2009, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Truegirl @ 6.7.2009, 20:10)

а как, прекратить работу программы?

Код


if a<0 then  begin ShowMessage('Error!!!!!');exit;end;

Это сообщение отредактировал(а) Данкинг - 6.7.2009, 20:02

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »