Переменная строки запуска, как считать строку запуска в переменную? Опции

[Resager]

Как сделать в Паскале так, чтобы использовать в переменной ключ строки запуска
например, запускаешь (ХХХ.ехе -к), и в программе использовать этот ключ ("к", или "-к")?

[Resager]

Как сделать в три действия (использовать можно тока * и + и присвоить, но 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.

Сообщение отредактировано: Resager - 1.10.2007 19:38

[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.

Вот на этом вылетает с делением на 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.

Поменяйте местами клозеграф и ридлн.