Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.84/25: Рейтинг темы: голосов - 25, средняя оценка - 4.84
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
1

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

06.12.2013, 14:27. Просмотров 5011. Ответов 3
Метки нет (Все метки)


Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак.
паскаль
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2013, 14:27
Ответы с готовыми решениями:

Определить, сколько раз последовательность меняет знак.
1.Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз...

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

Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение
Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с...

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел Помогите пожалуйста...

3
Модератор
8397 / 4151 / 2871
Регистрация: 17.08.2012
Сообщений: 13,231
06.12.2013, 16:01 2
Сами-то что же? Простая задачка, вообще-то.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program sinv;
 
var x, xl, n, k, i: integer;
 
begin
  repeat
    write('n = ');
    readln(n);
    if n < 2 then writeln('Error: n < 2, reenter.')
  until n >= 2;
  k := 0;
  writeln('Enter sequence:');
  for i := 1 to n do
    begin
      write(i:3, ': ');
      readln(x);
      if i = 1 then xl := x;
      if ((x < 0) and (xl >= 0)) or ((xl < 0) and (x >= 0)) then k := k + 1;
      xl := x
    end;
  writeln('Count of sign inverting: ', k);
  readln
end.
1
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 19
08.12.2013, 20:31  [ТС] 3
Cyborg Drone, можно с пояснениями?
0
Модератор
8397 / 4151 / 2871
Регистрация: 17.08.2012
Сообщений: 13,231
09.12.2013, 12:26 4
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
program sinv;
 
var x, xl, n, k, i: integer; //текущее число, прошлое число, количество чисел,
                             //количество изменений знака, счётчик
 
begin
  repeat //цикл ввода и проверки n
    write('n = '); //ввод n
    readln(n);
    if n < 2 then writeln('Error: n < 2, reenter.') //считаем, что n >= 2
  until n >= 2; //если n >= 2, прекращаем повтор ввода n
  k := 0; //количество изменений знака пока 0
  writeln('Enter sequence:'); //приглашение
  for i := 1 to n do //цикл ввода последовательности и счёта k
    begin
      write(i:3, ': '); //печатаем номер числа, можно убрать
      readln(x); //читаем текущее число
      if i = 1 then xl := x; //если число первое, то считаем, что перед ним было 
                             //оно же - надо ведь от чего-то плясать
      if ((x < 0) and (xl >= 0)) or ((xl < 0) and (x >= 0)) then k := k + 1; 
      //если текущее и прошлое числа имеют разный знак, то k := k + 1
      xl := x //посчитали, текущее число теперь становится прошлым
    end; //конец цика ввода последовательности и счёта k
  writeln('Count of sign inverting: ', k); //печатаем результат
  readln //ждём нажатия <Enter> перед закрытием программы
end.
Добавлено через 4 минуты
Да, ещё. Этой программе по барабану, отличны числа от нуля или нет.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2013, 12:26

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

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...

Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа
Вводится последовательность целых чисел 10.Найти наименьшее и наибольшее числа.Прошу помощи.

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

Вводится последовательность из N целых чисел
1. Вводится последовательность из N целых чисел. Определить сумму всех отрицательных чисел и...


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

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

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