Сделать программу в делфи: сократить дробь. пришлите код программы и всю программу на [email protected]

отправил.

 

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;  

Всовременной науке рассматриваются два вида информации: объективная (первичная) информация — свойство материальных объектов и явлений (процессов) порождать многообразие состояний, которые посредством взаимодействий ( взаимодействия) другим объектам и запечатляются в их структуре. субъективная (семантическая, смысловая, вторичная) информация – смысловое содержание объективной информации об объектах и процессах материального мира, сформированное сознанием человека с смысловых образов (слов, образов и ощущений) и зафиксированное на каком-либо материальном носителей.

Dial-up - соединение через телефонную линию на той же частоте что и сам телефон, поэтому при таком подключении телефнная линия занята adsl- асинхронная технология передачи данных, т.е. скорость входа и выхода отличаются, причем зачастую довольно неплохо tcp/ip- протокол контроля доставки пакета и присвоения адреса ip http- протокол передачи данных для гипертекстовых документов ftp - файловый протокол передачи pop - протокол получения электронной почты smtp - протокол отправки эл. сообщений dtm - протокол динамической коммутации каналов