Извините за наглость, но помогите с одной програмкой

← →
Жаждущий помощи (2006-07-14 00:07) [0]

Создайте проект, на главной форме которого должны размещаться три компонента Edit, три компонента RadioButton и кнопки “Результат”, “Выход”. В качестве входных данных вводятся две переменные со значениями 0 или 1. С помощью компонентов пользователь избирает логическую операцию and, or, xor. При нажатии кнопки “Результат” в третий компонент должен выводиться результат выполнения логической операции.
Что-то я вообще не представляю как будет выглядит эта программа :*(
Кто-нибудь может помочь в её написании?...

← →
Gero © (2006-07-14 00:09) [1]

Я могу помочь, 10$.

← →
Marser © (2006-07-14 00:10) [2]

Вопросики:
1. Зачем нужно?
2. Что непонятно?
3. Чем оплачиваете?

← →
Andy BitOff © (2006-07-14 00:11) [3]

Gero © (14.07.06 00:09) [1]

Не многовато, для такой задачи? =))

← →
Vlad © (2006-07-14 00:11) [4]

Что конкретно не получается? Edit-ы на форму кинуть? Или (x and y) сложить?

← →
Жаждущий помощи (2006-07-14 00:11) [5]

Предложение хорошее, но всё же хотелось чтобы не за 10 баксов, а за простое человеческое спасибо :))

← →
Жаждущий помощи (2006-07-14 00:12) [6]

> Что конкретно не получается? Edit-ы на форму кинуть? Или
> (x and y) сложить?

Во- первых что такое "xor", во-вторых хоть убейте не знаю как работать с RadioButton

← →
Gero © (2006-07-14 00:13) [7]

> [3] Andy BitOff © (14.07.06 00:11)

> Не многовато, для такой задачи? =))

За меньше даже не вижу смысла кипер запускать.

← →
Andy BitOff © (2006-07-14 00:13) [8]

Жаждущий помощи (14.07.06 00:11) [5]
за простое человеческое спасибо

Ну ты дал!!!
За спасибо - знакомым, очень хорошим знакомым, а ты у нас кто, Жаждущий помощи.

← →
Gero © (2006-07-14 00:13) [9]

> Во- первых что такое "xor", во-вторых хоть убейте не знаю
> как работать с RadioButton

В F1 все есть.

← →
Жаждущий помощи (2006-07-14 00:15) [10]

> В F1 все есть.

Только одна проблемка, у меня этот F1 весь на англ...

← →
Marser © (2006-07-14 00:18) [11]

> [10] Жаждущий помощи (14.07.06 00:15)
>
> > В F1 все есть.
>
>
> Только одна проблемка, у меня этот F1 весь на англ...

Это твоя проблема.

← →
Andy BitOff © (2006-07-14 00:18) [12]

Жаждущий помощи (14.07.06 00:15) [6]
Жаждущий помощи (14.07.06 00:15) [10]

Если ты не знаешь, что такое xor, то у тебя не одна проблемка, хотя нет, одна, но очень большая.

← →
Жаждущий помощи (2006-07-14 00:19) [13]

> Это твоя проблема.

Какие вы все здесь добрые!!! :))

← →
Жаждущий помощи (2006-07-14 00:20) [14]

> Если ты не знаешь, что такое xor, то у тебя не одна проблемка,
> хотя нет, одна, но очень большая.

Когда изучаешь Delphi очень посредственно, то не особо вдаёшься в детали языка.....

← →
Vlad © (2006-07-14 00:21) [15]

> Во- первых что такое "xor", во-вторых хоть убейте не знаю
> как работать с RadioButton

какая тебе разница что такое xor, пиши и все. a xor b
С радиобаттонами работать просто. Если их кладешь на одну форму, они включаются попеременно. Просто проверяешь свойство checked, чтобы узнать какой из них выделен.
С тебя 10 бакинских :-)

← →
Жаждущий помощи (2006-07-14 00:22) [16]

> С тебя 10 бакинских :-)

С меня много пЫва...

← →
Marser © (2006-07-14 00:41) [17]

> [7] Gero © (14.07.06 00:13)
> > [3] Andy BitOff © (14.07.06 00:11)
>
>
> > Не многовато, для такой задачи? =))
>
> За меньше даже не вижу смысла кипер запускать.

Лентяй...

← →
Жаждущий помощи (2006-07-14 01:10) [18]

Вопросик чуть изменился...procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); if RadioButton1.Checked then begin c:=a and b; end; if RadioButton2.Checked then begin c:=a or b; end; if RadioButton3.Checked then begin c:=a xor b; end; Edit3.Text:=IntToStr(c) end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close; end; end.
Это правильно???

← →
Marser © (2006-07-14 01:11) [19]

Да.

← →
Жаждущий помощи (2006-07-14 01:12) [20]

> Да.

Спасибо.....кто там модер - УДАЛЯЙТЕ тему ;)

← →
Marser © (2006-07-14 01:13) [21]

Только тип я бы брал беззнаковый - byte, word или cardinal, да и вместо трёх радиобаттонов и ифов можно использовать RadioGroup и case...

← →
Джо © (2006-07-14 01:34) [22]

> Form1.Close;

И вместе Form1.Close просто Close во избежание.

← →
Marser © (2006-07-14 01:39) [23]

> [22] Джо © (14.07.06 01:34)
> > Form1.Close;
>
> И вместе Form1.Close просто Close во избежание.

Или self.Close. Оно, конечно, правильино, но негуманно загружать несозревший ум.

З.Ы. Хотя меня сейчас запинают по поводу того, что это база, с этого надо начинать и т.д. У меня ответ готов - не надо фарисействовать. Все знают как лучше, но у немногих так выходило. Хотя знать, что нельзя упоминать имя класса в его пределах, нужно хотя бы без обоснований...

← →
Жаждущий помощи (2006-07-14 02:14) [24]

извините....вот ещё вопросик
прграмка выглдит так:
procedure TForm1.Button1Click(Sender: TObject); var u,f:real; begin u:=StrToFloat(Edit1.Text); if 1-sqr(u)>0 then f:=power(u,1/3)/(power(1-sqr(u),1/2)) else MessageDlg("решений нет",mtInformation,[mbOk],0); Memo1.Clear; Memo1.Lines.Add("ответ равен - "+FloatTostr(f)); end;
Что в неё неправильно.....потому что она постоянно если 1-sqr(u)<0 выдаёт ответ ответ равен - 2,63588452953197E-308

← →
Жаждущий помощи (2006-07-14 02:40) [25]

И ещё....как сделать так, чтобы значение "u" получалось из файла, а не путём ввода в Edit???

← →
sniknik © (2006-07-14 08:20) [26]

> потому что она постоянно если 1-sqr(u)<0 выдаёт ответ ответ равен - 2,63588452953197E-308

все дело в правильном форматировании... ;) те же строки только в другом порядке и все будет ок
procedure TForm1.Button1Click(Sender: TObject); var u,f: real; begin u:= StrToFloat(Edit1.Text); if 1-sqr(u)>0 then begin f:= power(u, 1/3) / (power(1-sqr(u), 1/2)); Memo1.Clear; Memo1.Lines.Add("ответ равен - " + FloatTostr(f)); end else MessageDlg("решений нет", mtInformation, [mbOk], 0); end;

> чтобы значение "u" получалось из файла
любого?
можно по разному, через файловые операции (AssignFile, Readln, .... +F1), файлы могут различных типов быть, файловые потоки (TFileStream +F1), методы компонент (Memo1.Lines.LoadFromFile +F1), но тут только текстовый файл (вернее того типа который нужен компоненту метод которого используется), можно даже из ini файла, тоже ведь файл (TIniFile +F1).

пример с методом (убого, без проверок, для одного значения из файла в одну строку... в общем просто показать)

procedure TForm1.Button1Click(Sender: TObject); var u,f: double; begin Memo1.Lines.LoadFromFile("c:\ValueFile.txt"); Edit1.Text:= Memo1.Text; Memo1.Clear; u:= StrToFloat(Edit1.Text); if 1-sqr(u)>0 then begin f:= power(u, 1/3) / (power(1-sqr(u), 1/2)); Memo1.Lines.Add("ответ равен - " + FloatTostr(f)); end else MessageDlg("решений нет", mtInformation, [mbOk], 0); end;

← →
StriderMan © (2006-07-14 12:25) [27]

> Marser © (14.07.06 01:39) [23]
> нельзя упоминать имя класса в его пределах

и где там имя класса упоминается? :)

Раз уж решили давать серьезные советы, все же придерживайтесь терминологии.

← →
DVM © (2006-07-14 12:32) [28]

> и где там имя класса упоминается? :)

Form1.Close;

правда это не имя класса :)

> StriderMan © (14.07.06 12:34) [29]
>
> > DVM © (14.07.06 12:32) [28]
> > Form1
>
> все же это объект класса TForm1

Правда? Даже если var Form1: Integer;?

> [27] StriderMan © (14.07.06 12:25)
>
> > Marser © (14.07.06 01:39) [23]
> > нельзя упоминать имя класса в его пределах
>
> и где там имя класса упоминается? :)
>
> Раз уж решили давать серьезные советы, все же придерживайтесь
> терминологии.

Имя экземпляра класса, объекта, то бишь.
А серьёзные советы я здесь начал давать гораздо раньше, чем ваш ник нашёл дорогу на этот форум.

> [28] DVM © (14.07.06 12:32)
>
> > и где там имя класса упоминается? :)
>
> Form1.Close;

Всё верно, мой ляп.

> А серьёзные советы я здесь начал давать гораздо раньше,
> чем ваш ник нашёл дорогу на этот форум.

"бросьте срамиться, Павор, а лучше повернитесь-ка
профилем и иронически усмехнитесь"

> [32] Плохиш © (14.07.06 12:37)
>
> > StriderMan © (14.07.06 12:34) [29]
> >
> > > DVM © (14.07.06 12:32) [28]
> > > Form1
> >
> > все же это объект класса TForm1
>
> Правда? Даже если var Form1: Integer;?

Такое не компилируется, следовательно, в расчет не берется. А вот with Form1.Create(self), к примеру, компилируется и, если не указано, что Form1 = class (TForm) (изврат редкий), то это представляет опасность. Так же представляет опасность и Form1.Close, в случае создания множественных экземпляров класса - опасность не менее серьёзную, чем описанный бред с with.

> [34] Игорь Шевченко © (14.07.06 12:41)
>
> > А серьёзные советы я здесь начал давать гораздо раньше,
>
> > чем ваш ник нашёл дорогу на этот форум.
>
>
> "бросьте срамиться, Павор, а лучше повернитесь-ка
> профилем и иронически усмехнитесь"

Ну да, у вас советы посерьёзнее. В ветке про коммунизм там россыпями. Про язык, брёвна и т.д...
Вроде очевидно, зная меня, что я просто принял терминологию собеседника, не так ли?

> Плохиш © (14.07.06 12:37) [32]
> Правда? Даже если var Form1: Integer;?

нет конечно, я говорю про конкретный пример.

> А серьёзные советы я здесь начал давать гораздо раньше,
> чем ваш ник нашёл дорогу на этот форум.

очень за вас рад :)

Я к чему это все... Ни коим образом не собирался кого-то обидеть. Ежели что, извиняюсь.

> Всё верно, мой ляп.

и на том спасибо :)

> Marser © (14.07.06 12:43) [35]
> > [32] Плохиш © (14.07.06 12:37)
> > Правда? Даже если var Form1: Integer;?
>
> Такое не компилируется, следовательно, в расчет не берется.

Что ж Вы такое с Делфи-то сделали?

> [37] StriderMan © (14.07.06 12:47)

> Я к чему это все... Ни коим образом не собирался кого-то
> обидеть. Ежели что, извиняюсь.

Да пустое :-)

> и на том спасибо :)

Программирование - штука непринципиальная, ошибки признавать легко и даже приятно (иногда) :-)
Особенно если нет эфемерных амбиций в пределах форума. А у меня их уж нет...

> [38] Игорь Шевченко © (14.07.06 12:49)
> Marser © (14.07.06 12:45) [36]
>
> Завидовать дурно (с) "Попытка к бегству"

Уважаемый, не кажется ли Вам, что завидовать старшему на четверть века человеку как-то неразумно? Мне почему-то кажется. Потому что до вашего возраста я могу вообще не дожить, а могу взлететь много выше, Бог ведает, желаю дожить до 2031 года.

Извините за наглость, но помогите с одной програмкой Найти похожие ветки