Помощь - Поиск - Пользователи - Календарь
Полная версия: Текстовый файл
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Fatum
Помогите пожалуста с задачей
Сформировать и отобразить на екране текстовый файл в котором все символы заменить на их числовое значение представленое в таблице ASCII . Найти суму всех символов.
у меня получилось что-то такое ..
var f:text;
y,x:string;
i,s:integer;
label d;
begin

assign (f,'file.pas');
reset(f);
d:
write ('Введите строку текста') ;
readln(x);
writeln(f,x);
writeln('Будете ещё ??y/n');
read(y) ;
if y='y' then goto d ;
close (f);
reset(f) ;
while not eof (f) do begin
s:=0;
while not eoln(f) do begin
read(x);
for i:=1 to length(x) do s:=s+ord(x[i]);write (ord(x[i]),'') ;
writeln(s) ;
end;
end;
close(f);
end.
.
Заранее благодарен!!
klem4
Метки - зло smile.gif

Исходный текст в каком формате ? Строка ? Файл (text/file of char) ? Массив строк ? ...
Fatum
Цитата(klem4 @ 10.12.2006 12:39) *

Метки - зло smile.gif

Исходный текст в каком формате ? Строка ? Файл (text/file of char) ? Массив строк ? ...

текст произвольный . текст задачи вот всё что нужно сделать. какие будут варианты?..
Fatum
помогите!!очень нужно!!
Bokul
Цитата
Метки - зло

В мире будет меньше зла:

uses crt;
var f:text;
y,x:string;
i:integer;
s:longint;
begin
clrscr;
assign (f,'file.txt');
rewrite(f);
repeat
writeln('Введите строку текста') ;
readln(x);
writeln(f,x);
writeln('Будете ещё ??y/n');
readln(y) ;
until y='n';
close (f);
reset(f) ;
s:=0;
while not eof (f) do
begin
s:=0;
readln(f,x);
for i:=1 to length(x) do
begin
s:=s+ord(x[i]);
write(ord(x[i]),' ');
end;
end;
writeln('Somme: ',s);
readln;
close(f);
end.



Fatum
Большое спасибо!
Bokul !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.