Помоги решить задачки в Паскаль

[DarkUser]

код внаглую спортированный с С-ей

uses
  SysUtils;

type
  TElementType = integer;

  TChain = array[0..0] of TElementType;
  PChain = ^TChain;

const
  N = 9;

procedure swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;

procedure reverse(P: PChain; m: integer);
var
  i, j: integer;
begin
  i := 0;
  j := m;

  while i < j do
  begin
    swap(P[i], P[j]);
    inc(i);
    dec(j)
  end;
end;

procedure antilex(P: PChain; m: integer);
var
  i: integer;
begin
  if m = 0 then
  begin
    for i := 0 to N - 1 do
      write(P[i]);
    writeln;
  end
  else
    for i := 0 to m do
    begin
      antilex(P, m-1);
      if (i < m) then
      begin
        swap(P[i], P[m]);
        reverse(P, m-1);
      end;
    end;
end;

var
  fChain: PChain;
  i: integer;
begin
  GetMem(fChain, N * SizeOf(TElementType));

  for i := 0 to N-1 do
    fChain[i] := i + 1;

  antilex(fChain, N-1);
  readln;
end.

а тут очень наглядное обоснование алгоритма...

[Nadir Zaitov]

Оффтоп:

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

TChain = array[0..0] of TElementType; PChain = ^TChain;

А у вас какой Паскаль по номеру? На BPW пришлось указатели явно прописывать P^[i] ... может у вас Дельфи?

А я раньше и по-другому... мне кажется проще

[sergeyf1]

Если можно, пишите какой именно номер задачи. Спасибо.

[DarkUser]

Оффтоп:

Сообщение от Nadir Zaitov

может у вас Дельфи?

аха, он самый... хотя мне казалось что и в паскале неявное разъименовывание есть... забыл уже

Сообщение от Nadir Zaitov

А я раньше и по-другому... мне кажется проще

так я и не претендую на первенство

[DarkUser]

Оффтоп:

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

Если можно, пишите какой именно номер задачи. Спасибо.

помедленнее, я записываю (с)

блин, халявщики обнаглели совсем
а это вам викторина будет - "угадай к какому условию задача"

[Nadir Zaitov]

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

Если можно, пишите какой именно номер задачи. Спасибо.

Номер тот, к которому подходит решение

[Алишер Кудратов]

код программы для определения количество латинских букв в тексте:

var s:string;
i,j,k:integer;

begin
writeln('введите текст');
read(s);
writeln('кол. лат. букв:');

for i:=65 to 90 do
begin
k:=0;
for j:=1 to length(s) do
if s[j]=chr(i) then
k:=k+1;
if k>0 then
writeln(chr(i),' - ',k);
end;

for i:=97 to 122 do
begin
k:=0;
for j:=1 to length(s) do
if s[j]=chr(i) then
k:=k+1;
if k>0 then
writeln(chr(i),' - ',k);
end;

end.

[DarkUser]

Алишер Кудратов
с добрым утром
жжесть... с говнокод.ру скопипастили??

[Darth Vader]

Вот, несколько короче и быстрее (45 мбайт текста - 0,9 сек):
count.c

#include "stdio.h"
int main()
{
    int ch, count;
    count = 0;
    while ((ch = getchar()) != EOF)
    {
        if ((ch > 65 && ch < 90) || (ch > 97 && ch < 122))
            count++;
    }
    printf("%d латинских символов", count);
    return 0;
}

[DarkUser]

Сообщение от Darth Vader

Вот полная работоспособная программа, с вводом.

дык то-ж на С... на нем все проще и быстрей