ZyXEL

Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата: Код в студию! На что у тебя компилятор ругается - errors, warnings. Ключи компиляции, настройки оптимизатора. А код в студию - однозначно. | Код: program sopr; uses crt; var r,c,f,z:real; Function impedans(r:real; c:real; f:real):real; {ошибка была f:integer} var {ошибка: не присвоено значение функции impedans} z:real; xc:real; impedans:real; Begin xc:=1/(2*3.1415926*f*c); z:=sqrt(r*r+xc*xc); end; Begin writeln('введите в одной строке сопротивление (Ом) емкость', '(микрофорад) и частотц (Гц) ->'); readln(r,c,f); z:=impedans(r,c,f); writeln('полное сопротивление',z); Readln; end. | программа не выдаёт ошибок, просто не горит кнопка запустить просто странно из-за чего! она работает под паскалем 6.0! операц сист ХРсп2, ПО Borland Deplhi 8.0 for the Microsoft .Net Framework Architect Edition |