Форум программистов, компьютерный форум, киберфорум
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
06.12.2013, 16:01 0

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

06.12.2013, 16:01. Показов 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
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.


Вернуться к обсуждению:
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2013, 16:01

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

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

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

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

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

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