![]() |
помогите написать прогу на 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); |
Volt, приведенный код, как я понимаю, формирует странным образом файлы из 100 символов?
Код:
var f1,f2: textfile; Если тексты маленькие, можно по ходу чтения записывать в строку, а в конце слить всю строку в файл. P.S. А вообще, это же несложно. Не прогуливайте уроки, там иногда рассказывают полезные вещи ;) |
Программы писать вообще не сложно... берёшь и пишешь... еее
|
Часовой пояс 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
Реклама на форуме