Написать программу в Pascal

[Redkill]

Условие: в типизированном файле содержится упорядоченная последовательность натуральных чисел. Вывести заданное число в фаил не нарушая упорядоченность.

[Stilet]

Ну и в чем проблема? Считать файл в список, потом добавить в список в нужное место новый элемент и перезалить его в тот же файл.
Хотя можно и массивом.

[Redkill]

Проблема в том что я совсем не знаю pascal и не имею понятия как это реализовать
Если вас не затруднит скиньте программу в виде кода, буду очень длагодарен

[Stilet]

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

Это платная услуга )
Если хочешь я перенесу тему в соответствующий раздел, где можно нанять фрилансера.

[Wizard#2277]

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

Проблема в том что я совсем не знаю pascal

Стоит начать с этого.

[Redkill]

Program Srednee;
Uses Crt;
Var
  c,
  elem, i :integer,
  f : file of integer;
  
Begin
  ClrScr;
  assign(f,'filein.dat');
  reset(f);
  writeln('Введите число: ');
  readln(c);
  i:=0;
  read(f, elem);
 while (not Eof(f)) and (elem<c) 
 begin
 read(f,elem);
 i:=i+1
 end
 seek(f,i-1)
 write(f,c)
 close(f);
 writeln('Конец!')
 readln;
End.

Подскажите всё ли верно в данной программе по условию.Нет возможности проверить через pascal



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

попытка хорошая. Но нет, неправильно.
(про мелкие описки - типа кучи пропущенных точек с запятой я уже молчу...)

кстати, а как Вы понимаете в задании "ввести заданное число в файл"
например, если файл содержит: 1 3 5 7
вам дали число 4
что должно получится в результате?



если "вставить" означает поместить в подходящее место, а все числа после вставляемого сдвинуть на один, тогда можно воспользоваться таким кодом:

program InsNumb;
uses Crt;
var
  c, elem, i,
  s1, s2: integer;
  f: file of integer;

begin
  ClrScr;
  assign(f, 'filein.dat');

  { это созадние файла и заполнение
      его числами 2 4 6 8 10  - для отладки }
  rewrite(f);
  for i := 1 to 10 do if not odd(i) then Write(f, i);
  Close(f);

  reset(f);
  writeln('Введите число: ');
  readln(c);
  if eof(f) then Write(f, c) {файл пуст - просто записываем своё число и выходим}
  else begin
    i := 0;
    read(f, elem);
    while (not Eof(f)) and (elem < c) do
    begin
      read(f, elem);
      i := i + 1
    end;
    if eof(f) then Write(f, c) {число самое большое,
                           мы его просто дописали в конец}
    else begin
      s1 := c;
      seek(f, i);
      while not eof(f) do begin
        Read(f, s2);
        seek(f, i);
        Write(f, s1);
        inc(i);
        s1 := s2;
      end;
    {допишем последнее число в файл}
      Write(f, s1);
    end;
  end;
  Close(f);
  {конец вставки числа в файл}

  WriteLn('содержимое файла: ');
  reset(f);
  while not eof(f) do begin
    Read(f, i);
    Write(i, ' ');
  end;
  WriteLn;

  readln;
end.

[KooKish]

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

попытка хорошая. Но нет, неправильно.
(про мелкие описки - типа кучи пропущенных точек с запятой я уже молчу...)

кстати, а как Вы понимаете в задании "ввести заданное число в файл"
например, если файл содержит: 1 3 5 7
вам дали число 4
что должно получится в результате?

Я подозреваю: 1 3 4 5 7 не нарушая упорядоченность Нет, ну парень уже хоть что-то сделал сам (я надеюсь )) ) так что еще чутка и доделаешь. Ближе к истине мы поможет тебе найти путь верный.

[Serge_Bliznykov]

Ближе к истине мы поможет тебе найти путь верный

ага. но я, негодяй, не дал человеку путь верный самостоятельно найти, подкинул ему свинью в виде готового решения

[KooKish]

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

ага. но я, негодяй, не дал человеку путь верный самостоятельно найти, подкинул ему свинью в виде готового решения

Опа! а я когда писал, еще не было решения У тогда тема закрыта