1 / 1 / 0
Регистрация: 29.06.2011
Сообщений: 104
1

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками

03.07.2011, 16:33. Показов 787. Ответов 1
Метки нет (Все метки)

Не могу найти ошибку в программе!!!
Условие: вводится последовательность ненулевых чисел, 0- ее конец. Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n, n1, n2:real;
pr:boolean;
begin
pr:=false;
write('n='); readln(n1);
write('n=');readln(n2);
repeat
if n1*n2>0 then
pr:=true;
write('n='); readln(n2);
until n2=0;
if pr then
writeln(' Последовательность содержит рядом стоящие элементы с одинаковыми знаками')
else writeln('Последовательность не содержит рядом стоящие элементы с одинаковыми знаками');
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 16:33
Ответы с готовыми решениями:

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками
Только начал изучать С, и не могу разобраться как делать если не тяжело помогите с 2мя задачами. ...

Определить, содержит ли последовательность хотя бы два соседних числа c одинаковыми знаками
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить, содержит ли...

Содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками?
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить содержит ли...

Определить , содержит ли последовательность хотя бы два равных соседних числа

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
03.07.2011, 17:26 2
Pascal
1
2
3
4
5
6
repeat
if n1*n2>0 then
pr:=true;
n1:=n2;//добавь
write('n='); readln(n2);
until n2=0;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 17:26
Помогаю со студенческими работами здесь

Определить, содержит ли последовательность хотя бы два равных соседних числа
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли...

Как определить, содержит последовательность хотя бы два равных соседних числа
Нужно написать в VBA. Заранее благодарю=) Вводится последовательность чисел, 0 - конец...

Вложенные циклы: определить, содержит ли последовательность хотя бы два равных соседних числа
Вводятся последовательность из n целых чисел (n задается с клавиатуры) Определить , содержит ли...

Определить, содержит ли последовательность хотя бы два равных соседних числа (цикл с постусловием)
Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru