Pascal ABC

[Раджаб bro]

Пожалуйста помогите у меня нет времени в этом сейчас разобраться надо срочно решить,срочноо,если надо могу полтинник на счёт скинуть не больше( ибо студент.

 

[Vladimir_S]

Да пожалуйста:

Const
 n=23;
Var
 i:Byte;
 M,D,a:Real;
Begin
 M:=0;
 D:=0;
 For i:=1 to n do
  begin
   if i>17 then a:=Sin(i) else a:=Cos(Sqr(i))/Sin(Sqr(i));
   M:=M+a;
   D:=D+Sqr(a);
  end;
 M:=M/n;
 D:=D/n-Sqr(M);
 Writeln('M= ',M:0:5);
 Writeln('D= ',D:0:5);
 Readln
End.

 

[Раджаб bro]

Вы..вы просто космос...tehno004

 

[Раджаб bro]

Спасибоо))))
Номер напишите я вам на счет кину

 

[Vladimir_S]

Номер напишите я вам на счет кину

Боюсь, этого будет мало...

Спасибоо))))

А вот это - в самый раз!

 

[Раджаб bro]

Декан не одобрил(

 

[AlexZir]

Декан не одобрил

Он что, код не понял? Что ему не понравилось?

 

[Раджаб bro]

Вот

 

[Раджаб bro]

Всю пару голову ломал ничего не вышло.Вроде правильно написано.

 

[AlexZir]

Гы, я бы тоже немного охренел, если бы увидел подобный код )

Владимир дал вам абсолютно рабочий листинг, а вы в нем дописали массив, который там абсолютно не нужен. Более того, этот самый массив вы используете в вычислениях без указания индекса, что вызывает недоумение.

Так что советую не заниматься отсебятиной и показать преподу вариант решения, предложенный Владимиром.

 

[Раджаб bro]

Это декан всё написал.Про индекс тоже что-то говорил.

 

[Vladimir_S]

Это декан всё написал.

То есть это зловредный декан туда массив всандалил?

Про индекс тоже что-то говорил.

Интересно, что и в каких выражениях?

 

[Раджаб bro]

Декан факультета Ахмедов Сулейман Абдурагимович - доктор технических наук, профессор,
заслуженный работник образования Республики Дагестан,
заслуженный работник высшей школы Российской Федерации

 

[Раджаб bro]

Это регалии моего декана
Про индексы...он говорил "почему нет индекса?"

 

[Раджаб bro]

Незнаю вроде как я вижу и прога написана правильно и декан Pro...может он меня проверял?Хотя врядли на него не похоже.

 

[Vladimir_S]

Про индексы...он говорил "почему нет индекса?"

Естественно, если вы за каким-то шайтаном заменили простую переменную массивом. Хотите с массивом - можно, хотя тут он, как дамское седло на бегемоте, но уж если Вы его (массив) вводите, то и обращайтесь к нему (массиву), как положено.

 

[Раджаб bro]

Вот правильный ответ надо было массив вписать


Uses crt;
const n=23;
Var
i:integer;
M,D:real;
a:array[1..n] of real;
Begin
M:=0;
D:=0;
For i:=1 to n do
begin
if i>17 then a:=sin(i) else a:=cos(sqr(i))/sin(sqr(i));
M:=M+a;
D:=D+sqr(a);
end;
M:=M/n;
D:=D/n-sqr(M);
for i:=1 to n do
writeln(a,' ');
writeln('M=',M:0:5);
writeln('D=',D:0:5);
End.