типизированне файлы

@xip1k · Регистрация: 04.11.2012

Author24 — интернет-сервис помощи студентам

1создать типпизированный файл а, содержащих последлвательность целых чисел .создать типизированный файл f1 компоненты которго являються элементы файла f которые находять в диапазоне [a,b]
помогите плз

Kodzaev · 05.11.2012, 00:52

Pascal

Uses crt;
Var
  f,f1: File of Integer;
  c,i,n,a,b: Integer;
BEGIN
Clrscr;
Randomize;
Writeln('Vvedite diapazon: '); Readln(a,b);
Assign(f,'fail1.dat'); Rewrite(f);
Writeln('Vvedite kolichestvo chisel: '); Readln(n);
For i:=1 to n do
begin
  c:=Random(101)-50;
  Write(f,c);
end;
Reset(f);
Assign(f1,'fail2.dat'); Rewrite(f1);
Writeln('1 fail: ');
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,c);
  Write(c,' ');
  If (a<=c) and (c<=b) Then
  Write(f1,c);
end;
Reset(f1);
Writeln;
Writeln('2 fail:');
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,c);
  Write(c,' ');
end;
Close(f);
Close(f1);
Readln
END.

@xip1k · 05.11.2012, 00:58 **[ТС]**

спасибо огромное

@xip1k 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 5
		1
	типизированне файлы 05.11.2012, 00:33. Показов 967. Ответов 2 Метки нет (Все метки) 1создать типпизированный файл а, содержащих последлвательность целых чисел .создать типизированный файл f1 компоненты которго являються элементы файла f которые находять в диапазоне [a,b] помогите плз 0

@xip1k 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 5
	05.11.2012, 00:58 [ТС]	3
	спасибо огромное 0

типизированне файлы

Решение