VPF::Паскаль. Строковые переменные

safary

Дата 10.12.2008, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 25.11.2008

Репутация: нет
Всего: нет

Сделайте пожалуйста лабу за деньги до утра.
Написать программу, которая считывает текст из файла и выводит его на экран, заменив цифры от 0 до 9 на слова «ноль», «один», ..., «девять», начиная каждое предложение с новой строки.

safary

Дата 11.12.2008, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 25.11.2008

Репутация: нет
Всего: нет

Код


var
 C: Char;
begin
 Assign(Input, 'C:\Program Files\Borland\Delphi7\Projects\pascal\num.txt');
 Reset(Input);
 Assign(Output, 'C:\Program Files\Borland\Delphi7\Projects\pascal\outpu.txt');
 Rewrite(Output); 
 while not EOF do begin
   while not EOLN do begin 
     Read(C);
     case C of 
       '0': Write('íîëü');
       '1': Write('îäèí');
       '2': Write('äâà'); 
       '3': Write('òðè'); 
       '4': Write('÷åòûðå'); 
       '5': Write('ïÿòü'); 
       '6': Write('øåñòü'); 
       '7': Write('ñåìü'); 
       '8': Write('âîñåìü');
       '9': Write('äåâÿòü');
     else 
       if C = '.' then 
         WriteLn('.') 
       else 
         Write(C); 
     end; 
   end; 
   WriteLn;
 end; 
 Close(Input); 
 Close(Output);
end.

может надо кому

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »