Морзе. Заменить цифры на код морзе.

@skorp10ns · Регистрация: 31.10.2009

Студворк — интернет-сервис помощи студентам

ПОМОГИТЕ!!! Люди вот пишу программу. Задание: необходимо в текстовом файле заменить цифры на код морзе, если попадаются буквы, то их не изменять и оставить в файле, как есть.
У меня цифры программа заменяет, а буквы заменяет пробелами. Помогите с буквами))

p.s.: входной файл - f, выходной - g, хранятся на диске e, в папке 7.

Pascal

uses crt;
  var f,g:text;
      ch:char;
  function morza(t:char):string;
   begin
    if t='0' then morza:='-----';
    if t='1' then morza:='.....';
    if t='2' then morza:='-....';
    if t='3' then morza:='--...';
    if t='4' then morza:='----.';
    if t='5' then morza:='-----.';
    if t='6' then morza:='.----';
    if t='7' then morza:='..---';
    if t='8' then morza:='...--';
    if t='9' then morza:='....-';
    if t=' ' then morza:=' ';
   end;
  begin
    clrscr;
     assign(f,'e:\7\f.txt');
     assign(g,'e:\7\g.txt');
     reset(f);
      writeln('Vyvod faila');
      while not eof(f) do begin
       read(f,ch);
       write(ch);
      end;
     writeln;
     reset(f);reset(g);rewrite(g);
     writeln;
     writeln('vyvod posvle shifrovania');
      while not eof(f) do begin
    read(f,ch);
      write(morza(ch));
      write(g,morza(ch));
      end;
    close(f);close(g);
    readln;
end.

@yanyk1n · 14.02.2010, 11:25

Pascal

uses crt;
  var f,g:text;
      ch:char;
  function morza(t:char):string;
   begin
    case t of
    '0':morza:='-----';
    '1':morza:='.....';
    '2':morza:='-....';
    '3':morza:='--...';
    '4':morza:='----.';
    '5':morza:='-----.';
    '6':morza:='.----';
    '7':morza:='..---';
    '8':morza:='...--';
    '9':morza:='....-';
    ' ':morza:=' ';
    else morza:=t;
    end;
   end;
  begin
    clrscr;
     assign(f,'e:\7\f.txt');
     assign(g,'e:\7\g.txt');
     reset(f);
      writeln('Vyvod faila');
      while not eof(f) do begin
       read(f,ch);
       write(ch);
      end;
     writeln;
     reset(f);
     rewrite(g);
     writeln;
     writeln('vyvod posvle shifrovania');
      while not eof(f) do begin
        read(f,ch);
          write(morza(ch));
          write(g,morza(ch));
      end;
    close(f);
    close(g);
    readln;
end.

@Страдалецъ · 14.02.2010, 11:30

Так попробуйте:

Pascal

function morza(t:char):string;
begin
 case t
 of '0': morza:='-----';
     '1': morza:='.....';
     '2': morza:='-....';
     '3': morza:='--...';
     '4': morza:='----.';
     '5': morza:='-----.';
     '6': morza:='.----';
     '7': morza:='..---';
     '8': morza:='...--';
     '9': morza:='....-';
     else morza:= t;
   end;
end;

Добавлено через 1 минуту
Опоздал. Вот эту штуку

Pascal

1	' ':morza:=' ';

уберите.

@skorp10ns · 14.02.2010, 11:47 **[ТС]**

спс. все работает)))

@skorp10ns 0 / 0 / 0 Регистрация: 31.10.2009 Сообщений: 9
	14.02.2010, 11:47 [ТС]	4
	спс. все работает))) 0

Опции темы