Помогите исправить IF Опции

[Diablo]

в if, что энтером отделен, нужно вписать else. помогите пожалуйста, а то что-то ничего на ум не приходит.

program lab5;
uses crt;
const n=10;
      m=10;
var a,b:array [1..n,1..m] of longint;
    c:array [1..n] of longint;
    i,j,k:integer;
    max,f:longint;
begin
clrscr;
randomize;
  for i:=1 to n do
    begin
      f:=1;
      for j:=1 to m do
        begin
          if i=j then f:=1 else

if j>i then f:=f*abs(j-i) else

            a[i,j]:=(-1)*(100-f);
          write(a[i,j]:7);
        end;
      writeln;
    end;
  writeln;
  max:=a[1,1];
  for j:=1 to m do
    begin
      for i:=1 to n do
        if a[i,j]>max then max:=a[i,j];
      write(max:7);
      max:=a[1,1];
    end;
  writeln;
  writeln;
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          b[i,j]:=a[n+1-i,n+1-j];
          write(b[i,j]:7);
        end;
      writeln;
    end;
  repeat
  until keypressed;
end.

Сообщение отредактировано: Diablo - 17.05.2007 20:21

[volvo]

А если задание у тебя такое как ты показал, на что тебе эти if-ы тогда?

  for i:=1 to n do begin
    for j:=1 to m do begin

      f := 1;
      for k := 1 to abs(j - i) do f:=f*k; { <--- Вот тебе вычисление факториала }
      a[i,j]:=(-1)*(100-f);

      write(a[i,j]:7);
    end;
    writeln;
  end;

Сообщение отредактировано: volvo - 17.05.2007 21:02

[Diablo]

знаешь в чем вся штука? я целый день доказывал своему преподу, что никаких условий кроме равенства i=j здесь не нужно. что модуль, он и в африке модуль, а потому разницы нету, что больше i или же j.
но все равно, спасибо что выделил время.

[Skala_net]

знаешь в чем вся штука? я целый день доказывал своему преподу, что никаких условий кроме равенства i=j здесь не нужно. что модуль, он и в африке модуль, а потому разницы нету, что больше i или же j.
но все равно, спасибо что выделил время.

ты пол дня пива пил, как ты мог доказывать что то.

[Diablo]

закрыть тему