Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
tox14
3 / 3 / 2
Регистрация: 15.10.2013
Сообщений: 91
#1

Программа не высчитывает значения. Не понимаю почему - Pascal ABC

26.10.2013, 00:35. Просмотров 241. Ответов 0
Метки нет (Все метки)

Нужно найти произведение нечётных элементов введенных массивов C и T (Размер не больше 4-х)
Произведение всегда равно 0...Не знаю почему.
Вот мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program massiv;
const
n=4;
var
C,T:array[1..n] of integer;
i:integer;
p1,p2,rez:real;
begin
p1:=0;
for i:=1 to n do
  begin
  write('Ââåäèòå T[',i,']= ');readln(T[i]);
  write('Ââåäèòå C[',i,']= ');readln(C[i]);
  end;
for i:=1 to n do
  begin
   if C[i] mod 2<>0 then
   p1:=p1*C[i];
  end;
for i:=1 to n do
  begin
   if T[i] mod 2<>0 then
   p2:=p2*T[i];
  end;
  rez:=p1*p2;
  writeln(rez);
end.
Добавлено через 12 минут
Нашел ошибку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program massiv;
const
n=4;
var
C,T:array[1..n] of integer;
i:integer;
p1,p2,rez:real;
begin
p1:=1;
p2:=1;
for i:=1 to n do
  begin
  write('Введите T[',i,']= ');readln(T[i]);
  write('Введите C[',i,']= ');readln(C[i]);
  end;
for i:=1 to n do
  begin
   if C[i] mod 2<>0 then
   p1:=p1*C[i];
  end;
for i:=1 to n do
  begin
   if T[i] mod 2<>0 then
   p2:=p2*T[i];
  end;
  rez:=p1*p2;
  writeln(rez);
end.
Добавлено через 42 секунды
Тема закрыта!
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2013, 00:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа не высчитывает значения. Не понимаю почему (Pascal ABC):

Написать программу, которая высчитывает количество делителей заданного натурально значения k.
Написать программу, которая высчитывает количество делителей заданного...

Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения, сумма цифр которых также является четным числом.
Написать программу с использованием подпрограмм. В подпрограммах не должно...

Не понимаю, почему выдается такой ответ
сама программа вот program lol1; {$APPTYPE CONSOLE} uses SysUtils; ...

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

Нужна программа. Совсем не понимаю как сделать
Программа берет текстовый файл и считает сколько там предложений (учитывается...

Почему программа не высчитывает прогиб (w), как это исправить, правильное ли здесь построение графика?
//--------------------------------------------------------------------------- ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 00:35
Привет! Вот еще темы с решениями:

Не понимаю почему зацикливается программа!
Пробую реализовать головоломку, и при обходе зацикливается программа(Нужно...

Не понимаю, почему программа зацикливается
Привет всем. Проблема в следующем. Мне по дипломной программе нужно прогнать...

Проверить правильность написания заглавных букв в текстовом файле (не понимаю, почему программа не работает)
Мне необходимо было проверить правильность написания заглавных букв в текстовом...

Почему минимальное значение высчитывает как 0
int amount; double sum = 0, cur, mean = 0, even = 0, odd = 0, max...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru