Предмет: Информатика,
автор: Dianiko
помогиите пожалуйста срочно((
Для заданных с клавиатуры значений переменных 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
Аноним:
да это не функция))))) просто переменная
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.
Похожие вопросы
Предмет: Русский язык,
автор: dimondel
Предмет: Русский язык,
автор: dima56748
Предмет: Русский язык,
автор: Vika55555111
Предмет: Алгебра,
автор: HokageAkatsuki
Предмет: Геометрия,
автор: krutayalama