1. Заголовок или название темы должно быть информативным ! 2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code]. 3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК ! 4.НЕ используйте форум для личного общения! 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Как сделать в Паскале так, чтобы использовать в переменной ключ строки запуска например, запускаешь (ХХХ.ехе -к), и в программе использовать этот ключ ("к", или "-к")?
хм, я в процессе изучения, патаму и спрашиваю, ваще ДОС мне нравицо! Сделал себе заменитель тулбара - батник, а Паскаль как доп. ф-ции к батнику! Где можна скачать хороший учебник по Паскалю + всё про ДОС приложения, хачю узнать больше!!!!
SKVOZNJAK - ПАСИБА, ещё не всё скачал, но скачаю как время будет (сейчас сижу в институтском "бесплатном" интернете, что само за себя гаварит - тормозной = 1кб в с....)
TarasBer - так я же ввожу ключи и параметр равен 2 или 1 (там 2 случая). если нулевой параметр равен нулю, то как получить второй параметр? Может вставить в ParamStr(c,u) вторую переменную "u"?
SKVOZNJAK - ПАСИБА, ещё не всё скачал, но скачаю как время будет (сейчас сижу в институтском "бесплатном" интернете, что само за себя гаварит - тормозной = 1кб в с....)
TarasBer - так я же ввожу ключи и параметр равен 2 или 1 (там 2 случая). если нулевой параметр равен нулю, то как получить второй параметр? Может вставить в ParamStr(c,u) вторую переменную "u"?
С изначально равно нулю. Потому что вы его никак не определяли. А по умолчанию он ноль. И вы берёте ПарамСтр(С). И он даёт нулевой параметр - само имя программы вместе с путём. Если хотите знать эн-тый параметр, то перед вызовом ПарамСтр(С) впишите С := эн.
TarasBer - теперь я понял, пасиба, а ещё один вопрос, у меня поключаемые модули отсутствуют, ккакие файлы мне нужно найти и вставить в папку с Паскалем штоб они отображались?
TarasBer - теперь я понял, пасиба, а ещё один вопрос, у меня поключаемые модули отсутствуют, ккакие файлы мне нужно найти и вставить в папку с Паскалем штоб они отображались?
Какие модули? И где они должны отображаться? Чёт не понял вопроса.
Как сделать в три действия (использовать можно тока * и + и присвоить, но sqrt нельзя): a(в восьмой степени) и в минимум действий: a(в седьмой), (а+1)(в 21-ой) (а+в)(в 100-й) (х+у)(в 8-й) (а+в+с)(в 32-й) З. Ы. Тока не смейтесь.
volvo, был не прописан (диск не тот) но при выполнении проги с дилэем выдаёт DIVISION BY ZERO, но кампилирует! вот
Код
uses Crt;
begin Sound(220); { Beep } Delay(200); { For 200 ms } NoSound; { Relief! } end.
А вот с графикой (кампилирует, но ничего не выводит)
Код
Uses graph; Var gd, gm, err, x, y:integer; begin gd:=detect; initgraph(gd,gm,' '); err:=graphresult; if (err<>grok) then begin Writeln(grapherrormsg(err)); Halt(1); end; x:=getmaxx div 2; y:=getmaxy div 2; Setcolor(2); Circle(x,y,100); Closegraph; readln; end.
Как сделать в три действия (использовать можно тока * и + и присвоить, но sqrt нельзя): a(в восьмой степени) и в минимум действий: a(в седьмой), (а+1)(в 21-ой) (а+в)(в 100-й) (х+у)(в 8-й) (а+в+с)(в 32-й) З. Ы. Тока не смейтесь.
Я знаю как, но скажу лишь в новой теме.
Цитата
volvo, был не прописан (диск не тот) но при выполнении проги с дилэем выдаёт DIVISION BY ZERO, но кампилирует! вот
Код
uses Crt;
begin Sound(220); { Beep } Delay(200); { For 200 ms } NoSound; { Relief! } end.
Вот на этом вылетает с делением на 0?
Цитата
А вот с графикой (кампилирует, но ничего не выводит)
Код
Uses graph; Var gd, gm, err, x, y:integer; begin gd:=detect; initgraph(gd,gm,' '); err:=graphresult; if (err<>grok) then begin Writeln(grapherrormsg(err)); Halt(1); end; x:=getmaxx div 2; y:=getmaxy div 2; Setcolor(2); Circle(x,y,100); Closegraph; readln; end.