Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Упорядочить по возрастания элементы, Упорядочить по возрастания элементы,находящиеся между минимальными и максимальными элементами целочисленного массива Y https://www.cyberforum.ru/ turbo-pascal/ thread182340.html	Возведение в степень Turbo Pascal Написать подпрограмму возведения числа в целую степень. Проверить ее работу на следующих данных: 2 в 10-той, З в 5-той,7 в 0-вой.
Turbo Pascal геометричное моделирование https://www.cyberforum.ru/ turbo-pascal/ thread182333.html помогите пожалуйста решить задачу, кто может... нужно написать обучающую программу по геометрию демонстрационного типа, которая поэтапно демонстрирует построение с помощью циркуля и линейки: построение касательной к данной окружности в данном пункте.	Turbo Pascal Метод Симпсона и трапеций https://www.cyberforum.ru/ turbo-pascal/ thread182313.html Задание: 1.Вычислить разность в количестве итераций, необходимых для получения значения определенного интеграла (в прикрепленных файлах под номером 1) с точностью 0,001 методами трапеций и Симпсона. 2.Вычислить методом Ньютона значение корня уравнения (в прикрепленных файлах под номером 2) на интервале . Заранее благодарен...
Отредактировать одну процедуру Turbo Pascal отредактировать и объяснить процедуру OPLATA в программе!добавит процедуру которая умножит числа по столбцам!добавить в эту программу.(Gaz)первый столбец с числами умножить на 5,второй на 10, третий на 15 и.т.д! program studentl; uses crt; type student=record nom:byte; fio:string; gaz:1..9999999; el:1..99999999 ; ...	Turbo Pascal Получить сумму и количество элементов вектора Задание: Дан вектор A. Получить сумму и количество элементов находящихся в диапазонах и . Получение суммы или количества элементов в заданном диапазоне реализовать одной функцией и одной процедурой. Заранее благодарен... https://www.cyberforum.ru/ turbo-pascal/ thread182294.html
Turbo Pascal Тема: Работа с процедурами и функциями https://www.cyberforum.ru/ turbo-pascal/ thread182281.html Помогите решить задание:	После столбца матрицы с номером k вставить столбец из нулей Turbo Pascal Дано число k и матрица размера 4 x 9. После столбца матрицы с номером k вставить столбец из нулей. Сделайте плиз через подпрограмму (function/procedure)
Turbo Pascal В файле F записаны сведения об именах и датах рождения студентов группы. Переписать в файл G студентов, родившихся весной. https://www.cyberforum.ru/ turbo-pascal/ thread182175.html В файле F записаны сведения об именах и датах рождения студентов группы. Переписать в файл G студентов, родившихся весной.	Turbo Pascal Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово Дан файл F. Переписать его в новый файл, вставляя на последнее место в строке заданное слово https://www.cyberforum.ru/ turbo-pascal/ thread182174.html
Вывести номер первой строки матрицы, содержащей максимальное количество одинаковых элементов Turbo Pascal Дана целочисленная матрица размера M x N. вывести номер ее первой строки, содержащей максимальное количество одинаковых элементов.	Turbo Pascal Отразить элементы матрицы https://www.cyberforum.ru/ turbo-pascal/ thread182137.html Дана квадратная матрица порядка М. Зеркально отразить ее элементы относительно горизонтальной оси.

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

27.10.2010, 15:54

Количество изменений знака в каждой строке массива - Turbo Pascal - Ответ 1062358

27.10.2010, 15:54. Показов 1514. Ответов 8

Метки (Все метки)

Ответ

Нет, мне кажется ноль не считается сменой знака, его нужно пропускать.
Если до и после ноля разные знаки, считаем, если одинаковые, то вроде нет, например
2 0 3 смены знака вроде бы нет.

Добавлено через 2 минуты
Я бы сначала удалил из строки матрицы все ноли, а затем считал бы смены знака так

Pascal

1
2
3

k:=0;
for i:=2 to n do
if a[i,j]*a[i,j-1]<0 then k:=k+1;

Добавлено через 4 минуты
Вот на примере линейного массива, та же строка матрицы

Pascal

i:=1;
while i<=n do
if a[i]=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
k:=0;
for i:=2 to n do
if a[i]*a[i-1]<0 then k:=k+1;

Вернуться к обсуждению:
Количество изменений знака в каждой строке массива Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.10.2010, 15:54

Готовые ответы и решения:

Количество изменений знака +/- в столбце
Необходимо подсчитать кол-во изменений знака + на - и на оборот в одном столбце. подробнее в...

Найти количество изменений знака в последовательности
Задана последовательность целых чисел. Найти количество изменений знака в ней. Нужна программа на...

Подсчитать количество изменений знака во введенной последовательности
Ввести последовательность чисел, количество которых заранее неизвестно. Последовательность чисел...

Используя функцию, составить программу, которая считает количество изменений знака в массиве чисел. y=f(x). В С++
Используя функцию, составить программу, которая считает количество изменений знака в массиве чисел....

	27.10.2010, 15:54

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.10.2010, 15:54

Помогаю со студенческими работами здесь

Определить количество слов в каждой строке, сжать каждую строку, удалив END в каждой строке
Выполнить обработку текста из внешнего текстового файла, созданного в редакторе ....

Дописать в файл количество строк, символов в каждой строке, чисел в каждой строке
Дан текстовый файл.Дописать в его конец следующие данные: количество строк, количество символов в...

Подсчитать количество чётных чисел в каждой строке массива
Дан массив С(N,N). Подсчитать: а). Количество чётных чисел в каждой строке массива. б). Количество...

Найти количество четных чисел в каждой строке массива
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!! мне надо найти количество четных чисел в каждой строке массива в...

Наверх