Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В каком из файлов больше положительных, отрицательных и нулевых значений. https://www.cyberforum.ru/ pascal/ thread1462459.html Пусть даны два файла целых чисел. Определите, в каком из них больше положительных, отрицательных и нулевых значений.	Pascal Дано натуральное число n. Получить это же число в виде комбинации цифр и пробелов Дано натуральное число n. Получить это же число в виде комбинации цифр и пробелов: пробелы разделяют между собой группы по три цифры, начиная справа. Например: если n=12345791, то получим n=12 345 791.
Pascal Множества: выделить из строки неповторяющиеся буквы, и вывести их на экран в алфавитном порядке https://www.cyberforum.ru/ pascal/ thread1462289.html с клавиатуры вводится строка из букв латинского алфавита и цифр, которая заканчивается знаком !. Выделить неповторяющиеся буквы и вывести их на экран в алфавитном порядке.	Pascal Доделать курсач по информатике https://www.cyberforum.ru/ pascal/ thread1462065.html Приветствую всех! Прошу помочь закончить курсовую работу! Начало есть но как продолжить не знаю. Вот исходник (PascalABC.net) (Анимацию пока не рисовал, хотелось закончить графики для начала): Program Graf;{Пример построения графика и рисунка} Uses crt,GraphABC; Var T,Fi,H,H1,V,V1,A,Ho,Te,W,dt,Hm,dH,Ht,Vm,M,My,F:double; I,XX,XX1,SS,SS1,WW,WW1,UU,UU1:Integer; Procedure GRAPHIC;...
Pascal В матрице определить количество строк, содержащих нули, и столбец с максимальной серией отрицательных чисел 2. Дана целочисленная прямоугольная матрица. Определить: A. количество строк, содержащих хотя бы один нулевой элемент (оформить в виде функции); B. номер столбца, в котором находится самая длинная серия отрицательных элементов (оформить в виде процедуры).	Pascal Вычислить количество элементов массива, меньших С https://www.cyberforum.ru/ pascal/ thread1461875.html 1. Имеется файл, в котором содержится размерность массива и его элементы. Вычислить: A. количество элементов массива, меньших С; B. сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. Полученные результаты записать в новый файл.
Pascal Структуры. Вывести фамилии студентов определенного пола https://www.cyberforum.ru/ pascal/ thread1461831.html Как сделать, чтобы выходила фамилия студента определенного пола. У меня выходит только слово"FIO" Program lb8; Uses crt; Type anketa=record FIO: string; // ФИО POL: char; // ПОЛ Dat_r: string; // Дата рождения Height: integer; // Рост B1, B2, B3, B4: 2..5; // Оценки по 4 предметам stipendia: integer;	Найдите ошибку в коде построения структуры данных Pascal Построить структуру данных которая на рисунке и реализовать процедуру чтения данных в указаном порядке Проблема заключается в том, что программа запускается, но просто показывает чёрное окно с курсором, и никаких действий порядок: х1х2х3х6х5х4х1 Сам код: uses crt; type point=^item; item=record right,left:point; data:integer; end;
Pascal Задание условия для вывода студентов заданного пола Как задать условие, чтобы на экран выводились студенты заданного пола? осталось только условие записать, не знаю как Program lb8; Uses crt; Type anketa=record FIO: string; // ФИО POL: char; // ПОЛ Dat_r: string; // Дата рождения Height: integer; // Рост B1, B2, B3, B4: 2..5; // Оценки по 4 предметам https://www.cyberforum.ru/ pascal/ thread1461658.html	Pascal Получить квадратную матрицу порядка n Помогите составить программу, очень нужно! Условие: file:///C:/Users/%D0%B0%D0%B0%D0%B0%D0%B0%D0%B0%D0%B0/Desktop/masiv.PNG https://www.cyberforum.ru/ pascal/ thread1461436.html
Составить блок схему к программе определения четности числа Pascal Помогите кому не лень и кто может помочь) Составить блок-схему алгоритма следующей задачи «ввести целое число. Алгоритм должен ответить, четным является это число или нет, делится оно на 3 или нет, и делится оно на 6 или нет.» Без кода. Только графическую схему в пеинте)	Pascal Вычислить собстывенное значение матрицы Помогите отредактировать код пожалуйста, буду благодарен. В этой строке пишет ошибку procedure Secant(var x0, x, e: real; function F: real); program sobst_znach_matr; {Найти собстсвенные значения матрицы прямым ходом} uses crt; const c=10; type mat=array of real; var A, B: mat; n: integer; https://www.cyberforum.ru/ pascal/ thread1460662.html

Puporev

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

64305 / 47602 / 32742

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

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

30.05.2015, 09:29

Найти сумму элементов матрицы, стоящих выше главной диагонали - Pascal - Ответ 7691665

30.05.2015, 09:29. Показов 2149. Ответов 8

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

var a:array[,]of integer;
    n,i,j,s:integer;
begin
randomize;
write('Введите размер матрицы n=');
readln(n);  
setlength(a,n,n);
s:=0;
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    if j>i then s:=s+a[i,j];
   end;
  writeln;
 end;
writeln('Сумма элементов выше главной диагонали=',s);
end.

Вернуться к обсуждению:
Найти сумму элементов матрицы, стоящих выше главной диагонали Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

30.05.2015, 09:29

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

Найти количество нулевых элементов матрицы, стоящих: выше главной диагонали; ниже главной диагонали
Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих:...

найти сумму элементов квадратной матрицы выше главной диагонали
найти сумму элементов квадратной матрицы выше главной диагонали,заранее спасибо!

Найти сумму элементов матрицы, расположенных выше главной диагонали
найти сумму элементов, расположенных выше главной диагонали, для матриц: X,Y,Z=X2+Y2. Сделать с...

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

	30.05.2015, 09:29

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

30.05.2015, 09:29

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

Найти сумму модулей элементов, расположенных выше главной диагонали матрицы
Подпрограммы-процедуры. Составьте программу и блок-схему, используя подпрограммы и функции. Дана...

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

Вычислить сумму элементов матрицы, расположенных выше главной диагонали
Дан массив A вычислить сумму элементов массива расположенную выше левой диагонали.

Определить сумму элементов матрицы, расположенных выше главной диагонали
Помогите кто-то решить задачку !!!!!!! Плиз . Дана матрица целых чисел размером 4 *4 . Определить...

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

Наверх