PascalABC.NET

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

Войти

Другие темы раздела
PascalABC.NET Сложная задача на перестановки Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n. Каждое число в перестановке встречается ровно один раз. Сеня называет красотой перестановки ⟨a1, a2,... Серега, она не работает https://www.cyberforum.ru/ pascalabc-net/ thread2339087.html	Then и else работают одновременно PascalABC.NET Хоть соблюдено только 1 условие "d1 =" км", выполняется сразу и else. Не понимаю. Почему? readln(S, d1); if d1 = ' км' then begin Ss1 := S * 1000; writeln(Ss1); end... Всю программу скидывайте, или хотя бы кусок который можно выполнить.
PascalABC.NET Чтение файла, и его выполнение Всем доброго времени суток. Как прочесть файл и выполнить код, записанный в этом файле? Дан текстовый файл содержащий строки вида Line x1y1x2y2 Rectangle x1y1x2y2 Нарисовать упомянутые... Распарсить и интерпретировать команды. К примеру: uses GraphABC; procedure DrawLine(s : String); begin try var p := s.ToWords(); Line(StrToInt(p), StrToInt(p), StrToInt(p),... https://www.cyberforum.ru/ pascalabc-net/ thread2338795.html	PascalABC.NET Найти ошибку в коде https://www.cyberforum.ru/ pascalabc-net/ thread2339532.html Нужно что-бы в введёной послдовательности чисел считалось Сумма, минимальное значение, и кол-во чисел где присутствует хотя бы одна шестёрка. С последним проблемы var x, s, k, min: integer; ... Read(x); min:=x; {s:=0; k:=0;} while x<>0 do begin s:=s+x; if min>x then min:=x; repeat d:=x mod 10; x:=x div 10; until (d=6) or (x=0); if d=6 then Inc(k); Read(x); ...
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 ... 4ac Это только в математике знак умножения можно выкидывать! В программировании такой номер не проходит: 4ac	PascalABC.NET Как ввести 2 разных переменных в одной строке? Как сделать чтобы переменная K:real и n1:string читались на одной строке? Пробовал readln(K, n1) выдаёт ошибку. Напишите весь код которым вы их читали и какую ошибку выводит, иначе не понятно что вы сделали не так. https://www.cyberforum.ru/ pascalabc-net/ thread2339015.html
Подсчитать количество точек с целочисленными координатами внутри треугольника PascalABC.NET Помогите решить, а то я совсем запутался Равнобедренный треугольник задан на плоскости основанием и высотой, опущенной на основание; a – длина основания, h – высота (a, h – целые числа). ... Есть некоторая неточность в условии: не сказано как именно расположен этот самый треугольник! Скажем, что центр опущенной высоты треугольника совпадает с центром координат. Тогда это одно. А если...	PascalABC.NET Определить среднюю выручку магазина за один день и наименование товара с наибольшей выручкой В продуктовом магазине имеется в наличии N наименований продуктов. Имеются сведения о ценах за единицу товара и сведения об их реализации (количество реализованного продукта каждого наименования) за...
PascalABC.NET Нужно реализовать Генератор паролей условие: сколько введешь символов , столько программа зашифрует и выведет описался Аккуратнее нужно... https://www.cyberforum.ru/ pascalabc-net/ thread2339027.html	PascalABC.NET Ленуар Написать программу определения соответствующего дня недели по известным целым числам: J - число, М - месяц, А - год, применяя метод М.Ленуара, который заключается в следующем: 1) вычислить величину... begin var(J,M,A):=ReadInteger3('число месяц год:'); // По формуле var N := (M=1)or(M=2)?(A mod 4=0)and(A mod 100<>0)or(A mod 400=0)?1:2:0; var C:=Trunc(365.25*(A mod... https://www.cyberforum.ru/ pascalabc-net/ thread2339583.html
Сумма первой и последней цифр четырехзначного числа больше десяти PascalABC.NET Помогите написать программу, которая печатает значение логического выражения (TRUE или FALSE): Сумма первой и последней цифр четырехзначного числа больше десяти var i:integer; begin read(i); write(i div 1000+i mod 10>10); end.	Можно ли перед каждым из чисел от 1 до N расставить знаки «+» или «–» так, чтобы сумма получившихся чисел была равна 0? PascalABC.NET Решить пробовал , но это не о чем , не одного правильного вывода не было , окало часа шаманил , но голяк (только в школе циклы прошли и на тебе (1 год обучения)) Легенда гласит, что Карл Фридрих... Поступило такое предложение, что думает на этот счет проверочный сайт? var n, i, k: Integer; begin Read(n); if (n+1) mod 4<2 then begin k:=(n+1) div 4; for i:=1 to n-k*3 do...

JuriiMW

5089 / 2658 / 2352

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

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

25.10.2018, 05:12

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

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

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

Ответ

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

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

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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

25.10.2018, 05:12

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

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

25.10.2018, 05:12

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

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх