Помогиите пожалуйста срочно(( Для заданных с клавиатуры значений переменных x и n вычислить Y = -x + 4x - 9x + ... - 81 x.. (Программирование циклических алгоритмов с заданным числом повторений в Pascal ABC)
Var sgn,i:integer; X,Y:real; begin Write('Введите Х: '); Read(X); Y:=0; sgn:=-1; for i:=1 to 9 do begin Y:=Y+sgn*sqr(i)*X; sgn:=-sgn end; Writeln('Y=',Y) end. Тестовое решение: Введите Х: 3.184 Y=-143.28
да это не функция))))) просто переменная
мы просто если решаем то примерно так var y, r:real; i, N:integer; begin y:=0; writeln('введите N'); read(N); for i:=1 to N do begin r:=1-i+sqr(i); y:=y+r; end; writeln('сумма=',y:6:2); end.
это не эта задача, другое слово. просто пример
условие*
я Вас не понимаю, что Вы хотите
Вы меня пытаетесь заставить решать задачу "как у Вас решают"? Я не стану этим заниматься, я решаю задачу так, как её положено решать и при этом не выхожу ни за пределы Вашего вопроса, ни за пределы школьных знаний.
извиниитеее это у меня уже видимо ночной тормоз))))фактически sgn можно заменить любой другой переменной от этого решение не поменяется. спасибо))))завтра на лабораторной посмотрим что скажет преподаватель)
напишите a, если sgn не нравится))))
дада именно так и сделала)ещё раз спасибо большое))
Ничего не скажет, решение проверено другими способами, оно верно.