Введение в программирование на Delphi - ответы
Количество вопросов - 464
var f : TStringList; begin f := TStringList.Create(); //читаем текст из файла: f.Items.LoadFromFile('c:\myfile.txt');
case a of 10 : Оператор1; 20 : Оператор 2;end;
var a : array [0 : 5] of Integer; b : Byte;begin for b := 0 to 5 do a[b] := b;
...a := 5;b := 10;if a > b then b := b / 2else if a < b then a := a * 2else begin a := 0; b := 0;end;
for d := 0 to 5 do c := c + d;
a := 0; for b := 0 to 5 do if b > 3 then a := a + b;
a := 3; for b := 0 to 5 do if b < 3 then a := a + b else a := a - b;
z := 5;repeat z := z + 1;until z < 4;
for k := 0 to 10 do if k = 5 then break else ShowMessage(IntToStr(k));
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1);
var v1, v2, v3 : Variant;begin v1 := '2'; v2 := '7'; v3 := 9; v1 := v1 + v2 + v3;
case Index of '0'..'9': ; 'a', 'd' : ;
type MyZap = record a : array [0..10] of Integer; b : Boolean; s : String; end; //record
var da : array of Integer; begin da[1]:= 12;
for k := 0 to 5 do for n := 0 to 10 do a [k, n] := k + n;
if ARow=1 then value := 'телефон: 999-99-99'
ProgressBar1.Position := 20;Gauge1.Progress := 50;
ProgressBar1.Position := 100 * d / all;
Gauge1.Progress := 100 * d / all;
for k := 0 to 5 do for n := 0 to 10 do a [k, n] := k * n;
ShowMessage('Hello, all!');
s := '10';i := 5;i := i + StrToInt(s);
for f := 0 to 5 do e := e - f;
case a of 1 : Оператор1; 2 : Оператор2else Оператор3;
var a : array [0..5] of Integer; b : Byte;begin for b := 0 to 5 do a[b] := b;end.
z := 5;repeat z := z + 1;until z > 10;
for k := 0 to 10 do if k = 5 then continue else ShowMessage(IntToStr(k));
if OpenDialog1.Execute then Memo1.Items.LoadFromFile(OpenDialog1.Filename);
var v1, v2, v3 : Variant;begin v1 := '2'; v2 := '9'; v3 := 7; v1 := v1 + v2 + v3;
case Index of '0'..'9': ; 'a'..'d' : ;
var f : TStringList; begin f := TStringList.Create(); //читаем текст из файла: f.LoadFromFile('c:\myfile.txt');
var da : array of Integer; begin SetLength(da, 1); da[1]:= 12;
if ACol=1 then value := 'телефон: 999-99-99';
ProgressBar1.Progress := 20;Gauge1.Position := 50;
Gauge1.Progress := Round(100 * d / all);
a := 3; for b := 0 to 5 do if b > 3 then a := a + b else a := a - b;
var v1, v2, v3 : Variant;begin v1 := '2'; v2 := 7; v3 := 9; v1 := v1 + v2 + v3;
s := '10';i := 5;s := s + IntToStr(i);
Var f : Real; d : Integer;begin d := 1234; f := d;
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
function MyFunc():Integer; begin Result := '12'; end;
for f := 0 to 5 do e := e + f;
type MyZap : record a : array [0..10] of Integer; b : Boolean; s : String; end; //record
Table1.First; while not Table1.EOF do begin {какие то действия с записью} Table1.Prior; end; //while
function MyFunc():String; begin Result := '12'; end;
var f : TStringList; begin //читаем текст из файла: f.LoadFromFile('c:\myfile.txt');
Table1.First; while not Table1.EOF do begin {какие то действия с записью} Table1.Next; end; //while
i := 10;k := 12;if i <= k then i := kelse k := i;
a := 3; for b := 0 to 5 do if b > a then a := a + b else a := a - b;
for k := 0 to 5 do for n := 0 to 10 do a [k, n] := k + n;
a := 3; for b := 0 to 5 do if b > a then a := a + b;
var a : array [1..5] of Integer; b : Byte;begin for b := 0 to 5 do a[b] := b;
case a of 10 : Оператор1; 20 : Оператор 2;else Оператор 3;
case Index of '0'..'9': ; #12 : ;