Версия для печати темы

Автор: Fatum 10.12.2006 17:30

Помогите пожалуста с задачей
Сформировать и отобразить на екране текстовый файл в котором все символы заменить на их числовое значение представленое в таблице 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 10.12.2006 17:39

Метки - зло

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

Автор: Fatum 10.12.2006 18:34

текст произвольный . текст задачи вот всё что нужно сделать. какие будут варианты?..

Автор: Fatum 10.12.2006 23:19

помогите!!очень нужно!!

Автор: Bokul 10.12.2006 23:46

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

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 11.12.2006 0:31

Большое спасибо!
Bokul !