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

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

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

 
Closed Topic Открыть новую тему 
> Есть маленькая проблема, Подскажите где я ошибся
lycas
сообщение 9.06.2007 11:03
Сообщение #1





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

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


Почемуто выводит всегда одинаковые числа,при любых значиния переменных.
Плиз подскажите где ошибка.
Прикрепленное изображение

var
i,k, j,d,n:integer;
rs,l, result:real;
function   summ(n:integer):real;
var
k,i:integer;
l,s:real;
begin
s:=0;
k:=1;
for i:=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(j);
writeln(j,' ',n,' ',rs);
n:=n+k;
end;
end.



Сообщение отредактировано: lycas - 9.06.2007 14:27


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


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


!
Внимание! Тема нарушает Правила Форума. Вам дается один час на исправление темы. Для изменения заголовка редактируйте первый пост. Тему будет закрыта или удалена в случае невыполнения требований Правил.

К посетителям просьба: не отвечать в тему, нарушающую Правила. Спасибо.

мисс_граффити

Тегами пользуйся. Иначе вообще код нечитабельный.
Ну и задание хорошо бы озвучить, а то у ясновидящих сезон отпусков.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
lycas
сообщение 9.06.2007 21:27
Сообщение #3





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

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


Всё исправил.


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


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


М
Очень рады за тебя, в следующий раз читай правила форума и не игнорируй сообщения модераторов



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

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