OdesitVadim
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DroN_S
Dim2004
Не флеймите, условия понятно, даже очень.
Alex_Ved
Первый клас школы
идея, полностью решения будеш делать сам
Код:
var d:array[1..5] of real;
p:array[1..3,1..3] of real;
i,j:integer;
k,a,b,c:real;
begin
//b - ввести наверное?
//ввод масивов с помощью readln или
//присвоение в стиле
D[1]=0.11; D[2]=0.13; D[3]= 0.18; D[4]=0.19; D[5]=0.21;
//вычисляем a
a:=0;
for i:=1 to 5 do a:=a+b*d[i];
а = 0,3 - 0,18*a;
//теперь с = 0,21 - 0,18*(сумма от1 до 3)(сумма от 1 до 3)(Pij – Di)
с:=0;
for i:=1 to 3 do
for j:=1 to 3 do
c:=c+P[i,j]*D[i];
c:=0,21 - 0,18*c;
//А вот и ответ
k:=a+c;
//Теперь выводим k
end;
|
Мож и не очень красиво, зато работать должно. Не было написано, на каком языке, поэтому ввод-вывод опустил (доделаеш сам). Ну а если ты не на этом языке пишешь - звиняйте, бананыв нема 
----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию. |
|
здесь про паскаль, по дельфи отдельная тема.