Помогите решить задачу, текстовые файлы |
Здравствуйте, гость ( Вход | Регистрация )
Помогите решить задачу, текстовые файлы |
DENIS357 |
28.12.2009, 8:50
Сообщение
#1
|
Новичок Группа: Продвинутые Сообщений: 3 Регистрация: 28.12.2009 Город: Лысьва Учебное заведение: ЛФ ПГТУ Вы: студент |
В файле 1 записаны нечетные страницы книги. В файле 2 - четные страницы. Соберите все страницы в правильном порядке в одном файле. Количество строк во всех страницах одинаково и равно s.
|
граф Монте-Кристо |
28.12.2009, 9:19
Сообщение
#2
|
Доцент Группа: Преподаватели Сообщений: 3 840 Регистрация: 27.9.2007 Из: Старый Оскол Город: Москва Учебное заведение: МФТИ/МАИ Вы: другое |
На чём пишете? Что не получается? Где собственные наработки?
|
DENIS357 |
12.1.2010, 19:08
Сообщение
#3
|
Новичок Группа: Продвинутые Сообщений: 3 Регистрация: 28.12.2009 Город: Лысьва Учебное заведение: ЛФ ПГТУ Вы: студент |
В файле 1 записаны нечетные страницы книги. В файле 2 - четные страницы. Соберите все страницы в правильном порядке в одном файле. Количество строк во всех страницах одинаково и равно s. Нужно написать программу на языке тУРБОпАСКАЛЬ. Вообще беспонятия как это сделать. Знаю только Program, Var и End |
DENIS357 |
25.1.2010, 20:59
Сообщение
#4
|
Новичок Группа: Продвинутые Сообщений: 3 Регистрация: 28.12.2009 Город: Лысьва Учебное заведение: ЛФ ПГТУ Вы: студент |
На чём пишете? Что не получается? Где собственные наработки? Доброго времени суток! написал прогу, но выходной фаил висит. Что в ней не правильно? Завтра с утра сдавать, дотянул... Доброго времени суток! написал прогу, но выходной фаил висит. Что в ней не правильно? Завтра с утра сдавать, дотянул... Program de; uses crt; Var f,h,w:file of integer; a,b,c:string; i,j,s:integer; Begin clrscr; a:='c:\f86.txt'; b:='c:\h96.txt'; c:='c:\w106.txt'; assign (f,a); reset (f); assign (h,(IMG:style_emoticons/default/cool.gif); reset (h); assign (w,c); rewrite (w); read (f,s); for i:=1 to s do write (w,s); while not eof (f) do begin end; read (h,s); for j:=1 to s do write (w,s); while not eof (h) do begin end; close(f); close(h); close(w); writeln; readkey; end. |
Текстовая версия | Сейчас: 28.4.2024, 18:11 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru