Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Есть код прог-мы. Нужна менюшка. https://www.cyberforum.ru/ pascalabc/ thread241649.html Вообщем, есть код программы, которая определяет является ли матрица магическим квадратом. Брал его с этого же форума: Ребята, сделайте пожалуйста к нему меню из пунктов: 1.запуск 2.Рук-во пользователя( при нажатии 2 должен появлятся текст, любой) 3.Выход Заранее спасибо.	Pascal ABC Pascal ABC и экология Уважаемые программисту прошу помощи в решении задачи: через сколько дней уровень загрязнения воды отходами уменьшится в N раз, если каждый день он уменьшается на P % (значения N и P вводятся с клавиатуры). Добавлено через 48 минут Вот примерный код: program zadacha; var p,n,dni,otx,otx1,otx2,e:real; begin writeln('начальное загрязнение ='); readln(otx);
Pascal ABC Помогите завершить программу https://www.cyberforum.ru/ pascalabc/ thread241609.html условие:"Создать текстовый файл в программе объявленный как символьный (file of char). Слова в строках файла разделяются пробелами. Отпечатать первое слово третьей строки файла, если оно существует.Признаком конца строки являются два последовательных символа #13 и #10, признаком конца файла - символ #26." Вот наработки, но я не понимаю как сделать обработку строк. type CharFile = file of...	Pascal ABC Найти кубы чисел от 25 до 55 https://www.cyberforum.ru/ pascalabc/ thread241605.html Нужно найти кубы чисел от 25 до 55, но Pascal выдаёт другие результаты. program DZ19_2; uses crt; var x, s, pow, i, y: integer; begin for i:= 25 to 55 do begin y:=sqr(i)*i; writeln (y); end;
Обработка отдельных строк (столбцов) матрицы и работа с диагона-лями Pascal ABC помогите решить : Ввести целочисленный двумерный массив А(NXM) , вывести его. Определить K1 – сколько в массиве элементов, кратных числу Imax , и K2 –сколько кратных Imin , где Imax и Imin – номера строк, содержащих соответственно максимальный и минимальный элементы матрицы. Значением K1 заменить отрицательные, а значением K2 – неотрицательные элементы первой строки.	Pascal ABC прямоугольные матрицы https://www.cyberforum.ru/ pascalabc/ thread241551.html помогите пожалуйста решить задачку на двумерный массив. Ввести двумерный массив A(NxM) . Отрицательные элементы массива умножить на сумму квадратов собственных индексов. Массив вывести до и после преобразования.
Pascal ABC вычислить массу воздуха в комнате https://www.cyberforum.ru/ pascalabc/ thread241411.html Люди помогите написать программу на паскале, чтобы вычислить массу воздуха в комнате. Надо чтобы были переменные a- длина b-ширина c-высота 1.29- плотность воздуха)) Заранее спасибо))	Pascal ABC подсчитать, сколько слов имеет нечётное количество символов пЛИЗ ПОМОГИТЕ РЕшить!!у нас только несколько уроков было по ПАСКАЛю и я не разобрался толкоМ!!!
Pascal ABC Требуется вывести число наоборот Дано число, вывести порядок цифр обратный данному числу https://www.cyberforum.ru/ pascalabc/ thread241340.html	Pascal ABC Возрастание и убывание в числе https://www.cyberforum.ru/ pascalabc/ thread241339.html Дано число, требуется отсортировать сначала по возрастанию а потом по убыванию цифры в нём
Найти сумму положительных нечётных <100 в последовательности Pascal ABC Дана последовательность чисел заканчивающихся на 0 найти сумму положительных нечётных <100	Pascal ABC Сортировка массива по возрастанию и убыванию Дана последовательность чисел заканчивающихся на 0, отсортировать сначала последовательность по возрастанию а потом по убыванию Добавлено через 22 минуты Пример: 45 9 256 512 87 0 Вывести: по возрастанию 0 9 45 87 256 512 по убыванию 512 256 87 45 9 0 https://www.cyberforum.ru/ pascalabc/ thread241336.html

Vanchel56

1 / 1 / 1

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

Сообщений: 22

Получить сумму положительных и число отрицательных членов последовательности - Pascal ABC - Ответ 1363580

12.02.2011, 18:40. Показов 1656. Ответов 5

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

Author24 — интернет-сервис помощи студентам

Одномерный массив
Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an получить сумму положительных и число отрицательных членов.
Двумерный массив

Даны натуральное число n, действительная матрица . Получить последовательность элементов главной диагонали а11, а22,…, аnn.
Прошу написать эти программы на языке Packal. Буду очень признателен и благодарен за помощь.

Добавлено через 2 минуты
Вот есть коды на эти программы, помогите их собрать в полноценные программы.

1)
Код:

Pascal

count := 0;
sum := 0;
for i := 1 to n do
begin
     if a[i] > 0 then sum := sum + a[i];
     if a[i] < 0 then Inc(count);
end;
Writeln ('Summa = ', sum);
Writeln ('Koli4estvo = ', count);

2)
Код:

Pascal

var
    a: array[1..n, 1..n] of real;
    b: array[1..n] of real;
begin
for i := 1 to n do
    b[i] := a[i,i];
end.

Вернуться к обсуждению:
Получить сумму положительных и число отрицательных членов последовательности Pascal ABC

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

Лучшие ответы (1)

Сообщение: #1363921

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.02.2011, 18:40

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

Массив: Вычислить сумму положительных, четных элементов, > 5 и сумму отрицательных членов последовательности
Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму...

Получить удвоенную сумму всех положительных членов последовательности
Одномерные массивы. Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить...

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

Получить удвоенную сумму всех положительных членов последовательности
Даны нат. число, действительные числа X1,...,Xn. Получить удвоенную сумму всех положительных членов...

	12.02.2011, 18:40

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.02.2011, 18:40

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

Получить удвоеную сумму всех положительных членов последовательности
даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех...

Подпрограммы. Получить удвоенную сумму всех положительных членов последовательности с помощью функции
Даны натуральное число n и действительные a1,…,an, где n=100. Получить удвоенную сумму всех...

Установить, верно ли, что отрицательных членов в последовательности больше, чем положительных?
Помогите пожалуйста с условием. Установить, верно ли, что отрицательных членов в последовательности...

Подсчитать произведение и сумму отрицательных членов последовательности
Подсчитать произведение и сумму отрицательных членов последовательности -10 -7 -4...10, ноль...

Наверх