[eldarik]

нужно перевести из Паскаля в Дельфи прогу:

Код:

uses crt;
VAR
      fIn, fOut: Text;
      S,S1,S2: String;
      i,n:integer;
      A:array[1..26] of string;
BEGIN
  Cls;
  
  for i:=65 to 90 do begin
      A[i-64]:=chr(i);
  end;
  
  ASSIGN(fIn,'d:\Text.in');
  ASSIGN(fOut,'d:\Text.out');
  RESET(fIn);

  WHILE NOT EOF (fIn) DO BEGIN
      READLN(fIn,S);
  END;
  
  For i:=1 to length(S) do begin
      S1:=UpperCase(copy(S,i,1));
       for n:=1 to 26 do begin
          if S1=' ' then begin S2:=S2+'  '; break; end
          else if S1=A[n] then begin S2:=S2+IntToStr(n)+','; break; end;
      end;
  end;

  ReWrite(fOut);
  Writeln(fOut,S2);
  
  Close(fOut);
  Close(fIn);
END.

Admin: Пользуемся тегами!

Задание: составить проект заменяющий символы в файле Text.in соответствющими цифрами в алфавитном порядке в файл Text.out.