7.7 помогите поожалуйста

Тема в разделе "Общие вопросы "1С:Предприятие 7.7"", создана пользователем сом, 23 дек 2013.

  1. TopicStarter Overlay
    сом
    Offline

    сом

    Регистрация:
    23 дек 2013
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    program alina;
    Type massiv=array[1..3,1..3]of integer;
    mas1=array[1..3,1..3] of real;
    var a,b:massiv;
    c:mas1;
    procedure RandomMas(var x:massiv);
    var i,j:integer;
    begin
    for i:=1 to 5 do
    for j:=1 to 5 do x[i,j]:=1+random(20);
    end;
    procedure vavod(var x: massiv);
    var i,j:integer;
    begin
    for i:=1 to 5 do
    begin
    for j:=1 to 5 do
    write(x[i,j]:4);
    writeln;
    end;
    end;
    procedure vavod1(var x: mas1);
    var i,j:integer;
    begin
    for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    write(x[i,j]:4:2);
    writeln;
    end;
    end;
    Procedure delenie(var x,y:massiv; z:mas1);
    var i,j:integer;
    begin
    for i:=1 to 3 do
    for j:=1 to 3 do
    z[i,j]:=x[i,j]/y[i,j]; вот здесь выдает ошибку деление а ноль что делать???
    end;
    Begin
    randomize;
    writeln('massiv a');
    randomMas(a);
    vavod(a);
    writeln('massiv b');
    randomMas(b );
    vavod(b );
    delenie(a,b,c);
    vavod1( c);
    end.
  2. La Navidad
    Offline

    La Navidad Опытный в 1С

    Регистрация:
    25 дек 2012
    Сообщения:
    203
    Симпатии:
    1
    Баллы:
    26
    Задать вопрос на форуме по Паскалю
  3. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    if y[i,j]=0 then
    z[i,j]:=0;
    else
    z[i,j]:=x[i,j]/y[i,j];
    end

Поделиться этой страницей