Вопрос по информатике:
сделать программу в делфи: Сократить дробь. пришлите пожалуйста код программы и всю программу на [email rotected]
- 26.09.2017 11:23
- Информатика
- remove_red_eye 4359
- thumb_up 69
Ответы и объяснения 1
Отправил.
Procedure TForm1.Button1Click(Sender: TObject);
var i,min,qw,bx:integer;
begin qw:=strtoint(edit1.Text);
bx:=strtoint(edit2.Text);
if qw>bx then min:=a else
min:=bx;
for i := 1to min do
if (qw mod i = 0) and (bx mod i = 0)
then
begin qw:=bx div i;
bx:=bx div i;
end;
edit1.Text:=inttostr(qw);
edit2.Text:=inttostr(bx);
end;
- 27.09.2017 14:37
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.