расчетное задание!!

[jocer113]

помогите решить(на паскале АБС)

Элементы последовательности получены по правилу
аk=sin(k)+cos(k+1)
b)определить Мах элемент и его порядковый номер среди элементов с нечетными номерами.
с)упорядочить последовательность по убыванию элементов и найти сумму элементов с четными номерами.

[Stilet]

Прикольно. Покажи наработки )

[jocer113]

Да я сам нифига не втыкаю((((Мож поможешь??

[Niro]

Название темы

расчетное задание

Это я так понимаю, что за него автор рассчитается?

[jocer113]

не мне помошь в решении нужна(((

[Stilet]

Мож поможешь??

Допустим задание

определить Мах элемент и его порядковый номер среди элементов с нечетными номерами.

Может выглядеть так:

MODULE m;
IMPORT StdLog,Math;

PROCEDURE do*;
VAR max,ak:REAL;k:INTEGER;
BEGIN
 FOR k:=0 TO 360 DO
  ak:=Math.Sin(k)+Math.Cos(k+1);
  IF ak<max THEN max:=ak;END;
  StdLog.Real(ak);StdLog.Ln;
 END;
 StdLog.Ln;
 StdLog.Real(ak);StdLog.Ln;
END do;

END m.

[Niro]

не мне помошь в решении нужна(((

Чот я не заметил этого в первом сообщении, да и мыло не понять зачем написали

[jocer113]

А ты на каком прогу написал??

[Stilet]

На правильном.
Чтоб она заработала в Паскале тебе нужно
1) Убрать Math с точкой совсем
2) убрать IMPORT и его модули (они не нужны, даже crt не пригодится)
3) MODULE m; и END m. убрать. Нет его в Паскале
4) Процедуру тоже убери. Не нужна. Пусть просто BEGIN будет. (в конце END с точкой не забудь)
5) VAR max,ak:REAL;k:INTEGER; вынеси в начало программы.
6) FOR k:=0 TO 360 DO - Тут BEGIN не зубудь
7) StdLog.Real(ak);StdLog.Ln; - замени writeln-ом
8) в IF убери END он в паскале не нужен

Ну и пробуй )

[jocer113]

чет нифига не идет((