Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Найти максимальный элемент на главной диагонали Дана квадратная действительная матрица порядка n. Найти максимальный элемент на главной диагонали, определить номер его строки и столбца. https://www.cyberforum.ru/ turbo-pascal/ thread382448.html	Turbo Pascal Вводится последовательность,окончание 0.Найти сумму всех элементов Среди заданной последовательности чисел, завершающейся нулём, найти сумму всех элементов.
Turbo Pascal Дано натуральное число n, символы S1,S2.....Sn. Заменить заданное слово предложения на другое. https://www.cyberforum.ru/ turbo-pascal/ thread382411.html Дано натуральное число n, символы S1,S2.....Sn. Заменить заданное слово предложения на другое.	Turbo Pascal Слияние списков. Помогите написать на паскале процедуру сортировка посредством слияния списков...нигде не могу найти, везде сортировка слиянием массивов, а мне надо именно списков, и не чисел а слов...мне нужна только процедура...может кто знает... Вот есть алгоритм сортировки: https://www.cyberforum.ru/ turbo-pascal/ thread382402.html
Turbo Pascal Удаление нечетных элементов Дано натуральное число n, целые числа А1,А2,......Аn. Получить новую последовательность B1,B2.....Bm, которая отличается от исходной тем, что все нечетные элементы удалены. program N8; const n=10; var ...	Turbo Pascal Двумерные массивы. Процедуры и функции Помогите решить Пусть задана вещественная матрица. Рассматривая ее как вектор строк, упорядочте ее по количеству нечетных элементов в каждой строке. Добавлено через 47 минут Я так понял, что сначала нечетные а потом четные Добавлено через 27 минут Вот как нужно, помогите написать код https://www.cyberforum.ru/ turbo-pascal/ thread382396.html
Turbo Pascal Delphi https://www.cyberforum.ru/ turbo-pascal/ thread382387.html Помогите написать задачу из паскаля в Delphi !!!! Журнал успеваемости студенческой группы. Предусмотреть выставление и исправление оценок, статистическую обработку оценок (средние баллы, количественная и качественная успеваемость). Program Sozd_Fil; uses crt; Const M=5; Type Stud=Record Fam, Im : String; NumZ : LongInt;	*Turbo Pascal Операторы цикла: Вычислить 12 + 234 +... + п ... 2п** Помогите разобраться Пусть дано натуральное число п. Вычислите: 12 + 234 +... + п ... * 2п. Добавлено через 16 минут Закономерность в ряду (2п!)/(п-1)!
Turbo Pascal про видеотеку делаю базу данных про видеотеку, помогите с процедурой вывода из файла program videoteka; uses crt; type vtek=record nz:string; god:string ; ganr:string; stud:string; rez:string; https://www.cyberforum.ru/ turbo-pascal/ thread382372.html	Turbo Pascal if Даны положительные действительные числа a,b,c,d. Выяснить, можно ли прямоугольник со сторонами a,b уместить внутри прямоугольника со сторонами c,d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника. (Программа + блок-схема). https://www.cyberforum.ru/ turbo-pascal/ thread382370.html
найти число стоящее на 500.000 месте Turbo Pascal на множестве чисел(123456789101112)найти число стоящее на 500.000 месте например на 11ом стоит 0	Turbo Pascal Среди точек первого множества найти такую, которая принадлежит наибольшему количеству множеств https://www.cyberforum.ru/ turbo-pascal/ thread382361.html На плоскости задано множеств по точек в каждом. Среди точек первого множества найти такую, которая принадлежит наибольшему количеству множеств. помогите решить пожалуйста!!!

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

13.11.2011, 21:33

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

13.11.2011, 21:33. Показов 10452. Ответов 10

Метки (Все метки)

Ответ

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

Как удалить часть записи

Никак, только запись целиком, если последняя то

Pascal

1 2	seek(f,fileseze(f)-2); truncate(f);

если не последняя, сдвиг всех элементов начиная с i+1 на 1 вверх, потом тоже самое.

Добавлено через 2 минуты

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

Т.е. если файл не создан, вывод сообщения об ошибке. Знаю что используется IOResult,

Pascal

{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  write('Файл еще не создан');
  rewrite(f);
 end;

или другой вариант, например выход из процедуры или программы.

Вернуться к обсуждению:
Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error). Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.11.2011, 21:33

Готовые ответы и решения:

Ошибка после установки Ubuntu 16.04 LTS error:attempt to read or write outside of disk 'hd0'
Я поставил новый жесткий диск.Поставил винду,не мог работать потому-что постоянно повреждался...

Ошибка Error 100: Disk read error
Что это за ошибка? program test; uses crt; const n = 100; var a: array of real;

Ошибка Error 100: Disk read error
Program pr2122; Uses Dos, crt; Type stip = record pr: string; gr: string; st:...

Parse error: syntax error, unexpected T_STRING in Z:\home\localhost\www\files\101.php on line 4
<form action = "101.php" method = "GET"> <!--<input name="Имя переключателя" type ="Тип"...

	13.11.2011, 21:33

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.11.2011, 21:33

Помогаю со студенческими работами здесь

Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка
Установил сегодня 7ку , все вроде нормально , поствил гугл хром и мемогу зайти на сайт gmail на...

Parse error: syntax error, unexpected $end in Z:\home\nonametravel.ru\www\admin\index.php on line 101
Помогите разобраться с проблемой...выводит сообщение об ошибке, вроде по коду все закрыто и...

Ошибка 101 при вызове php скрипта из формы
Всем привет! Сразу говорю я не специалист в php, знаю только основы. Вобщем есть форма отправки...

Ошибка 101 при заходе на страничку игры Perfect World
при входе на оф сайт pw.mail.ru выдаёт ошибку 101,и игра сама не запускаеться-хотя раньше всё было...

Наверх