|
#1
|
|||
|
|||
Прога для дробей
Помогите пожалста создать прогу для решения обыкновенных дробей.
Как сложить дроби? |
#2
|
||||
|
||||
Вот исходник. Пример дроби: 1,2 НЕ В КОЕМ СЛУЧАЕ НЕ ПИШИ ВМЕСТО ЗАПЯТОЙ ТОЧКУ! Выйдет ошибка!
|
#3
|
||||
|
||||
В русском стандарте запятая является символом, разделяющем целую и дробную часть. А в американском - точка. Меняется это в "Язык и региональные стандарты".
Сложение обыкновенных дробей. procedure TForm1.Button1Click(Sender: TObject); var a1,a2,b1,b2,c1,c2: integer; begin a1:=StrToInt(Edit1.Text); //числитель первой дроби a2:=StrToInt(Edit2.Text); //знаменатель первой дроби b1:=StrToInt(Edit3.Text); //числитель второй дроби b2:=StrToInt(Edit4.Text); //знаменатель второй дроби c2:=a2*b2; //общий знаменатель c1:=a1*b2+b1*a2; //числитель результата Edit5.Text:=IntToStr(c1); Edit6.Text:=IntToStr(c2); end; Последний раз редактировалось 4erep_88, 05.09.2007 в 00:49. |
#4
|
||||
|
||||
Вот исходник похожей программы.
В ней можно складывать, вычитать, умножать и делить дроби. Делал быстро, поэтому можешь доработать. Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |