19.12.2011, 22:14 | #1 (permalink) |
Новичок
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите сделать задание
Помогите сделать.Пожалуйста! |
19.12.2011, 22:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие темы на форуме уже были, рекомендую к прочтению Задание на С, С++ или Делфи Задание по Delphi Помогите доделать задание на массив Задание в паскале. Помогите с решением |
19.12.2011, 22:48 | #4 (permalink) |
Новичок
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
А вы не могли бы по подробней объяснить представленное выше.В принципе если опустить все организационные моменты связанные с основными индексами(begin,var,end), то это уравнение не может решать в две строки.
|
20.12.2011, 05:20 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Алгоритм решения абсолютно верный, просто опущены строки с определением переменных и выводом результатов. К тому же, раз вы не указали язык программирования, был приведен листинг на языке С
Вместо переменной k в листинге используется переменная i, в цикле последовательно принимающая целые значения из диапазона от 1 до 20. Значение суммы хранится в переменной s. += операция, вычисляющая правую часть и прибавляющая результат к старому значению переменной. А больше и вычислять-то нечего Тот же листинг без описания переменных и вывода результатов на языке Pascal выглядит так: Код:
s:=0; for i:=1 to 20 do s:=s+sin(sqr(i)-i); |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.12.2011, 19:49 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Извиняюсь, был несколько невнимателен и написал синус суммы вместо синуса разности. Листинг подправил. Полный вариант:
Код:
var i:integer; s:real; begin s:=0; for i:=1 to 20 do s:=s+sin(sqr(i)-i); writeln('Сумма равна ',s); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|