Файл записи Опции

[Dima]

надо записать в файл значения 4-х переменных
разделяя их "."
Например
(a.b.c.d)
1.2.3.4
2.3.4.5
7.7.7.7
и так далее
просто в окно ДОС все выводится нормально
но так как строк ОЧЧЧень много все не помещается и выводится только
3-5 сотен строк последних
а надо все

в файле будут только числа и точки
Файл можно будет прочитать в Виндовс?

 Program Serv;
 var
 a,b,c,d,i,j,x,y:integer;
 a1,b1,c1,d1:integer;
 n,m,k,l:integer;
 Begin
 writeln('начало');
 read(a,b,c,d);
 writeln('конец');
 read(a1,b1,c1,d1);
 i:=c1-c;
 j:=d1-d;
 writeln('-------------------------------------------------');
 while n<=i do begin
 While m<=j do begin
 if (d<=d1)and(c<=c1)and(b<=b1)and(a<=a1) then begin
 writeln(a,'.',b,'.',c,'.',d);
 d:=d+1;
 m:=m+1;
 end;
 end;
 n:=n+1;
 c:=c+1;
 d:=0;
 m:=1;
 end;
 read;
 end.

Пользуйемся тегами CODE !
klem4

Сообщение отредактировано: volvo - 8.11.2006 13:07