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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2009, 22:45   #1
Dmitriy-e-nest
Пользователь
 
Регистрация: 15.01.2009
Сообщений: 16
Восклицание "Разветляющие процессы" Прозьба проверить код!

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y:real;
Label M1;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
if a>b then
if 1+cos(a)<>0 then x:=sqr(sin(a))/sqr(1+cos(a))
else
Begin
Showmessage('x not posible');
GoTo M1
end
else if a-b>0 then
if a*(ln(a-b)/(ln(10)))>0 then x:=(ln(a*(ln(a-b)/ln(10)))) else
begin
Showmessage('x not posible');
GoTo M1
end
else
begin
Showmessage('x not posible');
GoTo M1
end;

if x=a then if (b*x)>=0 and (x<>0) then
begin
if ((a+b)/x)+sqrt(b*x)>=0 then y:=sqrt((a+b)/x+sqrt(b*x))
else
Begin
Showmessage('x not posible');
GoTo M1
end;
begin
Showmessage('y not posible');
GoTo M1
end;
end
else if x<a then
if sin(x)/cos(x)+cos(x)/sin(x)<>0 then
y:=1/(sin(x)/cos(x)+cos(x)/sin(x))
else
begin
Showmessage('y not posible');
GoTo M1
end
else if abs(x-b)>=0 then
if (x-a)>=0 then
y:=exp(1/3*ln(abs(x-b)))*sqrt(x-b)
else
begin
Showmessage('x not posible');
GoTo M1
end
else
begin
Showmessage('y not posible');
GoTo M1
end;
Edit3.text:=FormatFloat('0.###',x);
Edit4.text:=FormatFloat('0.###',y);
M1:
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.
Dmitriy-e-nest вне форума Ответить с цитированием
Старый 15.01.2009, 22:53   #2
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Ну нету у меня среды Дэлфи, нету.
Как же ты готовишься-то без неё...
(А процессы — разветвляющиеСЯ.)
Sasha_Smirnov вне форума Ответить с цитированием
Старый 15.01.2009, 23:21   #3
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

У вас здесь ошибка
Код:
if x=a then if (b*x)>=0 and (x<>0) then
Вы забыли скобки. Сделайте так:
Код:
if x=a then if ((b*x)>=0) and (x<>0) then
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 15.01.2009, 23:37   #4
Dmitriy-e-nest
Пользователь
 
Регистрация: 15.01.2009
Сообщений: 16
По умолчанию

Спасибо! программа запустилась но мое дано: А=-0,6 В=1
не считает ((
Dmitriy-e-nest вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа "простые итерации". Готовый код. Проблема с компилированием. Oleg330 Общие вопросы C/C++ 9 25.12.2008 23:51
Help! Как проверить наличие "рисунков" в листах книги? Bezdar Microsoft Office Excel 4 15.08.2008 15:09
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49