writeln; writeln('Rassroyanya mezhdu tochkami: '); writeln('AB->',r1:6:2); writeln('BC->',r2:6:2); writeln('AC->',r3:6:2); writeln; max:=r1; if r2>max then max:=r2; if r3>max then max:=r3; if r1=max then writeln('Max rast. mezhdu A i B'); if r2=max then writeln('Max rast. mezhdu B i C'); if r3=max then writeln('Max rast. mezhdu A i C'); writeln; readln; end.
andriano
25.12.2009 19:47
Обрати внимание, что в твоем тексте есть фрагменты, практически полность повторяющие дру друга. Вот такие фрагменты и надо реализовать в виде функций, которые затем могут быть неоднократно использованы.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.