Условно разделить файл на 2 части и удалить вторую часть - Turbo Pascal

  1. Написать программу, используя бестиповые файлы: Условно разделить файл на 2 части и удалить вторую часть.


textual

Код:

Var
  f: File;
  i,x: Byte;
BEGIN
Randomize;
Assign(f,'f');
Rewrite(f,1);
For i:=1 to 10 do
begin
  x:=Random(100);
  BlockWrite(f,x,1);
end;
Reset(f,1);
Writeln('Файл до:');
While not Eof(f) do
begin
  BlockRead(f,x,1);
  Write(x,' ');
end;
Seek(f,5);
Truncate(f);
Writeln;
Writeln('Файл после: ');
Seek(f,0);
While not Eof(f) do
begin
  BlockRead(f,x,1);
  Write(x,' ');
end;
Close(f);
Readln
END.


Похожие ответы
  1. Здравствуйте. Надо создать программу, где будет выводить определенное количество рандомных чисел. Потом эти рандомные числа делятся на четные и нечетные. Четные сортируются по возрастанию, нечетные по убыванию. Пытался сделать, психанул от того, что было не правильно и все стер. Нужна помощь.

  1. В исходном текстовом файле находится информация о студенте: фамилия и группа. Программа сортирует студентов по группам и записывает в новый файл. Нужно, чтобы для каждой группы создавался отдельный файл. Пример исходного файла: Иванов 6101 Петров 6101 Сидоров 6103 Николаев 6103 Данилов 6105 Александров 6105 Все это записывается в виде: 6101 Иванов Петров 6103 Сидоров Николаев 6105 Данилов АлександровЗадача: Создать для каждой группы отдельный файл, который будет называться номером группы.

  1. Задано натуральное число . Найти сумму -1^+2^-3^+4^-...+n^.Условный оператор не использовать.^-это квадрат

  1. Задание: В один каталог внесены и газеты, и журналы. Поля записи: название издания, газета или журнал, дата издания. Розделить этот каталог на два отдельных для газет и для журналов. Вот что у меня вышло (это еще не вся программа, только считывание данных):

  1. Помогите разделить на процедуры, график, ввод, обсчет и вывод?

  1. 1. Очистить экран монитора и при необходимости установить нужный цвет фона. 2. Вывесты одно или несколько условных графических изображений электрических компонентов с произвольным цветом, размером и начальным положением. 3.Скопировать изображение с экрана монитора в буфер. 4.Удалить изображение с экрана монитора. 5. Скопировать изображения из буфера на екркан монитора в другое место.Задание Вывести на экран монитора условное графическое изображение фотоэлемента солнечного.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 program LR8;  uses crt; Const nmax=100; type mas=array [1..nmax,1..nmax] of integer; Var A:mas;     i,j,n:byte;     s,max1,max2,k,z,t:integer;     begin     write('Введите 1<=n<=',nmax,': ');     readln(n);     writeln('Матрица A');     writeln;     for i:=1 to n do     begin       for j:=1 to n do       begin         A[i,j]:=random(31)-15;         write(A[i,j]:4);       End;       writeln;     End;     writeln;       begin     for i:=1 to n do     begin       s:=0;       for j:=1 to n do         s:=s+a[j,i];       if i=1 then       begin        max1:=s;        k:=i;       end       else        if s>max1 then        begin         max1:=s;         k:=i;        end;     end;     writeln('Максимальная сумма в столбце - ', k);     writeln('Максимальная сумма= ', max1);     writeln;     end;       begin     for j:=1 to n do     begin       z:=0;       for i:=1 to n do         z:=z+a[j,i];       if i=1 then       begin        max2:=s;        k:=i;       end       else        if z>max2 then        begin         max2:=z;         t:=j;        end;     end;   end;             writeln('Максимальная сумма в строке - ', t);         writeln('Максимальная сумма= ', max2);         writeln;     end.

  1. Задание 1. Найдите произведение ненулевых элементов массива и разделите это произведение на количество элементов массива.

  1. Задание:В каждой из трех матриц Х, Y и Z найти максимальный элемент и разделить на него каждый отрицательный элемент матрицы. Больше всего интересует функция с нахождением максимального элемента и деление на него кажого отрицательного элемента.Помогите пожалуйста.

  1. Есть программа. Помогите ее разбить и часть запихать в модуль, что бы все работало, а то у меня не получается.