1. Заголовок или название темы должно быть информативным ! 2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code]. 3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК ! 4.НЕ используйте форум для личного общения! 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Переменная строки запуска, как считать строку запуска в переменную?
Как сделать в Паскале так, чтобы использовать в переменной ключ строки запуска например, запускаешь (ХХХ.ехе -к), и в программе использовать этот ключ ("к", или "-к")?
Как сделать в три действия (использовать можно тока * и + и присвоить, но 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.