|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перевод из Паскаля в Дельфи
Подскажите как перевести программу из паскаля в дельфи ?
|
#2
|
||||
|
||||
Что за программа?
|
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Лучше будет, если ты выложишь исходник.
|
#5
|
|||
|
|||
укажи свой емаил? чтобы смог отправить исходник
|
#6
|
||||
|
||||
посмотри персональные сообщения
|
#7
|
|||
|
|||
нужно перевести из Паскаля в Дельфи прогу:
Код:
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. Задание: составить проект заменяющий символы в файле Text.in соответствющими цифрами в алфавитном порядке в файл Text.out. Последний раз редактировалось Admin, 17.01.2010 в 16:29. |
#8
|
||||
|
||||
Вот так под дельфи будет:
Код:
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. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
|||
|
|||
Последний раз редактировалось grigoriyi, 19.02.2010 в 05:59. |
#10
|
|||
|
|||
Цитата:
Знакомый курсачёк . Интересная тема, если автоматами алгоритм делать. Новый файловый хостинг. |