Технический форум

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal ABC (http://www.tehnari.ru/f41/t94848/)

Раджаб bro

26.02.2014 11:07

Pascal ABC

Вложений: 1

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

Vladimir_S

26.02.2014 12:10

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

Код:

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

26.02.2014 12:26

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

Раджаб bro

26.02.2014 12:28

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

Vladimir_S

26.02.2014 12:32

Цитата:

Сообщение от Раджаб bro (Сообщение 1009283)

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

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

Цитата:

Сообщение от Раджаб bro (Сообщение 1009283)

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

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

Раджаб bro

26.02.2014 16:26

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

AlexZir

26.02.2014 16:29

Цитата:

Сообщение от Раджаб bro (Сообщение 1009367)

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

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

Раджаб bro

26.02.2014 17:46

Вложений: 1

Вложение 177106
Вот

Раджаб bro

26.02.2014 17:48

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

AlexZir

26.02.2014 19:35

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

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

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

Часовой пояс GMT +4, время: 23:23.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице