Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Есть маленькая проблема

Автор: lycas 9.06.2007 15:03

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


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.


Автор: мисс_граффити 9.06.2007 15:19

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

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

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

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

Автор: lycas 10.06.2007 1:27

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

Автор: klem4 10.06.2007 1:34

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