Turbo Pascal

[Cris]

Ответ: Turbo Pascal

напишите плз код быстрой сортировки с без рекурсии ато с рекурсией полно а без чето ненашол. ато столкнулся что надо сортировать быстро и все и нетуда и несуда

 

[Vano]

Ответ: Turbo Pascal

Ну вот держите електро счетчик на 4 значения. Сделан немного туповато, но работает нормально.

program schetchik;
uses crt;
const N = 4;
var A : array[1..N] of Integer;
i,k: integer;
function peremotka(T:integer):boolean;
begin
     if T > 9 then
     peremotka := true;
end;
begin
     clrscr;
     readln(k); {сколько раз считать}
     for i:=1 to k do
     begin
          A[1] := A[1] + 1;
          if (peremotka(A[1]) = true) then
          begin
               A[1] := 0;
               A[2] := A[2] + 1;
               if (peremotka(A[2]) = true) then
               begin
                    A[2] := 0;
                    A[3] := A[3] + 1;
                    if (peremotka(A[3]) = true) then
                    begin
                         A[3] := 0;
                         A[4] := A[4] + 1;
                         if (peremotka(A[4]) = true) then
                         begin
                              {Перевод после 9999}
                              A[4] := 0;
                              A[3] := 0;
                              A[2] := 0;
                              A[1] := 0;
                         end;
                    end;
               end;
          end;
          delay(1000);
          clrscr;
          writeln(A[4],A[3],A[2],A[1]);
     end;

end.

 

[Тарас]

Ответ: Turbo Pascal

Ну вот держите електро счетчик на 4 значения. Сделан немного туповато, но работает нормально.

program schetchik;
uses crt;
const N = 4;
var A : array[1..N] of Integer;
i,k: integer;
function peremotka(T:integer):boolean;
begin
     if T > 9 then
     peremotka := true;
end;
begin
     clrscr;
     readln(k); {сколько раз считать}
     for i:=1 to k do
     begin
          A[1] := A[1] + 1;
          if (peremotka(A[1]) = true) then
          begin
               A[1] := 0;
               A[2] := A[2] + 1;
               if (peremotka(A[2]) = true) then
               begin
                    A[2] := 0;
                    A[3] := A[3] + 1;
                    if (peremotka(A[3]) = true) then
                    begin
                         A[3] := 0;
                         A[4] := A[4] + 1;
                         if (peremotka(A[4]) = true) then
                         begin
                              {Перевод после 9999}
                              A[4] := 0;
                              A[3] := 0;
                              A[2] := 0;
                              A[1] := 0;
                         end;
                    end;
               end;
          end;
          delay(1000);
          clrscr;
          writeln(A[4],A[3],A[2],A[1]);
     end;

end.

спасибо , но мы такого еще не учили а не знаеш способа сделать проще используя только for to do?

 

[dreamer]

Ответ: Turbo Pascal

напишите плз код быстрой сортировки с без рекурсии ато с рекурсией полно а без чето ненашол. ато столкнулся что надо сортировать быстро и все и нетуда и несуда

Товарисч, пользуйтесь поиском - совсем недавно в этом же форуме была создана тема по быстрой сортировке где я приводил код как рекурсивной так и нерекурсивной версий.
Кстати чем вам-то рекурсивная не угодила? На 32битных компиляторах проблем со стеком быть не должно.

 

[dreamer]

Ответ: Turbo Pascal

Да, блин, привели бы пример того, как оно должно работать сразу все стало бы понятно.
Делается все предельно просто:

program cnt;
uses crt;
const
  c_start = 0;
  c_end = 1000;
  c_size = 5;

var i:integer;

procedure write_padded(num,size:word);
var s:string;
    i:integer;
begin
  str(num,s);
  for i := length(s) to size do write(0);
  write(s);
end;

BEGIN
    for i := c_start to c_end do begin
        write(#13);
        write_padded(i,c_size);
        delay(1000);
    end;
END.

 

[Cris]

Ответ: Turbo Pascal

Товарисч, пользуйтесь поиском - совсем недавно в этом же форуме была создана тема по быстрой сортировке где я приводил код как рекурсивной так и нерекурсивной версий.
Кстати чем вам-то рекурсивная не угодила? На 32битных компиляторах проблем со стеком быть не должно.

Рекурсивная неугодила тем что учителю в школе она видитиле ненравится)

 

[Cris]

Ответ: Turbo Pascal

и еше одно: Я ПРОСИЛ КОД НАПИСАНЫЙ НА ПАСКАЛЕ

 

[dreamer]

Ответ: Turbo Pascal

Блин, и все же о поиске:

You must be registered for see links

Первый же результат:

You must be registered for see links

Может вам и кашку пожевать и зондиком в желудочек? (c)

 

[FCDynamoKiyv]

Ответ: Turbo Pascal

помогите пожалуйста решить или подскажите как делать.
задание такое:описать структуру базы данных(успеваимость класса за 6 уроков).

З.Ы. заранее благодарен.

 

[bolik1]

Ответ: Turbo Pascal

Кто может решить контрольную по Turbo Pascal за вознаграждение?
Срочно!Ответ в ЛС.