Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия, Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки
Последний раз редактировалось bogdana 13.04.2010, 18:58, всего редактировалось 1 раз.
Рассмотрите элементы числовой последовательности 5-2cos2i от 10го до 20го и выберите среди них (выведите их элементы на экран)большие , чем 4.простой язык Паскаль коды
program U; var i,n:integer;
a:real; begin
n:=20 for i:=10to n do
a:=5-3*cos(2*i); if a>4then writeln(i:4,a:10:2); end; end.
Toucan
Re: помогите решить задачу пожалуйста)
12.04.2010, 21:23
!
Во-первых, отформатируйте свое сообщение нормальным шрифтом. Во-вторых, продемонстрируйте свои попытки решения задачи (этого требуют Правила форума). А пока -- в Карантин (здесь же написано, как из Карантина выбраться)
Когда/если будете приводить код, не забудьте поместить его в тег syntax
Код:
[syntax=pascal] ...[/syntax]
Toucan
Re: помогите решить задачу пожалуйста)
13.04.2010, 19:47
i
Возвращаю.
bogdana, после того, как Вы отредактировали свое сообщение в карантине, надо было написать в тему Сообщение в карантине исправлено -- я мог и не заметить Ваших исправлений.
Nikita_b
Re: помогите решить задачу пожалуйста)
13.04.2010, 20:54
Последний раз редактировалось Nikita_b 13.04.2010, 21:04, всего редактировалось 2 раз(а).
for i:=10to n do
a:=5-3*cos(2*i); if a>4then writeln(i:4,a:10:2);
Вы десять раз считаете значение выражения и только последнее его значение проверяете по условию(a>4). Не хватает begin'а после цикла и end'а после writeln.