Не получается вставить цикл. Опции

[garry_m]

Привет всем! Я недавно начал работать с Паскалем и у меня возникли некоторые вопросы... Вы не могли бы подсказать как правильно поступить?
Допустим есть такой код:

uses crt;
var
  x:integer;
  y:integer;
  z:integer;
begin
  clrscr;
      
    write('Vvedite X: ');
    readln(x);
    write('Vvedite Y: ');
    readln(y);
    write('Vvedite Z: ');
    readln(z);

    if(x=y) and (y=z) then writeln('X=0 Y=0 Z=0');
    if(x<y) and (x<z) then writeln('X=0',' Y=',y,' Z=',z);
    if(y<x) and (y<z) then writeln('X=',x,' Y=0 ','Z=',z);
    if(z<x) and (z<y) then writeln('X=',x,' Y=',y,' Z=0');

    write('Nazhmite Enter...');
    readln;
end.

Как сделать так, при вводе X,Y,Z не цифр, а СИМВОЛОВ программа не выкидывала меня в редактор с ошибкой "Invalid numeric format", а скажем выдавала сообщение типа ERROR и предлагала ввести ввести данные заново? Заранее спасибо!

Сообщение отредактировано: volvo - 6.11.2006 0:42

[volvo]

garry_m, поставленная тобой (или тебе, неважно) задача решается так:
(см. также Пузырьковая сортировка, именно этот алгоритм применялся для сортировки столбцов, и Как задать матрицу, чтобы ... - это использовалось для самого описАния матрицы...)

uses crt;
const
  {Razmernost matrici MxN}
  m = 5; { columns }
  n = 5; { lines }

type
  TColumn = array[1 .. n] of integer;
  Tmat = array[1 .. m] of TColumn;
var
  mat: Tmat; {Matrici nachalnije i konechnije}
  ch: Char;  {Peremennaja podtverzdenija}
  j_m, i_m, i_n: integer;

  cnt: integer;
  T: TColumn;
begin
  clrscr;

  { Zapolnenije matrici }
  write('Vi hotite zapolnit matricu vruchnuju [Y] ili avtomaticheski [N]?: ');
  Ch := ReadKey; cnt := 0;

  writeln;
  for i_m:=1 to m do
    for i_n:=1 to n do

      if UpCase(Ch) = 'Y' then begin
        write('mat[',i_m:2,', ',i_n:2, '] = ');
        readln(mat[i_n][i_m]);
      end
      else
        mat[i_n][i_m] := i_m * i_n;


  {Vivod nachalnoj matrici}
  writeln('Nachalnaja matrica ',M,'x',N,':');
  for i_m:=1 to M do begin
    for i_n:=1 to N do
      write(mat[i_n][i_m]:5);
    writeln;
  end;


  {Perestanovka strok}
  write('Dlja vivoda konechnoj matrici nazhmite Enter...'); readln;


  writeln('Konechnij rezultat:');
  For i_m := 1 To m Do
    For j_m := m DownTo i_m + 1 Do
      If mat[Pred(j_m)][n] > mat[j_m][n] Then { < } Begin
        T := mat[j_m - 1]; mat[j_m - 1] := mat[j_m]; mat[j_m] := T
      End;


  {Vivod konechnoj matrici}
  for i_m:=1 to M do begin
    for i_n:=1 to N do
      write(mat[i_n][i_m]:5);
    writeln;
  end;

  write('Dlja prodolzhenija nazhmite Enter...'); readln;

end.

P.S. В следующий раз вопросы на другие темы задавай в новом топике...