Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите решить!(матрицы и массивы в одной задаче)

Автор: АноНим 4.02.2006 15:11

Дана матрица чисел(n x n)
Создать массив строк (n),содержащих слова:"отрицат." "положит." "ноль".
Если в строке все числа отрицательны,положительны,или нули соответсвенно.
В противном случае записать слово:"Неопределенн.".Использовать процедуры.

Автор: klem4 4.02.2006 16:43

Ну держи, если еще не поздно ...

const
n = 4;
type

TArr = array [1..n] of string;
TMx = array [1..n,1..n] of integer;

procedure Input(var mx : TMx);
var
i,j : byte;
begin
for i := 1 to n do
for j := 1 to n do begin
write('mx[',i,',',j,']=');
readln(mx[i,j]);
end;
end;

procedure PrintMX(mx : TMx);
var
i,j : byte;
begin
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j] : 3,' ');
end;
end;

procedure PrintArr(arr : TArr);
var
i : byte;
begin
for i := 1 to n do writeln(arr[i]);
end;

function Sign(T : integer) : integer;
begin
Sign := 0;
if T > 0 then Sign := 1
else
if T < 0 then Sign := - 1
end;

procedure CheckRow(mx : TMx; row : byte; var st : TArr);
const
_pos : string = 'Положительные';
_neg : string = 'Отрицательные';
_zer : string = 'Нулевые';
_udf : string = 'Неопределенные';
var
i : byte;
begin
i := 1;
while (i <= n-1) and (Sign(mx[row,i]) = Sign(mx[row,succ(i)])) do inc(i);
if i = n then
case Sign(mx[row, 1]) of
1 : st[row] := _pos;
0 : st[row] := _zer;
-1: st[row] := _neg;
end
else st[row] := _udf;
end;

procedure Work(var mx : TMx; var st : TArr);
var
k : byte;
begin
for k := 1 to n do CheckRow(mx, k, st);
end;

var
m : TMx;
s : TArr;
begin
clrscr;
Input(m);
PrintMx(m);
writeln;
Work(m, s);
PrintArr(s);
readln;
end.

Автор: Гость 4.02.2006 16:58

clrscr;
[Error] ProjectXXX.dpr(78): Undeclared identifier: 'clrscr'
[Warning] ProjectXXX.dpr(86): Text after final 'END.' - ignored by compiler
Чё делать??

Автор: Ozzя 4.02.2006 17:18

dpr
В дельфи что-ли компилируешь?
В Борланд Паскале надо или Фри Паскале!

Автор: Гость 4.02.2006 17:23

А мы токо на Дельфях работаем sad.gif((

Автор: Ozzя 4.02.2006 17:26

Держи.

Код
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
...
Дальше та же программа, удалить из нее строку clrscr;

Автор: volvo 4.02.2006 17:47

Цитата(Гость @ 4.02.2006 12:23) *
А мы токо на Дельфях работаем

А мы тут все телепаты, правда? В следующий раз указывай компилятор и пость в правильный раздел (для Дельфи есть свой подфорум...)

Автор: Гость 7.06.2007 23:28

Помогите решить а то никак не соображу:
Дана квадратная матрица порядка n. В строках с отрицательным элементом на главной диагонали найти наибольший из всех элементов.

Автор: Артемий 7.06.2007 23:30

Поиском не пробовал?