Хотя на самом деле хранить все числа совсем не обязательно
wEDOK
19.11.2007 21:01
а, еще забыл, требования:
-При вычислении целых степеней числа использовать не стандартные функции (exp и ln), а умножение в цикле.
-Не использовать массивы и строки.
-нуу и че-то с факториалами, думаю сдесь не надо...
Поиском воспользоваться пробовал, тока там задачи посложнее, а мне хотябы суть понять, самое простое...
klem4
19.11.2007 21:53
ну вот тебе первая задача, остальные по аналогии:
uses crt;
var n, s, value, pred_value: Integer;
begin clrscr;
repeat write('n = '); readln(n); if odd(n) then writeln('n должно быть четным'); until not odd(n);
s := 0;
write('x[', n, '] = '); readln(pred_value); dec(n);
while n > 0 do begin write('x[', n, '] = '); readln(value); inc(s, value * pred_value); pred_value := value; dec(n); end;
writeln('s = ', s);
readln; end.
wEDOK
19.11.2007 22:06
спасибо огромное, попробую разобраться
Bard
19.11.2007 23:22
wEDOK, можешь объяснить условие задачи Б попдробнее. У тебя там точно нет никаких ошибок(в условии)? По моему все-таки там коэффицент равен индексу переменной , а у тебя там на последних что-то другое ...
klem4
19.11.2007 23:27
Bard, видимо коэффициенты идут так:
1, 2, 3 ... n div 2, n div 2 - 1, n div 2 - 2, ... 3, 2, 1
-Андрей-
7.12.2016 0:16
Цитата(klem4 @ 19.11.2007 21:53)
ну вот тебе первая задача, остальные по аналогии:
uses crt;
var n, s, value, pred_value: Integer;
begin clrscr;
repeat write('n = '); readln(n); if odd(n) then writeln('n должно быть четным'); until not odd(n);
s := 0;
write('x[', n, '] = '); readln(pred_value); dec(n);
while n > 0 do begin write('x[', n, '] = '); readln(value); inc(s, value * pred_value); pred_value := value; dec(n); end;
writeln('s = ', s);
readln; end.
друг, можешь еще под б сделать, а то я чет вообще не врубаюсь
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.