Нижегородский Форум Друзей

Нижегородский Форум Друзей (http://forum.nnov.org/)
-   Техническая поддержка (http://forum.nnov.org/komp-yutery-i-elektronika/tehnicheskaya-podderzhka/)
-   -   помогите написать прогу на delphi (http://forum.nnov.org/komp-yutery-i-elektronika/tehnicheskaya-podderzhka/75828-pomogite-napisat-progu-na-delphi.html)

Volt 10.06.2011 15:02

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

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);

The Godfather 10.06.2011 19:33

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. А вообще, это же несложно. Не прогуливайте уроки, там иногда рассказывают полезные вещи ;)

Axel2150 10.06.2011 20:08

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


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

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод:
Search Engine Friendly URLs by vBSEO 3.6.0zCarot
© 2005—2015 ООО «Интернет компания ННОВ.РУ», friends.nnov.ru
Реклама на форуме