У нас есть 22 ответов на вопрос Как скопировать в Паскале? Скорее всего, этого будет достаточно, чтобы вы получили ответ на ваш вопрос.
Содержание
- Как вставить код в Паскаль?
- Как сделать функцию в Паскале?
- Как скопировать в Паскале? Ответы пользователей
- Как скопировать в Паскале? Видео-ответы
Отвечает Константин Сергеев
Для того, чтобы скопировать выделенный фрагмент в буфер обмена, необходимо выбрать пункт меню «Скопировать» меню «Правка» или нажать клавиши «Ctrl + Insert». Чтобы вырезать фрагмент кода, необходимо выбрать пункт меню «Вырезать» меню «Правка» или нажать клавиши «Shift + Delete».
Как вставить код в Паскаль?
2Скопируйте нужный текст Правой кнопкой мыши кликните по заголовку окна паскаля Выерите изменить — вставить5 июн. 2016 г.
Как сделать функцию в Паскале?
Чтобы задать функцию в программе Паскаль, нужно указать ключевое слово function имя и тип функции. write(medium(2,8)); end.
Как установить Pascal ABC
Источник: querybase.ru
Pascal как скопировать программу
И зачем это ей копироваться в системную папку? А не вирус ли пишите?
uses dos; var f: text; begin assign(f,’tmpfile.bat’); rewrite(f); writeln(f,’copy ‘+paramstr(0)+’ d:newfile.exe’); writeln(f,’del tmpfile.bat’); close(f); exec(‘tmpfile.bat’,»); end.
А можно еще короче:
uses dos; begin exec(‘c:windowssystem32cmd.exe’,’ /c copy ‘+paramstr(0)+’ d:newfile.exe’); end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.
___________________________________ ___________________________________ _______
[=Правила форума=] _____ [Поиск] _____ [Литература по С++] ____ [Литература. Паскаль]
Последний раз редактировалось Sazary; 24.08.2009 в 23:51 .
Пользователь
Регистрация: 15.03.2009
Сообщений: 84
Спасибо, да что то наподобии вируса)
Пользователь
Регистрация: 15.03.2009
Сообщений: 84
помоему exec неработает..
делал по первому способу создаеться бат файл и все, но он ведь должен запуститься, чтобы выполнить копирование программы, но ничего не происходит
Регистрация: 20.11.2008
Сообщений: 1
А пробовал через CopyFile?
Регистрация: 19.12.2008
Сообщений: 5,788
Тогда вот так попробуйте:
exec(‘C:WINDOWSsystem32cmd.exe’,’ /c tmpfile.bat’);
у меня работает и так, и так.
А вообще, если пишете «что то наподобии вируса», то желания принимать в этом участие у меня нет.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.
___________________________________ ___________________________________ _______
[=Правила форума=] _____ [Поиск] _____ [Литература по С++] ____ [Литература. Паскаль]
Пользователь
Регистрация: 15.03.2009
Сообщений: 84
ясно, спасибо
Регистрация: 09.01.2008
Сообщений: 26,238
а я ещё добавлю. что,
1) если у пользователя нет админских прав — то он в эту директорию файл не запишет НЕ ПРИ КАКИХ УСЛОВИЯХ!
2) в Висте эти папки защищены даже от пользователя с правами админа. Там надо запускать программу от имени Администратора
3) записать свой EXE файлик в system32 можно (ну если пройти пункты 1 и 2), но если попытаться обеспечить его загрузку — то при прописывании программки в автостарт сработает любой нормальный антивирус.
так что, SL1CK кончайте дрянью заниматься. Займитесь чем-нибудь полезным!!
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
Тогда вот так попробуйте:
exec(‘C:WINDOWSsystem32cmd.exe’,’ /c tmpfile.bat’);
у меня работает и так, и так.
По–хорошему, расположение интерпретатора командной строки надо брать из COMSPEC.
If you want to get to the top, you have to start at the bottom
Пользователь
Регистрация: 15.03.2009
Сообщений: 84
а я ещё добавлю. что,
1) если у пользователя нет админских прав — то он в эту директорию файл не запишет НЕ ПРИ КАКИХ УСЛОВИЯХ!
2) в Висте эти папки защищены даже от пользователя с правами админа. Там надо запускать программу от имени Администратора
3) записать свой EXE файлик в system32 можно (ну если пройти пункты 1 и 2), но если попытаться обеспечить его загрузку — то при прописывании программки в автостарт сработает любой нормальный антивирус.
так что, SL1CK кончайте дрянью заниматься. Займитесь чем-нибудь полезным!!
да все там сработает, программе не требуються права..
и плюс я неочень разбераюсь в программировании, так что у меня программа самая обычная. все что она делает при запуске создает txt файлик в своей директории и после копируеться в разные места под другим именем.
и чтоб сделать что то полезное нужно больше знаний.
Источник: www.programmersforum.ru
Функция Copy
Функция Copy в Паскале копирует часть строки. Синтаксис:
function Copy(S: AStringType; Index: Integer; Count: Integer) : AStringType;
Здесь AStringType — это любой строковый тип данных.
Второй вариант для динамических массивов:
function Copy(A: DynArrayType; Index: Integer; Count: Integer) : DynArrayType;
Здесь DynArrayType — это какой-либо динамический массив (о динамических массивах как-нибудь в другой раз).
Функция Copy копирует несколько символов подряд из строки S и возвращает эти символы в виде строки. Первый символ, с которого начинается копирование строки, указан в параметре Index (нумерация символов в строке начинается с единицы слева направо). Количество копируемых символов указано в параметре Count.
Например, вот этот код
str := Copy(‘123456’, 3, 2);
копирует в строку str два символа, начиная с 3-го. То есть после выполнения этого кода в str будет строка ’34’.
Если в параметре Count будет указано значение, превышающее длину строки, то результат будет обрезан. Например, вот этот код
str := Copy(‘123456’, 4, 10);
копирует в строку str три символа ‘456’, хотя мы “заказали” копирование 10 символов.
Если в параметре Index будет указано значение, превышающее длину строки, то функция вернёт пустую строку. Например, вот этот код
str := Copy(‘123456’, 15, 2);
вернёт пустую строку, потому что в строке всего 6 символов, а мы указали в качестве первого копируемого символа число 15.
Для динамических массивов функция возвращает новый динамический массив того же типа, что и указанный в параметре А, и копирует количество элементов Count из старого массива, начиная с элемента, определённого параметром Index.
А теперь пример программы.
program funccopy; uses SysUtils; var str : string; d, m, y : string; im : integer; begin str := ‘18.01.2017’; d := Copy(str, 1, 2); //d = 18 m := Copy(str, 4, 2); //m = 01 y := Copy(str, 7, 4); //y = 2017 im := StrToInt(m); case im of 1 : str := d + ‘ January ‘ + y; 2 : str := d + ‘ February ‘ + y; 3 : str := d + ‘ March ‘ + y; 4 : str := d + ‘ April ‘ + y; 5 : str := d + ‘ May ‘ + y; 6 : str := d + ‘ June ‘ + y; 7 : str := d + ‘ July ‘ + y; 8 : str := d + ‘ August ‘ + y; 9 : str := d + ‘ September ‘ + y; 10: str := d + ‘ October ‘ + y; 11: str := d + ‘ November ‘ + y; 12: str := d + ‘ December ‘ + y; end; WriteLn(str); ReadLn; end.
Не забудьте подключить модуль SysUtils, чтобы использовать функцию StrToInt (её мы изучим как-нибудь в другой раз, а пока только скажу, что она преобразует строку в число).
Программа простая. Если кто не разобрался, то см. видео выше.
Источник: info-master.su