Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Вычислить значения Доброго времени суток, есть задачка написать модуль который будет вычислять по заданному на изображении условию. Написал ниже код, он выдаёт ошибку на "sqr" - "Нет перегруженной программы с такими типами параметров" . Подскажите пожалуйста как решить проблему. Program znach; var Zi, q,t,l: integer; var zn,a,b: real; begin write('Введите число Zi '); https://www.cyberforum.ru/ pascalabc-net/ thread2504758.html PascalABC.NET Вычислите среднее арифметическое положительных и среднее арифметическое отрицательных чисел
Пусть дано 100 вещественных чисел,которые вводятся по одному.Вычислите среднее арифметическое положительных и среднее арифметическое отрицательных чисел. (!без массивов)
PascalABC.NET Решение примера Вычислить https://www.cyberforum.ru/ pascalabc-net/ thread2504352.html PascalABC.NET Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке https://www.cyberforum.ru/ pascalabc-net/ thread2504135.html
Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения.
PascalABC.NET Входная строка имела неверный формат
var f, g: text; i, n: integer; m: real; begin write('Введите n: '); readln(n); assign(f, 'file.txt'); rewrite(f);
PascalABC.NET Нарисовать параболу и двигать ее с помощью стрелок Пожалуйста напишите программу которая рисует параболу,чтобы её можно было двигать с помощью стрелок https://www.cyberforum.ru/ pascalabc-net/ thread2504058.html
PascalABC.NET Как код подправить? https://www.cyberforum.ru/ pascalabc-net/ thread2503631.html
Значит прога делает: я ввожу скок чисел должно быть (N), какие (a) и он считает кол-во отрицательных и делит каждый положительный член этого массива (a) на последующий. Как сделать так, чтобы деленные числа он выписывал через y = ? То есть, чтоб он написал не просто -0.67 , а y= -0.67? код var i, n, x: byte; a:array of real; begin x:=0; begin Write ('Введите размер...
Обнулить последний минимальный элемент в массиве из N элементов PascalABC.NET
Меняются все,а надо только последний.Что поменять? program olimp; var a : array of longint; s,n,m,d,i,v,k : longint; begin readln(n); for i:=1 to n do read(a); k := a; v:=1;
PascalABC.NET Можно ли было сделать легче? program olimp; var a,b : array of longint; r,k,m,v,i,n : longint; begin readln(n); for i:=1 to n do readln(a,b); m := a; for i:=1 to n do begin https://www.cyberforum.ru/ pascalabc-net/ thread2503084.html PascalABC.NET Вычисление N-го члена последовательности, в которой каждый следующий член равен сумме квадратов всех предыдущих https://www.cyberforum.ru/ pascalabc-net/ thread2503051.html
Всем привет, у меня такая задача : Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме квадратов всех предыдущих. Вот программа , которую я представил ниже, но есть одно НО , она работает не так как нужно , то есть при вычислении третьего члена она выводит число 5 ( 3 = (1)^2 + (2)^2)) , а должна выводить число 2 ,...
Построить усеченную пирамиду в Паскале PascalABC.NET
PascalABC.NET Вычислите год и дату рождения https://www.cyberforum.ru/ pascalabc-net/ thread2502977.html
Напишите программу которая нажав на клавиатуру выводит наш год и дату рождения одноклассника.
Alvin Seville
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
26.09.2019, 20:02 0

Массив: Заменить все отрицательные элементы значениями по модулю... - PascalABC.NET - Ответ 13856259

26.09.2019, 20:02. Показов 3808. Ответов 38
Метки (Все метки)

Ответ

Joy, там также нет ни слова про вещественный массив. С точки зрения универсальности - ReadArrReal - лучше, но, полагаю, что автор кода сам волен решать что использовать, поскольку уточнения нет в задании (это уже претензии к ТС, либо к составителю задания).

Вернуться к обсуждению:
Массив: Заменить все отрицательные элементы значениями по модулю... PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2019, 20:02
Готовые ответы и решения:

Заменить на главной диагонали все отрицательные элементы их абсолютными значениями
Постановка задачи. Исходный массив считать из файла *.txt (файл создать самим). Результаты...

Ввести двумерный массив A и заменить все отрицательные элементы на ноль
3. написать программу вводит двумерный массив A(N,M) и заменяет все отрицательные элементы на ноль

Отрицательные элементы массива заменить их модулями, а положительные - их удвоенными значениями
Не могу решить задачу, прошу у вас помощи господа Дан одномерный массив, значения элементов...

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все...

38
26.09.2019, 20:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2019, 20:02
Помогаю со студенческими работами здесь

Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами
переведите на паскаль Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы...

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

все элементы, стоящие на главной диагонали заменить на противоположной по модулю
В двумерном массиве 10*10 элементов все элементы, стоящие на главной диагонали заменить на...

Заменить все отрицательные элементы целочисленного массива
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru