Pascal ABC

Раджаб bro · 26.02.2014, 11:07

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

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

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

Раджаб bro · 26.02.2014, 12:28

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

Vladimir_S · 26.02.2014, 12:32

Цитата:

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

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

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

Цитата:

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

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

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

Раджаб bro · 26.02.2014, 16:26

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

AlexZir · 26.02.2014, 16:29

Цитата:

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

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

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

Раджаб bro · 26.02.2014, 17:46

Вот

Раджаб bro · 26.02.2014, 17:48

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

AlexZir · 26.02.2014, 19:35

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

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

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

26.02.2014, 11:07	#1 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal ABC Пожалуйста помогите у меня нет времени в этом сейчас разобраться надо срочно решить,срочноо,если надо могу полтинник на счёт скинуть не больше( ибо студент.

26.02.2014, 12:10	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да пожалуйста: Код: 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.

26.02.2014, 19:35	#10 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Гы, я бы тоже немного охренел, если бы увидел подобный код Владимир дал вам абсолютно рабочий листинг, а вы в нем дописали массив, который там абсолютно не нужен. Более того, этот самый массив вы используете в вычислениях без указания индекса, что вызывает недоумение. Так что советую не заниматься отсебятиной и показать преподу вариант решения, предложенный Владимиром. __________________ Убить всех человеков!

26.02.2014, 11:07
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же полезную информацию вы можете найти тут Pascal Pascal

26.02.2014, 12:26	#3 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вы..вы просто космос...

26.02.2014, 12:28	#4 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибоо)))) Номер напишите я вам на счет кину

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

26.02.2014, 16:26	#6 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Декан не одобрил(

26.02.2014, 17:46	#8 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вот

26.02.2014, 17:48	#9 (permalink)
Раджаб bro Member Регистрация: 26.02.2014 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Всю пару голову ломал ничего не вышло.Вроде правильно написано.