 КОМандная строка в ПАскаль |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| snapper |
  16.12.2010 0:38
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Виталий Репутация:  0   |
Как сделать так чтобы работало не в подпрограмме Программы паскаль, а через командную строку??? помогите пожалуйста
Код uses crt; label metka; var s:string; n,i:integer; begin metka: write('Введите параметр: '); readln(s); n:=length(s); for i:=1 to n do begin s[i]:=LowCase(s[i]); if not (s[i] in ['a'..'z']) and not (s[i] in ['а'..'я']) then begin delete(s,i,1); if i<n then i:=i-1; n:=length(s); end; end; writeln(s); goto metka; end. Знаю только то что надо использовать paramstr, но как его правильно оформить?? |
   |
 
|
| volvo |
16.12.2010 0:58
Сообщение
#2
|
|
Гость |
Для начала - переписать код так, чтоб он работал правильно без хаков (вот у меня Турбо-Паскаль не установлен, а FPC этот код не компилирует. Ибо нарушено все, что только можно).
Ну, и задание неплохо бы озвучить. А то "иди туда не знаю куда" уже неинтересно... |
|
|
|
| snapper |
16.12.2010 11:24
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Виталий Репутация: 0 |
Цитата(volvo @ 16.12.2010 0:58)  Для начала - переписать код так, чтоб он работал правильно без хаков (вот у меня Турбо-Паскаль не установлен, а FPC этот код не компилирует. Ибо нарушено все, что только можно). Ну, и задание неплохо бы озвучить. А то "иди туда не знаю куда" уже неинтересно... Цитата программа удаляет все символы не являющиеся буквами русского и английского алфавита... установи paskalABC |
|
|
|
| TarasBer |
16.12.2010 11:32
Сообщение
#4
|
 Злостный любитель  Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Так, почему не надо удалять элементы из строки через Delete:
Многократное удаление символов из строки -------------------- |
|
|
|
| volvo |
16.12.2010 11:43
Сообщение
#5
|
|
Гость |
Цитата установи paskalABC Ага, сейчас, побежал уже. Я его один раз установил, так он мне мало того, что все расширения PAS/PP/INC на себя перетянул, так еще и удалять его вручную. И не умеет практически ничего из того, что должен уметь Паскаль (за примерами - можно в поиск, можно - в приват). PascalABC у меня ассоциируется только с Recycle Bin.Код все-таки перепиши. Потому что поддержка PascalABC прекращена, а вышедший ему на замену PascalABC.NET уже пошлет тебя с таким кодом куда подальше... Эскизы прикрепленных изображений 
|
|
|
|
| snapper |
16.12.2010 20:37
Сообщение
#6
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Виталий Репутация: 0 |
Код uses crt; label metka; var s:string; n,i:integer; begin metka: write('Введите параметр: '); readln(s); n:=length(s); for i:=n downto 1 do s[i]:=LowCase(s[i]); if not (s[i] in ['a'..'z']) and not (s[i] in ['а'..'я']) then delete(s,i,1); i:=i+n; writeln(s); goto metka; end. исправил VOLVO, но теперь как сделать так чтоб удалял символы не являющимися буквами??? удаляет тока первый символ(не букву) и то если писать его первым... прошу помоги.. Сообщение отредактировано: snapper - 18.12.2010 0:49 |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 17.07.2025 4:59 |