IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите плиз, Вы водит одни и теже числа
lycas
сообщение 14.06.2007 14:07
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: жека

Репутация: -  0  +


При любых значения переменных выводит одинаковые числа.
Подскажите где ошибка.
Дано натуральное число N вычислить(+протабулировать):
Прикрепленное изображение

Вот что у меня получилось:

var
k, j,d,n:integer;
rs,l, result:real;
function summ(n:integer):real;
var
k,j:integer;
l,s:real;
begin
s:=0;
k:=1;
for j:=1 to n do
begin
if ((k+1) mod 2) =0 then
l:=1/k*(k+1)
else
l:=-1/k*(k+1);
s:=s+l;
end;
result:=s;
end;
begin
writeln('n=');read(n);
if n<1 then begin
writeln('n<1');exit;end;
writeln('shag=');read(k);
if k<1 then begin
writeln ('k<1');
exit;
end;
writeln('kolichestvo=');read(d);
if d<1 then begin
writeln('d<1');exit;end;
for j:=1 to d do
begin
rs:=summ(n);
writeln(j,' ',n,' ',rs);
n:=n+k;
end;
end.



--------------------
Собака,которая не человек и не монстр,не может убить меня.Чудовище могут убить только люди.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 23:06
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"