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

[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

[Jahnerus]

volvo

Jahnerus
Я бы добавил еще кое-что:

var
x: longint;
...
Readln(s);
val(s, x, er);
if (er<>0) or (er < -maxint) or (er > maxint)
then writeln('Error');

Хе ! только щас увидел один нюанс !
Насколько я знаю процедура val возвращает код ошибки следующим образом,
код ошибки -

позиция в которой произошла ошибка при преобразовании, или нуль, если ошибки не было.

а тогда встаёт вопрос нафига нужны два последних условия er < -maxint и er > maxint
первое так ваще не понятно, потому что позиция по определению не может быть отрецательной, а второе (это что защита от запаршей клавиши или от дурака набирающего число длиной больше 32767 символов ) - кажется в строку и так больше 128 символов не введёшь с клавиатуры.
поэтому на мой взгляд оптимальный вариант это:

Код

var
x: longint;
...
Readln(s);
val(s, x, er);
if er<>0 then writeln('Error');

Сообщение отредактировано: Jahnerus - 5.12.2004 5:10