Вернуться   Нижегородский Форум Друзей > Компьютеры и электроника > Техническая поддержка
Забыли пароль? Регистрация



Техническая поддержка Помогаем друг другу решать проблемы с компьютером, подключением к интернету и т.д. (Не для СОФТА!!!)


Ответ
 
Опции темы Опции просмотра
Старый 10.06.2011, 15:02   #1
Я тут новенький
 
Аватар для Volt
 
Регистрация: 02.10.2007
Пол: М
Провайдер: ВТ
Сообщений: 11
Поблагодарил: 23
Поблагодарили 6 раз в 4 сообщениях
Открыли хайд :
0 в этом сообщении
0 Всего


По умолчанию помогите написать прогу на delphi

Помогите написать программу, в которой требуется сформировать два файла символьного типа. Преобразовать файлы: удалить текст в первом файле после первой точки, а во втором после первой запятой.
оч надо! ребят помогите

program PROJECT;

uses
SysUtils;

var f1,f2: textfile;
st: string;
c: char;
i: integer;

begin
randomize;
assign(f1,'f1.txt');
assign(f2,'f2.txt');
rewrite(f1);
rewrite(f2);
for i:=1 to 100 do
begin
write(f1,chr(random(500)-250):5);
write(f2,chr(random(94)+33):3);
end;
close(f1);
reset(f1);
close(f2);
reset(f2);

Последний раз редактировалось Volt; 10.06.2011 в 15:20.
Volt вне форума  
Ответить с цитированием
Старый 10.06.2011, 19:33   #2
Крестный отец
 
Аватар для The Godfather
 
Регистрация: 17.04.2007
Адрес: Нижний Новгород
Пол: M
Провайдер: Билайн
Сообщений: 4,908
Поблагодарил: 1,384
Поблагодарили 7,039 раз в 1,808 сообщениях
Открыли хайд :
0 в этом сообщении
24 Всего


По умолчанию

Volt, приведенный код, как я понимаю, формирует странным образом файлы из 100 символов?
Код:
var f1,f2: textfile;
c: char;

begin
assign(f1,'f1.txt');
assign(f2,'f2.txt');
reset(f1);
rewrite(f2);
while not(eof(f1)) do
    begin
    read(f1,c);
    if (c='.') then break;
    write(f2,c);
    end;
close(f1);
close(f2);
end.
Как вариант, примерно так. Читаем посимвольно до точки или до конца файла, попутно посимвольно пишем во второй файл. Если точка или конец файла, то заканчиваем писать и закрываем файлы.
Если тексты маленькие, можно по ходу чтения записывать в строку, а в конце слить всю строку в файл.

P.S. А вообще, это же несложно. Не прогуливайте уроки, там иногда рассказывают полезные вещи
__________________
Мы перенесем даже конец света, если нас вовремя и правильно поддержать.
The Godfather вне форума  
Ответить с цитированием
Этот пользователь сказал Спасибо The Godfather за это полезное сообщение:
Volt (28.08.2011)
Старый 10.06.2011, 20:08   #3
Мега Друг
 
Аватар для Axel2150
 
Регистрация: 12.07.2007
Адрес: Underground town
Пол: М
Провайдер: Билайн
Сообщений: 1,062
Поблагодарил: 168
Поблагодарили 352 раз в 202 сообщениях
Открыли хайд :
0 в этом сообщении
260 Всего


По умолчанию

Программы писать вообще не сложно... берёшь и пишешь... еее
__________________

Get a motherfucking life
Axel2150 вне форума  
Ответить с цитированием
Этот пользователь сказал Спасибо Axel2150 за это полезное сообщение:
The Godfather (10.06.2011)
Ответ

Метки
assign, close, delphi, написать, первой, помогите, посимвольно, прогу, файла, файлы


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Выкл.
Pingbacks are Выкл.
Refbacks are Выкл.


Часовой пояс GMT +3, время: 10:54.