Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите решить задачу > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
DENIS357
В файле 1 записаны нечетные страницы книги. В файле 2 - четные страницы. Соберите все страницы в правильном порядке в одном файле. Количество строк во всех страницах одинаково и равно s.
граф Монте-Кристо
На чём пишете? Что не получается? Где собственные наработки?
DENIS357
Цитата(DENIS357 @ 28.12.2009, 13:50) *

В файле 1 записаны нечетные страницы книги. В файле 2 - четные страницы. Соберите все страницы в правильном порядке в одном файле. Количество строк во всех страницах одинаково и равно s.

Нужно написать программу на языке тУРБОпАСКАЛЬ. Вообще беспонятия как это сделать. Знаю только Program, Var и End
DENIS357
Цитата(граф Монте-Кристо @ 28.12.2009, 14:19) *

На чём пишете? Что не получается? Где собственные наработки?

Доброго времени суток!
написал прогу, но выходной фаил висит. Что в ней не правильно? Завтра с утра сдавать, дотянул...


Цитата(DENIS357 @ 26.1.2010, 1:58) *

Доброго времени суток!
написал прогу, но выходной фаил висит. Что в ней не правильно? Завтра с утра сдавать, дотянул...

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,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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.