помогиите пожалуйста срочно((
Для заданных с клавиатуры значений переменных x и n вычислить
Y = -x + 4x - 9x + ... - 81 x..
(Программирование циклических алгоритмов с заданным
числом повторений в Pascal ABC)
Ответы
Ответ дал:
1
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
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.
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 не нравится))))
дада именно так и сделала)ещё раз спасибо большое))
Ничего не скажет, решение проверено другими способами, оно верно.
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад