PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Ответ NaN в задаче Первые 6 строчек считает нормально, а в последних двух выдает NaN. Пробовал разные проверки, но тщетно. const h=0.4; b=-2.3; c=1.2; var y,x,x1,x2,D,a:real; i:integer; begin a:=-1; writeln(' __'); writeln('\| a \| x1 \| x2 \| y \|'); writeln('\|__\|'); https://www.cyberforum.ru/ pascalabc-net/ thread2339760.html	Можно ли перед каждым из чисел от 1 до N расставить знаки «+» или «–» так, чтобы сумма получившихся чисел была равна 0? PascalABC.NET Решить пробовал , но это не о чем , не одного правильного вывода не было , окало часа шаманил , но голяк (только в школе циклы прошли и на тебе (1 год обучения)) Легенда гласит, что Карл Фридрих Гаусс, учась в школе, смог быстро посчитать сумму целых чисел от 1 до 100, заметив, что 1 + 100 = 2 + 99 = … = 50 + 51. Теперь решите задачу посложнее: можно ли перед каждым из чисел от 1 до N...
PascalABC.NET Ленуар https://www.cyberforum.ru/ pascalabc-net/ thread2339583.html Написать программу определения соответствующего дня недели по известным целым числам: J - число, М - месяц, А - год, применяя метод М.Ленуара, который заключается в следующем: 1) вычислить величину N: если месяц - январь или февраль високосного года, то N=1; если месяц - январь или февраль обычного года, то N=2; в других случаях N=0. Чтобы узнать, является ли год високосным, можно действовать...	PascalABC.NET Найти ошибку в коде Нужно что-бы в введёной послдовательности чисел считалось Сумма, минимальное значение, и кол-во чисел где присутствует хотя бы одна шестёрка. С последним проблемы var x, s, k, min: integer; begin k := 0; x := 3465; s := 0; min := 32767; writeln('Введите целое число, 0 - окончание ввода'); https://www.cyberforum.ru/ pascalabc-net/ thread2339532.html
Подсчитать количество точек с целочисленными координатами внутри треугольника PascalABC.NET Помогите решить, а то я совсем запутался Равнобедренный треугольник задан на плоскости основанием и высотой, опущенной на основание; a – длина основания, h – высота (a, h – целые числа). Требуется подсчитать количество точек с целочисленными координатами, лежащих внутри этого треугольника (но не на его границе). Формат входных данных: В первой строке содержатся числа a (1 <= a <=...	PascalABC.NET Then и else работают одновременно https://www.cyberforum.ru/ pascalabc-net/ thread2339125.html Хоть соблюдено только 1 условие "d1 =" км", выполняется сразу и else. Не понимаю. Почему? readln(S, d1); if d1 = ' км' then begin Ss1 := S * 1000; writeln(Ss1); end else writeln('1');
PascalABC.NET Сложная задача на перестановки https://www.cyberforum.ru/ pascalabc-net/ thread2339087.html Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n. Каждое число в перестановке встречается ровно один раз. Сеня называет красотой перестановки ⟨a1, a2, . . . , an⟩ число (a1a2 + a2a3 + . . . + an−1an). Он хочет посчитать количество перестановок, красота которых делится на k. Даны числа n и k, найдите количество перестановок размера n, красота которых...	Нужно реализовать Генератор паролей PascalABC.NET условие: сколько введешь символов , столько программа зашифрует и выведет
PascalABC.NET Как ввести 2 разных переменных в одной строке? https://www.cyberforum.ru/ pascalabc-net/ thread2339015.html Как сделать чтобы переменная K:real и n1:string читались на одной строке? Пробовал readln(K, n1) выдаёт ошибку.	PascalABC.NET Определить среднюю выручку магазина за один день и наименование товара с наибольшей выручкой В продуктовом магазине имеется в наличии N наименований продуктов. Имеются сведения о ценах за единицу товара и сведения об их реализации (количество реализованного продукта каждого наименования) за один месяц (30 дней). Определить среднюю выручку магазина за один день и наименование товара с наибольшей выручкой. https://www.cyberforum.ru/ pascalabc-net/ thread2338946.html
Сумма первой и последней цифр четырехзначного числа больше десяти PascalABC.NET Помогите написать программу, которая печатает значение логического выражения (TRUE или FALSE): Сумма первой и последней цифр четырехзначного числа больше десяти	PascalABC.NET Чтение файла, и его выполнение https://www.cyberforum.ru/ pascalabc-net/ thread2338795.html Всем доброго времени суток. Как прочесть файл и выполнить код, записанный в этом файле? Дан текстовый файл содержащий строки вида Line x1y1x2y2 Rectangle x1y1x2y2 Нарисовать упомянутые фигуры на окне Заранее спасибо.

JuriiMW

5084 / 2655 / 2350

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

Сообщений: 10,047

25.10.2018, 05:12

Умножить на 3 положительные элементы массива, отрицательные разделить на 2, а равные нулю – заменить числом 5 - PascalABC.NET - Ответ 12999401

25.10.2018, 05:12. Показов 2800. Ответов 2

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

Ответ

Во-первых, смотрите в условие: „отрицательные разделить на 2“
Это говорит о том, что массив должен быть действительных чисел, ибо нечётное число поделённое на 2 нельзя положить в целочисленный массив.

Во-вторых, у вас в задании не сказано о размере массива.
В таком случае, он должен быть либо динамическим, либо заведомо такого размера, что все данные в него влезут.

В-третьих, в самом начале программы вы вводите значение i…
А что это за значение и к чему оно относится — непонятно!
Вы и сами его путаете: используете его как индекс массива и заодно как значение массива.
Это неверно.

Да и вообще, как говорил А.Македонский: „Разделяй и властвуй“
Поэтому необходимо разделить программу на логические блоки:

1. Ввод размера массива
2. Ввод значений исходного массива
3. Преобразование массива
4. Вывод новых значений массива

Исходя из этого можно составить программу:

Pascal

begin
  // Ввод размера массива и его создание
  var n := ReadInteger('Размер массива:');
  var a : array of Real;
  SetLength(a, n);
 
  // Ввод массива
  for var i := 1 to n do
    a[Pred(i)] := ReadInteger($'a[{i}] =');
    
  // Обработка массива
  for var i := 0 to n-1 do
    case sign(a[i]) of
      -1 : a[i] /= 2;
       0 : a[i] := 5;
      +1 : a[i] *= 3;
    end;
    
  // Выводим результат
  a.Println;
end.

Вернуться к обсуждению:
Умножить на 3 положительные элементы массива, отрицательные разделить на 2, а равные нулю – заменить числом 5 PascalABC.NET

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.10.2018, 05:12

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

Расположить элементы массива в следующем порядке: положительные, равные нулю, отрицательные
Располодить элементы одномерного массива,заполненного случайным образом в интервале ,в следующем...

В массиве С заменить все отрицательные элементы и равные нулю на 1. Посчитать произведение элементов нового массива.
Заданы массивы А и В действительных чисел. А:-48,7 -7,1 -24,9 2,18 10,6 -8,4 0 3,5 ...

Умножить все отрицательные элементы массива на 100, а положительные заменить единицами
Создать одномерный массив из 10 случайных целых чисел из интервала от -12 до 20.Умножить все...

В массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2
Вобщем в массиве нужно положительные элементы умножить на k, а отрицательные разделить на 2. И при...

	25.10.2018, 05:12

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.10.2018, 05:12

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

Заменить в матрице все отрицательные элементы числом 0, положительные элементы – числом 1
Дана целочисленная матрица размера 5x7. Заменить в данной матрице все отрицательные элементы числом...

Массивы. Положительные элементы умножить на 10, а отрицательные заменить на 0
В одномерном массиве размерностью N все положительные элементы умножить на 10, а все отрицательные...

Заменить все положительные элементы матрицы А(n,n) на их квадраты, а отрицательные − умножить на 10
Дана матрица А(n,n),Заменить все положительные элементы матрицы на их квадраты, а отрицательные...

Отрицательные элементы массива умножить на -2, а положительные на +2
Здравствуйте! Очень срочно нужна помощь. Вопрос жизни и смерти! VBA вообще не знаю. А задачу решить...

Наверх