[nikolay]

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

[Aristarh Dark]

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

[nikolay]

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

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

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

[Ross]

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

[nikolay]

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

[Ross]

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

[eldarik]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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.

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

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.

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