Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Формула Валлиса https://www.cyberforum.ru/ free-pascal/ thread934923.html Всем привет! Укажите пожалуйста, что здесь не так: var s1,i1,s2,i2:longint; pi:real; begin s1:=1; s2:=1; while i1 <=1000 do begin	Free Pascal Создать функцию, возвращающую позицию между цифрами данного числа так, чтобы знак "+" давал наименьшую сумму Ребят, будьте добры, подскажите что требуется в задаче, не могу понять условие... Создать функцию, возвращающую позицию между цифрами данного числа так, чтобы знак "+" давал наименьшую сумму; Код писать ненужно, я сам соображу, просто объясните что по условию должна делать программа. Например, число 25, какую позицию функция должна вернуть? Что за знак плюс, его должен пользователь...
Free Pascal Задание B8 из ЕГЭ 2013 Искал это задание в интернете, но там оно с div и mod, а мне такое попалось, не смог найти... Подскажите пожалуйста, по какому "алгоритму" его решать. Получив на вход число x, этот алгоритм печатает числа L и M. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7. var x, L, M: integer; BEGIN readln(x); L := 0; while x >= 9 do https://www.cyberforum.ru/ free-pascal/ thread933692.html	Free Pascal Подсчет количества букв "А" в строке Подскажите еще, если это на затруднит пожалуйста! Нужно написать программу, которая при вводе пользователем строки, подсчитывавет количесство букв "А". Вот сама программа var S : string; N : integer; i : char; begin writeln('Введите строку'); Readln(S); N:=0; for i:=1 to Length(S) do if S='A' then N:=N+1 https://www.cyberforum.ru/ free-pascal/ thread932748.html
Цикл со счетчиком Free Pascal Всем привет. Недавно начал изучать Pascal и столкулся с проблемой ... Задание: Напишите программу, вычисляющую сумму чисел от 1 до N, где N - число, вводимое пользователем. Решение: var N : integer; i, sum : integer; begin Write('Введите N '); Readln(N); sum:0;	Free Pascal Работа с графами https://www.cyberforum.ru/ free-pascal/ thread932077.html Пишу программу, которая формирует граф, представленный через массив указателей на список из записей типа ver: type ref = ^ver; ver = record key: integer; next: ref; end; var list: array of ref; //размер не указан Оставшиеся переменные: var str: string;
Free Pascal Трудности с каталогами https://www.cyberforum.ru/ free-pascal/ thread930881.html Всем привет, у меня такая ситуация... Моя программа находится, например, в папке А. Я использую функцию FindFirst, для того чтобы отобразить все папки, которые находятся в моей папке А, но вопрос, как мне войти во все папки(или одну папку), которые находятся в моей папке А? if FindFirst ('*', faDirectory, Info)=0 then Repeat if (Info.Attr and faDirectory) = faDirectory then...	Free Pascal В слове имеются только две одинаковые буквы. Найти их. В слове имеются только две одинаковые буквы. Найти их. Помогите пожалуйста, не получается ничего. Есть кусок наполовину рабочий и не доведенный до конца. program lopata; uses crt; var s:string; i,c,j:integer;
Free Pascal Как закрасить шахматную доску https://www.cyberforum.ru/ free-pascal/ thread928359.html Нарисовал шахматную доску,а как закрасить не знаю. Начал учиться,программированию,всего пару дней назад.Знаю что нужно пользоваться floodfill,но не могу сообразить как и где. uses graph; var device,mode,i,x,x1,y,y2,i2:integer; begin device:=0; initgraph(device,mode,''); x:=1; x1:=171; y:=1; y2:=96; for i:=1 to 8 do ...	Free Pascal Прокомментировать код https://www.cyberforum.ru/ free-pascal/ thread927801.html Не могу понять как работает здесь and и or. Пробовал найти в интернете, но наткнулся только на объяснение этих операторов для типа булиан. Uses Crt; Var x:Integer; Begin clrscr; x := 11; x:= x or 7; x := x and 5; WriteLn (x); Readln;
Free Pascal Определить возраст каждого человека и определить, кто из них старше Помогите пожалуйста. Известны год и номер месяца рождения двух человек. Определить, возраст каждого человека (число полных лет). Определить, кто из них старше. (Огромное спасибо заранее!!!)	Free Pascal Обработка цифр в строке Дан текст, в начале которого имеются пробелы и в котором имеются цифры. Найти порядковый номер максимальной цифры, начиная счет с первого символа, не являющегося пробелом. Если максимальных цифр несколько, то должен быть найден номер первой из них. Я решил сделать так: program polot; uses crt; var i,b,imax,j:integer; s:string; begin https://www.cyberforum.ru/ free-pascal/ thread927694.html

KOPOJI

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

16844 / 6723 / 880

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

Сообщений: 19,967

08.08.2013, 17:24

При перезаписи типизированного файла выплывает error 5 - File access denied - Free Pascal - Ответ 4929252

08.08.2013, 17:24. Показов 1459. Ответов 5

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

Ответ

Если гугл не врет, то надо так

Pascal

procedure perezapisati_fail(pervyi: pElement);
var tek: pElement;
    f: file of inform;
    tmp : byte;
begin
    tmp := FileMode;
    FileMode := 0;
    assign(f,'C:\CHITATELI.DAT');
    rewrite(f);
    tek := pervyi;
    while tek <> nil do
    begin
        write(f,tek^.info);
        tek := tek^.sled;
    end;
    close(f);
    FileMode := tmp;
end;

Вернуться к обсуждению:
При перезаписи типизированного файла выплывает error 5 - File access denied Free Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.08.2013, 17:24

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

Не создается exe - error 146: file access denied
Доброй ночи. Если я компилирую программу при destination memory-то программа работает, но не...

ERROR 1004 The operations system denied access to the specified file
ERROR 1004 The operations system denied access to the specified file Вылезает при попытке...

[С++] При запуске драйвера ERROR: 1275 (Access Denied)
Кто как решал эту проблему Access Denied (1275) ошибки при запуске драйвера на Windows 10? Я...

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

	08.08.2013, 17:24

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.08.2013, 17:24

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

file access denied
привет всем. пишу программу, что-то вроде заметок на рабочий стол. при открытии программы, она...

Error 100 при чтении из типизированного файла
Вот проблемная процедура. Procedure Create(var f:myfile; n:integer; path:string); var...

Ошибка: File access denied
Вот код: //Cоздаёт файл с таким же названием, только буква o в названии русская....

General Error SQL ERROR [ mysqli ] Access denied for user 'a5936757_0'@'10.3.2.19' (using password: NO) [1045]
Здравствуйте! Помогите, разобраться, пожалуйста! Я пытаюсь, создать сайт на хостинге 000webhost. ...

Ошибка "Access denied" error 5 при вызове VirtualQueryEx
Всем привет. Не могу понять в чём проблема, запускаю программу от имени администратора, но данные...

Неудача с запуском элементарной программы - File Access denied
у меня выводит на экран вот ЭТО: error 146: File access denied <NONAMEE00.exe> заранее спасибо ...

Наверх