Матрица Опции

[ghost]

:help: Помогите пожалуйста сделать задачу :help:
Дана матрица А(6,6). Создать новую матрицу В(6,6), где
а) В(I,J)=A(I,J), если A(I,J)>0
б) B(I,J) не равно 0, если A(I,J)<=0
Вывести исходную матрицу А, а под ней полученную матрицу В.
В программе должна быть "защита от дурака"

Сообщение отредактировано: ghost - 5.12.2004 0:23

[АнтонП]

Я сруктуру рандома не изучал, но инстнктивно кажется, что так будет случайнее

Кто-нить конец задачи читал, вообще,

Ручной ввод нужен, а то какие "дураки", если комп все делает?

"защита от дурака" 0.01 beta версия

Если вводить напрямую read(a[i,j]),
то защиту поставить трудно, вроде можно исключительную ситуацию обработать, но в паскале я не знаю как,

лучше вводить элементы матрицы в строку

Код

var s:string;
var y:1..2; r:0..9;
a,b:array[1..6,1..6]of integer;
i,j,k,l:integer;
begin

........****................цикл

read(S);
i:=1;j:=1; a[i,j]:=0;
y:=1;
if s[1]='-' then y:=2;

for k:= y to length(s) do
if s[k] in ['0'..'9'] then
begin
      val(s[k],r,l);
      a[i,j]:= a[i,j]+r*round(exp((length(s)-k)*ln(10)));

end
else
begin
      writeln('Ошибка!');
      readln;
      readln;
      Exit;
End;

If s[1]='-' then a[I,J]:= a[I,J]*(-1);

…………*****…………….


writeln(a[i,j]);
readln;
readln;
end.

--Какая-то лажа, вроде должна работать, но…(От нас защиты нет!(шутка))

Или по-«Крутому» 0.02 beta

Код

var a:integer;
begin
{$i-}
readln(a);
if IoResult<>0  then writeln('Errrror')
else writeln(a);
{$i+}

readln;
readln;
end.