Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Программа для нахождения моментов спектральных полос
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Kamil83 Kamil83 вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.01.2011
По умолчанию Программа для нахождения моментов спектральных полос - 15.01.2011, 16:21

Помогите пожалуйста.
имеется программа для нахождения моментов спектральных полос.
тока перед этим необходимым условием является чтобы полоса относительно максимума была симметрична (то есть количество точек до максимума =количеству точек после)
Я написал код, тока где то запутался и прога не работает.
procedure TForm1.Button1Click(Sender: TObject);
type massiv=array[1..10000] of real;
var
N,i,j,k, kmax:integer;
v,Iv:massiv;
Ivmax, vmax:real;
dv, Iint,v1, v2:real;
f1,f2:textFile;
fName:String[80];
begin
fName:=Edit1.Text;
assignFile(f1,fName); reset(f1);
assignFile(f2,'M_2.dat'); rewrite(f2);
j:=0;
while not EOF(f1) do
begin
j:=j+1;
readln(f1,v[j],Iv[j]);
end;
n:=j;
vmax:=v[1];
Ivmax:=Iv[1];
for i:=2 to N do
begin
if Iv[i]>=Ivmax then
begin
Ivmax:=Iv[i];
vmax:=v[i];
kmax:=i;
end;
end;

label1.Caption:=inttostr(kmax-1);
label2.Caption:=inttostr(kmax+1);
if kmax-1<N-(kmax+1) then
begin N:=2*kmax-1;
for k:=1 to N do writeln (f2, v[k],Iv[k]);
end;
if kmax-1>N-(kmax+1) then
begin k:=kmax+1-N;
for k:=1 to N do writeln (f2, v[k],Iv[k]);
end;


end;
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вместо белых разделительных полос высвечивает буквы DDDDDDDD. Светлана Р. Любые вопросы от новичков 9 16.03.2011 13:15
Программа для нахождения потерянного мобильного телефона. CB111 Любые вопросы от новичков 11 06.03.2011 15:13
Алгоритмом нахождения кратчайшего пути на С/C++ Pups_qwe Вопросы начинающих программистов 0 25.12.2010 23:01
Теория графов для нахождения маршрута kobagusev Вопросы начинающих программистов 0 16.12.2010 19:38
Нахождения простых чисел kdinisv PHP 1 19.10.2009 14:20
Алгоритм поиска похожих моментов в массиве bulzz Алгоритмы 1 22.04.2009 09:50
Алгоритм нахождения максимального потока Rifler Prolog 1 13.04.2009 18:07
Нахождения ряда Фибоначчи prouser Visual C++ 5 07.05.2008 00:03
Программа нахождения чисел с рекурсиями на С++ bogardan Вопросы начинающих программистов 4 17.01.2007 23:26
Функция нахождения кода буквы Pchelka С/С++ 8 02.06.2006 19:55
Алгоритм Евклида для нахождения НОД и НОК syn Prolog 3 28.09.2005 18:05
Как изменить ширину полос прокрутки ScrollBars на форме kitw Visual C++ 4 13.10.2004 18:08



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов