|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Простятская программка :)
Привет всем)
"учусь" на заочном и начали тут изучать Delphi, а я лох в программирование со школы еще ) вообщем нужно найти среднее арифметическое X в кубе и Y в кубе вот что я делаю ну рисую edit1, edit2, button1, edit 3 в едит1 буду вводить Х в едит2 буду вводить Y нажимаю на кнопку и результат выходит в edit3 и вот не пойму как записать что ((edit1.text*edit1.text*edit1.text)+(edit 2.text*edit2.text*edit2.text))/2=edit3.text (выглядит глупо) заранее очень благодарен |
#2
|
||||
|
||||
Элементарно
Ну так как в эдиты ты вводиш строки а перемножаются не строки а числа то тебе нужно из строки получить число делается в делфи это очень просто вот такой фунцией - StrToInt для целого числа
floatTostr для дробного ; вот твоя программа Код:
procedure TForm1.Button2Click(Sender: TObject); var a,b,c:real; // тип с плавуещей точнкой begin a:=StrToFloat(form1.Edit1.Text);// из текста делаем цисло b:=StrToFloat(form1.Edit2.Text);// из текста делаем цисло a:=Exp(3*ln(a)); // возволим в куб b:=Exp(3*ln(b)); // возволим в куб c:=(a+b)/2; // основной подсщет Edit3.Text:=FloatTostr(c); // вывод результата end; Последний раз редактировалось Sharky, 01.02.2009 в 15:37. |
#3
|
|||
|
|||
Я над таким вариантом думал и не понял как лучше присвоить))
спасибо огромное) тему можно закрывать |