Создание сайтов и программирование

Платные услуги → работа на ПАСКАЛЬ и C/C++, решение задач студентам!



АвторСообщение



Сообщение: 1
Зарегистрирован: 25.12.09
Рейтинг: 0
ссылка на сообщение  Отправлено: 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.


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 4 [только новые]


администратор




Сообщение: 38
Настроение: Кого бы послать...
Зарегистрирован: 11.06.07
Рейтинг: 0
ссылка на сообщение  Отправлено: 25.12.09 12:33. Заголовок: А это вообще компили..


А это вообще компилируется?

Спасибо: 0 
ПрофильЦитата Ответить



Сообщение: 2
Зарегистрирован: 25.12.09
Рейтинг: 0
ссылка на сообщение  Отправлено: 25.12.09 14:02. Заголовок: нет..


нет

Спасибо: 0 
ПрофильЦитата Ответить



Сообщение: 3
Зарегистрирован: 25.12.09
Рейтинг: 0
ссылка на сообщение  Отправлено: 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х строчек

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Сообщение: 39
Настроение: Кого бы послать...
Зарегистрирован: 11.06.07
Рейтинг: 0
ссылка на сообщение  Отправлено: 25.12.09 15:02. Заголовок: Если не компилируетс..


Если не компилируется, значит читайте, что пишет компилятор, в какой строке и какая ошибка.

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 1
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет



Форум открыт для решения вопросов, возникающих при попытке создать свой первый сайт. Обсуждаются вопросы, связанные с кодированием, дизайном и размещением сайтов в интернете (hosting).

Форум ориентирован, в основном, на помощь начинающим создавать собственные интернет ресурсы. Допускается реклама соответствующих услуг, но только после вразумительной и реальной помощи в виде бесплатных консультаций по созданию сайтов или программированию.

Дополнительный раздел по программированию для PC ориентирован на школьников и студентов.

Поиск работы - база резюме и вакансий.

Форум

Форум помощи студентам - решение задач по начертательной геометрии, курсовые работы studentka.borda.ru


2007.06.11