Квадратная матрица Опции

[DZZRtt]

Задача следующая: дана квадр матрица наити количество нулей, положительных и отрицательных элементов .
Задачу я решил самостоятельно, понемногоу начинаю везжать в простенькое программирование
теперь просто для себя хочу сделать так чтобы можно было каждое из этих действий выполнять отдельно.

Например при нажатии клавиши 1 - вычислялось количество нулей
2- отрицательных
3-положительных чиселю
Как это можно реализовать?

[Bokul]

А есть возможность выполнять все 3 действия не запуская програму каждый раз по новой?

Вот программная реализация того, что сказала мисс_граффити, только для выхода надо нажать Esc:

uses crt;
var ch:char;
begin
  repeat
     ch:=readkey;
     clrscr;
     case ch of
       '1': writeln('First procedure');
       '2': writeln('Second procedure');
       '3': writeln('Third procedure');
     end;
  until ch=#27;
end.

Я матрицу генерю случайную и не получается проверить считается ли количество остальных элементов

Если ты используешь random без randomize, то будешь получать одинаковую матрицу при каждом запуске. Удобно при отладке прог.

Сообщение отредактировано: Bokul - 8.12.2006 5:12