Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

почему закрывается делфи когда начинаю вводить данные

81K
04 июня 2012 года
alex_konin
3 / / 02.06.2012
program Pelengacia;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var x, f, h1, h2, h3, h4, A, K, i, lam, c, vc, r1, r2, r3, r4, r5, Pmw, Pdbm : real;
E1, E2, E3, E4, E5 : real;

begin
A:=0.1;
writeln('Rasstoyanie ot steny do peredatchika');
readln(h1);
writeln('Rasstoyanie ot steny2 do peredatchika');
readln(h2);
writeln('Rasstoyanie ot potolka do peredatchika');
readln(h3);
writeln('Rasstoyanie ot pola do peredatchika');
readln(h4);
writeln('chastota signala');
readln(f);
writeln('koefficient otrazheniya');
readln(K);
writeln('rasstoyanie');
readln(x);
{mnogoluchevoe rasprostranenie}
i:=sqrt(-1);
c:= 3*exp(8*ln(10));
lam:=c/f;
vc:=2*3.14/lam;
r1:=x;
r2:=sqrt(sqr(2*h1)+sqr(x));
r3:=sqrt(sqr(2*h2)+sqr(x));
r4:=sqrt(sqr(2*h3)+sqr(x));
r5:=sqrt(sqr(2*h4)+sqr(x));
E1:=A/(r1*exp(i*k*r1));
E2:= (A*K)/(r2*exp(i*k*r2));
E3:= (A*K)/(r3*exp(i*k*r3));
E4:= (A*K)/(r4*exp(i*k*r4));
E5:= (A*K)/(r5*exp(i*k*r5));
Pmw:=sqr(abs(E1+E2+E3+E4+E5));
Pdbm:=10*Log10(Pmw*1000);
write('dlina volny: lam =');
writeln(lam);
write('volnovoe chislo: vc =');
writeln(vc);
write('rasstoyanie ot pervogo mnimogo istochnika: r2 = ');
writeln(r2);
write(' rasstoyanie ot vtorogo mnimogo istochnika: r3 =');
writeln(r3);
write(' rasstoyanie ot tretego mnimogo istochnika: r4 =');
writeln(r4);
write(' rasstoyanie ot chetvertogo mnimogo istochnika: r5 =');
writeln(r5);
write('neotrazhenniy signal: E1 =');
writeln(E1);
write('otrazhenniy ot steny: E2 =');
writeln(E2);
write('otrazhenniy ot 2-oi steny: E3 =');
writeln(E3);
write('otrazhenniy ot potolka: E4 =');
writeln(E4);
write('otrazhenniy ot pola: E5 =');
writeln(E5);
write('mownost v watt: Pmw =');
writeln(Pmw);
write('mownost v dBm: Pdbm =');
writeln(Pdbm);
readln;
end.
20K
04 июня 2012 года
ellor!
198 / / 24.05.2012
 
Код:
i:=sqrt(-1);
81K
04 июня 2012 года
alex_konin
3 / / 02.06.2012
Цитата: ellor!
 
Код:
i:=sqrt(-1);

а как по другому мнимую единицу в делфи записать?????

20K
04 июня 2012 года
ellor!
198 / / 24.05.2012
Реализовывать работу с комплексными числами вручную или искать готовые модули Комплексные числа

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог