Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.04.2011, 19:46   #1
Аксана
Новичок
Джуниор
 
Регистрация: 05.04.2011
Сообщений: 1
По умолчанию не знаю где ошибка!

Помогите найти ошибку пожалуйста..спасибо заранее
program riski;
uses crt;
type mas=array[1..10] of real;
mas2=array[1..10,1..10] of real;
var a:real;
m,be,bm:mas;
B,E,b1,e1:mas2;
i,k,c,v,l,j,n:integer;
mp,ebe,mbm,ebm,x,mbe:real;

procedure base;
begin
for i:=1 to n do {1}
begin
for c:=1 to n do {2}
begin
for v:=1 to n do
begin
B1[c,v]:=B[c,v];
e1[c,v]:=e[c,v];
end;
end;
for k:=1 to n do
begin
B[i,k]:=B1[i,k]/b1[i,i]; {3}
E[i,k]:=E1[i,k]/b1[i,i];for l:=1 to n do
begin {4}
if l<>i then
begin
B[l,k]:=(B1[l,k]-(B1[l,i]*B1[i,k]/B1[i,i]));
E[l,k]:=(E1[l,k]-(B1[l,i]*E1[i,k]/B1[i,i]));
end;
end;
end;
end;

for i:=1 to n do {5}
begin
for j:=1 to n do
begin
be[i]:=be[i]+e[i,j];
end;
end;

for i:=1 to n do {6}
begin
for j:=1 to n do
begin
Bm[i]:=Bm[i]+m[j]*e[i,j];
end;
end;

for i:=1 to n do
begin {7}
ebe:=ebe+be[i]; {8}
ebm:=ebm+bm[i];
mbm:=mbm+m[i]*bm[i];
mbe:=mbe+m[i]*be[i];
end;
end;
procedure vvod ;
label out1, out2, out3, out4, out5;
var z:real; mi,ma:real;
begin
writeln;
writeln(' 9');
writeln;
writeln;
writeln(' 10');
writeln;
writeln(' 11');
writeln;
writeln(' 12');
writeln;
writeln;
writeln;
out1:
writeln;
writeln(' 13');
write(' 14 ');
readln(n);
if (n<=0) or (n<>int(n)) or (n>10) then
begin
writeln(' 15 ');
goto out1;
end;
writeln;

writeln(' 16');
for i:=1 to n do
begin
E[i,i]:=1;
out2:
write(' ',i,'-ого вида : ');
readln(m[i]);
if (m[i]<0) then
begin
writeln(' 17 ');
goto out2;
end;
end;
writeln;
writeln('18');
writeln(' 19');
writeln(' 20');
writeln(' 21');
writeln;
writeln(' 22 ');
for i:=1 to n do
begin
out3:
write('23 ');
readln(z);
if (z<0) then
begin
writeln(' 24 ');
goto out3;
end;
b[i,i]:=z*z;
end;

writeln;
writeln(' 25');
writeln(' 26');
for i:=1 to n do
begin
for j:=i+1 to n do {27}
begin
out4:
write(' ',i,'-го и ',j,'-го вида: ');
readln(z);
if abs(z)>=sqrt(b[i,i])*sqrt(b[j,j]) then
begin
writeln(' 28 ');
goto out4;
end;
b[i,j]:=z;
b[j,i]:=z;
if i<>j then begin E[i,j]:=0; end;
end;
end;
writeln;
ma:=0;
for i:=1 to n do
begin
if m[i]>ma then ma:=m[i];
end;
mi:=100000000;
for i:=1 to n do
begin
if m[i]<ma then
begin
writeln(' 29');
write(' 30 ');
goto out5;
end;
end;


procedure vivod ;
begin
writeln;
writeln(' 31');
for i:=1 to n do
begin
x:=((mbm-mp*ebm)*be[i]+(mp*ebe-mbe)*bm[i])/(ebe*mbm-mbe*mbe);
writeln(' ',i,'-го вида: ',x:6:5);
if x<0 then
begin
writeln(' 32');
writeln(' 33');
writeln(' 34');
end;
end;
writeln;
writeln(' Минимальный риск портфеля: ',sqrt((mp*mp*ebe-
2*mp*mbe+mbm)/(ebe*mbm-mbe*mbe)):6:5);
end;

begin
clrscr;
textcolor(yellow);
textbackground(blue);
vvod;
base;
vivod;
readln;

end.
Аксана вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
написал программу, где то ошибка, не пойму где... Kelevra91 Общие вопросы C/C++ 5 17.01.2011 16:38
BAss.dll Знаю тема где-то перетералась! Но! Дворник Мультимедиа в Delphi 5 05.08.2010 14:03
Поиск (не знаю где ошибка) denisov PHP 9 17.02.2010 16:50
Не знаю где ошибка 24nastya11 Помощь студентам 2 20.09.2009 20:43
Добавить инди в delphi 10 light, но как это зделать и где её взять не знаю 100GRamm Компоненты Delphi 1 09.02.2009 13:38