Перейти к содержанию

Дано натуральное число n.


Росляев

Рекомендуемые сообщения

генерируется рандомная матрица размерностью н.

потом отыскивают отрицательные значения по всей матрице(цикл фор), после чего проверяют на главной ли они диагонали. если нет, то смотрят где они: выше или ниже диагонали. И соответственно прибавляют счетчик в нужную переменную. вроде бы всё просто и понятно.

Ссылка на комментарий
Поделиться на другие сайты

  • 2 недели спустя...

Вот еще задачка:

Задание из предыдущей лабораторной работы оформить с использованием

функций и процедур. Нахождение основных значений оформить через функцию, а вывод

на печать – через процедуру.

Ссылка на комментарий
Поделиться на другие сайты

Как вариант: :) :

Program R;
Const n=3;
Type mas=array[1..n,1..n] of real;
Var a:mas;
i,j:byte;
pod,nad:integer;
Function mass(var c:mas; var nad, pod:integer):integer;
begin
pod:=0;
nad:=0;
for i:=1 to n do
for j:=1 to n do
  begin
	a[i,j]:=random(10000)-5000+random;
	if a[i,j]<0 then
	  if not(i=j) then
		if i<j then inc(nad)
		else inc(pod);
  end;
mass:=nad;
end;

Procedure vyvod(var c:mas);
begin
for i:=1 to n do
 begin
for j:=1 to n do
  Write(c[i,j]:9:3, ' ');
WriteLn;
 end;
end;

begin
randomize;
nad:=mass(a, nad, pod);
vyvod(a);
WriteLn('Количество отрицательных элементов над главной диагональю: ', nad);
WriteLn('Количество отрицательных элементов под главной диагональю: ', pod);
end.

Изменено пользователем Paddington
Ссылка на комментарий
Поделиться на другие сайты

  • 2 недели спустя...

Может еще задачку решите?

 

Циклически заполняя строки выводить на экран свои данные: фамилию и имя.

Вывод осуществляется дальше, если на запрос пользователь нажимает клавишу «Y» и

прекращается по нажатии клавиши «N». Установить эффекты мерцания и изменения

цвета при каждом новом выводе.

Ссылка на комментарий
Поделиться на другие сайты

Вот еще парочку заданий, кому интересно)

 

1.Описать, используя структуру данных запись, почтовую сортировку (город,

улица, дом, квартира, кому, ценность). Составить программу, определяющую: 1)

сколько посылок отправлено в г.Москву; 2) сколько отправлено посылок ценностью

выше 10 рублей; 3) кому отправлено более 1 посылки.

 

2.Дана непустая последовательность слов из строчных русских букв; между

соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном

порядке: все гласные буквы, которые входят в каждое слово.

Ссылка на комментарий
Поделиться на другие сайты

  • 2 недели спустя...

Дана квадратная вещественная матрица размерности n. Построить

матрицу вектор (одномерный массив) элементы которой соответственно равны

произведению элементов каждого столбца. оформить с использованием

функций и процедур. Нахождение основных значений оформить через функцию, а вывод

на печать – через процедурую

Ссылка на комментарий
Поделиться на другие сайты

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
×
×
  • Создать...