[nikolay]

Подскажите как перевести программу из паскаля в дельфи ?

[Aristarh Dark]

Что за программа?

[nikolay]

Сообщение от Aristarh Dark

Что за программа?

регистрирует сигналы АЦП и показывает в графическом режиме дали задание перевести эту программу в Дельфи 6

[Ross]

Лучше будет, если ты выложишь исходник.

[nikolay]

укажи свой емаил? чтобы смог отправить исходник

[Ross]

посмотри персональные сообщения

[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.

[Страдалецъ]

Вот так под дельфи будет:

Код:

program Project37;
{$APPTYPE CONSOLE}

Uses
  SysUtils;

VAR
fIn, fOut: Text;
S,S1,S2: String;
i,n:integer;
A:array[1..26] of string;
BEGIN
for i:=65 to 90 do begin
A[i-64]:=chr(i);
end;

ASSIGNFILE(fIn,'d:\Text.in');
ASSIGNFILE(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:=UpCase(S[i]);
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);

CloseFile(fOut);
CloseFile(fIn);

end.

[grigoriyi]

спасибо за перевод

_______________
бесплатные прокси

[nwm]

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

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

Знакомый курсачёк . Интересная тема, если автоматами алгоритм делать.