Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Распечатать таблицу значений функции https://www.cyberforum.ru/ pascal/ thread1030876.html
Составьте программу, выводящую таблицу значений функции y=1/(1+x)^5 в равноотстоящих точках отрезка . Число значений в таблице равно n. В случае если точка не определена, выдать об этом сообщение...
Дана строка,выяснить встречается ли в данном тексте группа букв 'one', до и после которой следует не менее 2-х цифр, Pascal
Помогите плиз,голову ломаю,не могу решить. Дана строка,выяснить встречается ли в данном тексте группа букв 'one', до и после которой следует не менее 2-х цифр,группы разделены пробелом
Pascal ГДЕ ошибки(ка)?
program viendimensiju masīvs; uses crt; var a : array of integer; n, i, imin : byte; min : integer; begin randomize; writeln('исходный массив:'); for i := 1 to 50 do begin
Pascal Процедура определяющая входит ли введенное слово в текст Нужно написать процедура определяющую входит ли введенное слово в текст. Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread1030712.html
Pascal определить минимальный элемент из трех чисел и проверить явл. оно четным или нечетным https://www.cyberforum.ru/ pascal/ thread1030634.html
определить минимальный элемент из трех чисел и проверить явл. оно четным или нечетным
Вычислительная геометрия Pascal
помогит написать программу плииииз На кольцевом маршруте №54 протяженностью S, проходящем мимо пансионата "Энергетик", работает N автобусов. Автобусы пронумерованы числами от 1 до N в порядке их...
Рекурсия - определение сопротивления между клеммами Pascal
Pascal Найти их скалярное произведение 2х массивов Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение. https://www.cyberforum.ru/ pascal/ thread1030498.html
Pascal описание множеств https://www.cyberforum.ru/ pascal/ thread1030464.html
суть задания такова: Опишите множества R и L, содержащие русские и латинские буквы. В цикле вводите русские и латинские буквы и выводите соответствующее сообщение. Выход из цикла —введенная буква Z....
Pascal Двумерные массивы. Вывести кол-во элементов меньших среднеарифметического Размер матрицы 3х7. Формула для определения элементов массива: a i,j= j*tg(i). Задание : Вывести кол-во элементов меньших среднеарифметического. https://www.cyberforum.ru/ pascal/ thread1030423.html
Модератор
8417 / 4166 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
09.12.2013, 12:26 0

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

09.12.2013, 12:26. Показов 5114. Ответов 3
Метки (Все метки)

Ответ

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 минуты
Да, ещё. Этой программе по барабану, отличны числа от нуля или нет.

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

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

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

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

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

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