Отправлено: 25.12.09 11:48. Заголовок: не получается удалить 2 строки, паскаль
Здраствуйте. Помогите отредактировать программу. Есть квиток,который имеет вид Предприятие Ноябрь 2009 г. Подр-е:4400 3895( 3): РЫМАРЕНКО О.А. ------------------------------------------------------------ М код начисл. рв сумма | М код удерж. сумма 10 104 OKЛAД 10.00 563.78 |10 305 НалогФЛ -535.00 10 106 ОКЛАД/ч 65.00 -1534.33 |10 325 ПPOФC. -11.16 10 199 P/K ФЗП -145.58 |11 347 Недвиж. 500.00* 11 107 ПO CPEД 9.00 5669.37 |11 305 НалогФЛ 722.00 11 280 БЛ Пр.2 1.00 384.21 |11 325 ПPOФC. 56.69 ИТОГО 4937.45 | ИТОГО 232.53 | | Межрасчетные выплаты: |11 302 KACCA 3000.00 ------------------------------------------------------------ ВСЕГО начислено 4937.45 | удержано 3232.53 ------------------------------------------------------------ в вед. за месяц 1704.00 остаток 0.92
Табель: 0ГГ0ГГ10ГГГГГ1БООООООООООООООО этот квиток находится в текстовом файле. я написала программу,которая обращается к нему и выводит этот текст на экран. Далее мне инеобходимо ,что бы из этого квитка не выводились на экран(на печать) две строки 10 104 OKЛAД 10.00 563.78 |10 305 НалогФЛ -535.00 10 106 ОКЛАД/ч 65.00 -1534.33 |10 325 ПPOФC. -11.16 помогите найти ошибку PROGRAM WW; var f: text; s: string[100]; i: byte; str: char; begin assign(f,'c:\1.txt'); reset(f); while i<=length(s)+1 do begin if (str:=(s[1]+s[2]))>=11 then begin readln (f,s); writeln(s); end; else Delet(s,0,80); end; close (f); readln; end.
Отправлено: 25.12.09 14:04. Заголовок: первоночально была т..
первоночально была такая программаPROGRAM WW; var f: text; s: string[100]; begin assign(f,'c:\1.txt'); reset(f); while not Eof (f) do begin readln (f,s); writeln(s); end; close (f); readln; end. она просто выводила на экран данный квиток. теперь надо ,чтоб без 2х строчек
Все даты в формате GMT
3 час. Хитов сегодня: 0
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
Форум открыт для решения вопросов, возникающих при попытке создать свой первый сайт. Обсуждаются вопросы, связанные с кодированием, дизайном и размещением сайтов в интернете (hosting).
Форум ориентирован, в основном, на помощь начинающим создавать собственные интернет ресурсы. Допускается реклама соответствующих услуг, но только после вразумительной и реальной помощи в виде бесплатных консультаций по созданию сайтов или программированию.
Дополнительный раздел по программированию для PC ориентирован на школьников и студентов.