Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Нужна помощь
Не могу задачу решить

Вот условие:
Посчитать произведение отнимаемых чисел из диапазона {-15;0} среди 9-ти, что вводятся.

1 | Автор: Rewers | 2010-10-27, 18:01   |  Репутация: [ + 0 ]
Quote (Rewers)
отнимаемых чисел

У кого отнимаемых? Кем отнимаемых?
2 | Автор: admin | 2010-10-27, 19:04   |  Репутация: [ + 22 ]
Ой ... Тоесть вычисляемых)
Извеняюсь ... Просто уже голова "беременная" от этого програмирования
3 | Автор: Rewers | 2010-10-27, 19:09   |  Репутация: [ + 0 ]
Quote (Rewers)
То есть вычисляемых)

Еще лучше : может все таки отрицательных (від'ємних - укр.)? И второй вопрос: произведение двух, трех или всех? Все-таки надо задачу коректно формулировать, а то никто не захочет ее решать. И лучше всего напиши свой код программы (какой есть) и попроси чтобы подправили или нашли ошибку (так бдет быстрее).
4 | Автор: admin | 2010-10-27, 19:25   |  Репутация: [ + 22 ]
Я б написал если там бы было б еще чтото, но это и так всё условие на мой вариант, мне её никто не может решить, вот я думал может тут кто-то знает!
С твоим вариантом (від'ємних - укр.) соглашусь, так будет точнее

Вот программа:

Program L_r_5_6;
Var
i:byte;
x,p:integer;
Begin
p:=1;
for 1 to 9 do
Begin
Write('введите',i,'-e число':);
ReadLn(x);
if ((x>=-15)and(x<=0)and(xmod<=0)
then p:=p*x;
end;
if p=1 then WriteLn('Нужных чисел не было')'
else WriteLn('Произведение чисел шз {-15,0}=',p);
ReadLn
end.

Красным выдилена ошибка

5 | Автор: Rewers | 2010-10-27, 19:45   |  Репутация: [ + 0 ]
for 1 to 9 do
надо относительно перменной цикл запускать. напрмер i
for i:=1 to 9 do


If you can't make it GOOD make it LOOK GOOD. B.Gates
6 | Автор: DoVe | 2010-10-27, 19:53   |  Репутация: [ + 48 ]


If you can't make it GOOD make it LOOK GOOD. B.Gates
6 | Автор: DoVe | 2010-10-27, 19:53   |  Репутация: [ + 48 ]
Quote (Rewers)
for 1 to 9 do

for i:=1 to 9 do
Quote (Rewers)
and(xmod<=0)

это наверное лишнее () что такое xmod ?
Quote (Rewers)
if ((x>=-15)and(x<=0)and(xmod<=0)

if ( x> =-15) and ( x<=0 )
7 | Автор: admin | 2010-10-27, 19:56   |  Репутация: [ + 22 ]
DoVe
Спасибо))))))

Program L_r_5_6;
Var
i:byte;
x,p:integer;
Begin
p:=1;
for 1 to 9 do
Begin
Write('введите',i,'-e число':);
ReadLn(x);
if ((x>=-15)and(x<=0)and(xmod<=0)
then p:=p*x;
end;
if p=1 then WriteLn('Нужных чисел не было')'
else WriteLn('Произведение чисел шз {-15,0}=',p);
ReadLn
end.

Теперь там ошибка. Ставлю пробел и тут ошибка (x mod[color=red]<=0)

Добавлено (27.10.10, 20:00)
---------------------------------------------
admin
И тебе спасибо))))

Убрал and(xmod<=0) всё заработало))

Мы писали в конспекте, что MOD - выделить остаток от деления

8 | Автор: Rewers | 2010-10-27, 20:00   |  Репутация: [ + 0 ]
спасибо у нас выражают повышением репутации (зеленый плюсик)
9 | Автор: admin | 2010-10-27, 20:18   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: