И опять файл

@Kiryshka · Регистрация: 18.05.2013

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

Все отрицательные элементы целочисленного файла перенести в начало файла.
Добавлю от себя, файл может быть .txt и не важно как главное чтобы он отрицательные цифры переносил в начало

@Puporev · 01.02.2014, 07:40

Если файл текстовый, нужно все числа прочитать в массив, нем сделать перестановку и переписать файл, или создать новый файл.
Если файл типизированный, то можно и без массива.Поэтому нужно точно знать тип файла.
Пример такой перестановки в массиве

Pascal

uses crt;
const n=80;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-50+random(100);
  write(a[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
readln
end.

@Kiryshka · 01.02.2014, 10:38 **[ТС]**

ну я же говорю преподаватель сказал можно .txt файл создать а в нем числа, и смысл в том чтобы программа переставляла отрицательные в начало файла

@Puporev · 01.02.2014, 10:41

Ну так я и написал

Сообщение от Puporev

Если файл текстовый, нужно все числа прочитать в массив, нем сделать перестановку и переписать файл, или создать новый файл.

И привел код как сделать перестановку в массиве

@Kiryshka · 01.02.2014, 10:58 **[ТС]**

спасибо за помощь

еще вопросик, а как из файла считать?

@Puporev · 01.02.2014, 11:13

Pascal

var f:text;
    a:array[1..1000]of integer;
    n,i,k,j,x:integer;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  inc(n);
  read(f,a[n])
 end;
k:=0;
for i:=1 to n do
if a[i]<0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
rewrite(f);
for i:=1 to n do
write(f,a[i]:4);
close(f);
write('Отрицательные числа в файле переставлены вперед');
readln
end.

Добавлено через 1 минуту
файл input.txt с числами положите в папку с программой или в программе укажите полный путь

@Kiryshka · 01.02.2014, 11:16 **[ТС]**

спасибо =)

@Kiryshka 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 25
		1
	И опять файл 01.02.2014, 01:05. Показов 967. Ответов 6 Метки нет (Все метки) Все отрицательные элементы целочисленного файла перенести в начало файла. Добавлю от себя, файл может быть .txt и не важно как главное чтобы он отрицательные цифры переносил в начало 0

@Kiryshka 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 25
	01.02.2014, 10:38 [ТС]	3
	ну я же говорю преподаватель сказал можно .txt файл создать а в нем числа, и смысл в том чтобы программа переставляла отрицательные в начало файла 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	01.02.2014, 10:41	4
	Ну так я и написал Сообщение от Puporev Если файл текстовый, нужно все числа прочитать в массив, нем сделать перестановку и переписать файл, или создать новый файл. И привел код как сделать перестановку в массиве 1

@Kiryshka 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 25
	01.02.2014, 10:58 [ТС]	5
	спасибо за помощь еще вопросик, а как из файла считать? 0

@Kiryshka 0 / 0 / 0 Регистрация: 18.05.2013 Сообщений: 25
	01.02.2014, 11:16 [ТС]	7
	спасибо =) 0

Опции темы

И опять файл

Решение