Форум » Pascal/Delphi » не получается удалить 2 строки, паскаль » Ответить
не получается удалить 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.
Ответов - 4
studprog: А это вообще компилируется?
даша: нет
даша: первоночально была такая программа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х строчек
studprog: Если не компилируется, значит читайте, что пишет компилятор, в какой строке и какая ошибка.
полная версия страницы