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

[Elly]

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

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

[Росляев]

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

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

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

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

[Paddington]

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

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.

Изменено 8 ноября, 2011 пользователем Paddington

[Росляев]

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

 

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

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

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

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

[Росляев]

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

 

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

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

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

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

 

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

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

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

[taurus3991]

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

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

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

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

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