![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
lycas |
![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: жека Репутация: ![]() ![]() ![]() |
Почемуто выводит всегда одинаковые числа,при любых значиния переменных.
Плиз подскажите где ошибка. ![]()
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 -------------------- Собака,которая не человек и не монстр,не может убить меня.Чудовище могут убить только люди.
|
мисс_граффити |
![]()
Сообщение
#2
|
|||
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Тегами пользуйся. Иначе вообще код нечитабельный. Ну и задание хорошо бы озвучить, а то у ясновидящих сезон отпусков. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|||
lycas |
![]()
Сообщение
#3
|
![]() Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: жека Репутация: ![]() ![]() ![]() |
Всё исправил.
-------------------- Собака,которая не человек и не монстр,не может убить меня.Чудовище могут убить только люди.
|
klem4 |
![]()
Сообщение
#4
|
|||
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|||
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 2:38 |