[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

25.01.2010, 07:21

GlooK

Участник форума

Регистрация: 20.04.2007

Сообщений: 174

Провел на форуме:
2310282

Репутация: 149

Твой код ужасен!
Расставил энды.
В смысл кода не вникал, потому как ты не сказал что он должен делать.

Код:

const
  n = 20; {maks dlina slova}

var
 kolvo: array[1..n] of integer;
 slovo, stroka: string;
 i, m, c: integer;
 f: text;

begin
 for i := 1 to n do
 begin
  assign(f, 'c:\in.txt');
  reset(f);
  while not eof(f) do
  begin
   readln(f, stroka);
   slovo := '';
   for m := 1 to length(stroka) do
   begin
    if stroka[m] in [',',' '] then {v kvdratnih skobkah cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
    begin
     if length(slovo) > 0 then
     begin
      kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
      slovo := '';
     end
     else slovo := slovo + stroka[m];
    end;
    if length(slovo) > 0 then kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
   end;
  end;
  close(f);
 end;
 assign(f, 'c:\out.txt');
 rewrite(f);
 for c := 1 to n do
 writeln(f, 'slov iz', c, 'bukv:', kolvo[c]);
 close(f);
 readln;
 end.