массив

[cherw9!40k]

Сообщение от IT-man

это смесь имхо с++ и паскаля))

Эээ- А где я там из с++ вставил?

[NewMen]

program DifferentRandom;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n = 100;
type
  TBool = array[0..n] of Boolean;
  TElem = array[1..n] of Byte;
var
  i, j, t: Byte;
  b: TBool;
  a: TElem;
 
begin
  Randomize;
  for i := 0 to n do
    b[i] := false;
  for i := 1 to n do begin
    t := Random(101);
    if b[t] then begin
      for j := 1 to n do
        if (b[j] = false) then begin
          a[i] := j;
          b[j] := true;
          break;
        end;
    end else begin
      a[i] := t;
      b[t] := true;
    end;
  end;
  for i := 1 to n do
    Write(a[i], ' ');
  Readln;
end.

вот моя программа для задачи 1....... Найдите пожалуйста ошибку!

[IT-man]

int a;
for int i:
 while(b=true)
 for int j:

[NewMen]

я несколько раз проходил по проге, и не могу найти Где моя ошибка...

[cherw9!40k]

Сообщение от A_r_r_a_y

cherw9!40k

int a;
int i;
int j;

немного не по паскалевски)

Исправил) Хотя, опять-таки, не в этом же суть)

[NewMen]

program DifferentRandom;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
n = 100;
type
TBool = array[0..n] of Boolean;
TElem = array[1..n] of Byte;
var
i, j, t: Byte;
b: TBool;
a: TElem;

begin
Randomize;
for i := 0 to n do
b[i] := false;
for i := 1 to n do begin
t := Random(101);
if b[t] then begin
for j := 1 to n do
if (b[j] = false) then begin
a[i] := j;
b[j] := true;
break;
end;
end else begin
a[i] := t;
b[t] := true;
end;
end;
for i := 1 to n do
Write(a[i], ' ');
Readln;
end.

вот моя программа для задачи 1....... Найдите пожалуйста ошибку!

[cherw9!40k]

Сообщение от NewMen

я несколько раз проходил по проге, и не могу найти Где моя ошибка...

код надо вставлять в тег (), ибо неудобно читать + сам код надо делать структурным, ибо неудобно читать

[NewMen]

код надо вставлять в тег (), ибо неудобно читать + сам код надо делать структурным, ибо неудобно читать

я понял, исправлюсь

[cherw9!40k]

end;
end else begin

Меня вот это смущает

[NewMen]

program DifferentRandom;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
    n = 100;
type
   TBool = array[0..n] of Boolean;
   TElem = array[1..n] of Byte;
var
    i, j, t: Byte;
    b: TBool;
    a: TElem;

begin
  Randomize;
 for i := 0 to n do
   b[i] := false;
 for i := 1 to n do begin
   t := Random(101);
     if b[t] then begin
       for j := 1 to n do
         if (b[j] = false) then begin
          a[i] := j;
          b[j] := true;
          break;
         end;
      end else begin
        a[i] := t;
        b[t] := true;
      end;
 end;
  for i := 1 to n do
   Write(a[i], ' ');
   Readln;
end.