Создать типизированный файл целых чисел

@DixAway · Регистрация: 01.12.2018

Создать типизированный файл целых чисел. Написать программу, которая вводит пару чисел m и n, а затем в данном файле заменяет m-й элемент на n.

@Puporev · 23.01.2019, 09:43

Pascal

uses crt;
var f:file of integer;
    n,i,m,a:integer;
begin
clrscr;
randomize;
assign(f,'tfile');
rewrite(f);
for i:=1 to 20 do
 begin
  m:=10+random(90);
  write(f,m);
 end;
writeln('Содержание исходного файла');
reset(f);
while not eof(f) do
 begin
  read(f,m);
  write(m:3);
 end;
writeln;
repeat
writeln('Введите 2 целых числа 0<m<>n<',filesize(f));
readln(m,n);
until (m>0)and(m<=filesize(f))and(n>0)and(n<=filesize(f))and(m<>n);
reset(f);
seek(f,n-1);
read(f,a);
seek(f,m-1);
write(f,a);
writeln('Замена элемента номер ',m,' на элемент с номером ',n);
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:3);
 end;
close(f);
readln
end.

@DixAway 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 8
		1
	Создать типизированный файл целых чисел 23.01.2019, 01:13. Показов 1659. Ответов 1 Метки free pascal, типизированный, файл (Все метки) Создать типизированный файл целых чисел. Написать программу, которая вводит пару чисел m и n, а затем в данном файле заменяет m-й элемент на n. 0

Опции темы

Создать типизированный файл целых чисел

Решение