Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error). - Turbo Pascal

  1. Здравствуйте, возникла проблема такого плана. Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет ошибка:Ошибка 101: Ошибка записи на диск. Я понял, что ошибка кроется в процедуре add; в строке №93


textual

Код:

FileMode := 2;


Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Вычислить С при любых значениях x, а, b:

  1. Подскажите в чем ошибка? Матрица в файле txt 0 10 17 8 0 12 19 10 0 1 0 7 0 21 17 1 0 0 3 11 0 8 0 0 0 16 3 5 0 7 3 16 0 4 0 12 0 11 3 4 0 10 19 21 0 5 0 10 0

  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   x, y, z, w, n: LongInt;   var   x, y, z, w, n: LongInt; begin   n := MaxLongInt;   n := Trunc(Sqrt(n));   n := n - 7;   x := 0:   WriteLn('Все целые решения уравнения x^3 = y^2 + 63,');   WriteLn('для 1 <= y <= ', n, ':');   for y := 1 to n do   begin         z := y * y + 63:         repeat                 Inc(x);                 w := x * x * x;                 until w>= z;                 if w = z then                 Writeln('(x, y) = (', x, ' ,' ,y, ')')                 else Dec(x);   end   Write('Работа закончена, нажчмите :');   ReadLn; end.

  1. Привет, есть фрагмент программы " Ugol := 0; DUgol :=1*Pi/180; " Как сделать так что-бы при нажатии кнопки Пробел значение "DUgol :=1*Pi/180;" изменялось на "DUgol := 0;" а когда нажимаешь Enter возвращалось обратно на "DUgol :=1*Pi/180;"

  1. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. 556 655 заранее спасибо...

  1. Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите

  1. Привет, помогите сделать так что-бы вместо 1 шли числа от 1 к 25.