![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - pascal))) |
|
Delphi - pascal)))
|
Новый участник Сообщения: 4 |
помогите пожалуйста написать прогу в паскале!) задание такое:
заменить в текстовом файлевсе табуляции на соответствующее количество побелом. оч надо!!!!!заранее спасибо) |
|
Отправлено: 19:32, 13-05-2008 |
Ветеран Сообщения: 3320
|
Профиль | Отправить PM | Цитировать Этот код заменяет только на один пробел
Program TabIntoSpace; var MyTextFile: Text; MyNewTextFile: Text; i: Integer; S,O: String; begin Assign (MyTextFile, 'C:\File2tab.txt'); Assign (MyNewTextFile, 'C:\NewFileS.txt'); Reset(MyTextFile); Rewrite(MyNewTextFile); while not EOF(MyTextFile) do begin Readln(MyTextFile, S); for i:=0 to Length(S) do begin O[i]:=S[i]; if S[i]=chr(9) then O[i]:=' '; end; WriteLn(MyNewTextFile, O); end; Close(MyTextFile); Close(MyNewTextFile); end. |
Отправлено: 02:04, 14-05-2008 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать спасибо)
|
Отправлено: 09:46, 14-05-2008 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) | Loading | Программирование и базы данных | 41 | 20-05-2015 15:28 | |
Разное - Pascal | ManHack | Программирование и базы данных | 2 | 01-09-2009 22:50 | |
C/C++ - Pascal | c++ | Snake750 | Программирование и базы данных | 2 | 06-04-2009 21:59 | |
Pascal | Guest | Программирование и базы данных | 6 | 26-10-2004 17:56 | |
Pascal | BeerMan | Программирование и базы данных | 18 | 02-03-2002 01:55 |
|