Помогите пожалуйсто!(pascal), зачёт надо здать... Опции

[PreDatoR]

Помогите плииззз! PASCAL

1) Написать программу которая будет считывать с уже созданного файла 001.txt информацию:

5
10
15
25
30

и помещать все числа меньше 15 в файл 002.txt
а числа больше 15 в файл 003.txt

2) Задачка почти такая же... только вместо 5 10 15.... там будут слова (любые)
программа должна считать и поместить слово которое имеет растояние больше 4 букв в файл 002.txt
меньше в 003.txt

3) Написать программу которая будет считывать информацию с файла 1.bin :

тел.
имя.
возрост.
рост.

затем, с помощъю ввода запросить данные 5-ти человек.
И из них у кого рост больше 170 см записать в файл 2.bin а у кого меньше пропускать.

ну чтобы стало примерно так:

тел. 02
имя. Den
возрост. 16
рост. 185

пожалуйсто помогите в заранее спосибо!

Сообщение отредактировал PreDatoR - Jun 15 2007, 16:37

[be_love]

ГЫК, видимо чуваку ОАП дается с трудом...
А ассигн, так вообще темный лес видимо
ЗЫ: на 3 курсе, на экзамене у большинства пиплов, будут практические задания похожие на ето, но усложненные

[Scotty]

ГЫК, видимо чуваку ОАП дается с трудом...
А ассигн, так вообще темный лес видимо
ЗЫ: на 3 курсе, на экзамене у большинства пиплов, будут практические задания похожие на ето, но усложненные

у нас почти вся группа такая. Думаю вот как экзамен по ОАП сдавать буду. Чёт чувствую, что не сдам с первой попытки впрочем, как и остальные.

[be_love]

у нас почти вся группа такая. Думаю вот как экзамен по ОАП сдавать буду. Чёт чувствую, что не сдам с первой попытки впрочем, как и остальные.

как и всеже сдавали...говорится, глаза боятся, а руки делают!!!

1) Написать программу которая будет считывать с уже созданного файла 001.txt информацию:

5
10
15
25
30

и помещать все числа меньше 15 в файл 002.txt
а числа больше 15 в файл 003.txt

Ну так это вообще легко, Assign (Fp,001.txt);
Открываешь файл на чтение (помоему Reset)
Потом создаешь 2 файла, и спомощью Assign устанавливаешь связь!
Далее задаешь цикл, где условие окончание цикла будет конец файла, т.е. EOF(Fp);
Даль тычишь тама условие с ифами, тобишь Если число больше 15,то заносится в 003, елзе в 002...
и все...делов то дальше клоузы, и енд. ...и отлаживаешь...