Курсовая работа: Програмування в Delphi

Memo1.Lines.Add('3. StringSet');

Memo1.Lines.Add('4. StringLength');

Memo1.Lines.Add('5. Інтерфейс прикладного програмування');

End;

14: Begin

Label3.Caption := 'Який розділ програми є обовязковим?';

Memo1.Lines.Add('1. f1 : TextFile');

Memo1.Lines.Add('2. f2 : File of integer');

Memo1.Lines.Add('3. f3 : File of real');

Memo1.Lines.Add('4. Begin..End.');

Memo1.Lines.Add('5. f5 : System.Text');

End;

15: Begin

Label3.Caption := 'Яким ключовим словом починається розділ опису типів?';

Memo1.Lines.Add('1. Low');

Memo1.Lines.Add('2. SetLow');

Memo1.Lines.Add('3. Type');

Memo1.Lines.Add('4. High');

Memo1.Lines.Add('5. LowHigh');

End;

end;

if k > 15 then

Begin

if (m>=0)and(m<4) then km := 1;

if (m>=4)and(m<7) then km := 2;

if (m>=7)and(m<9) then km := 3;

if (m>=9)and(m<12) then km := 4;

if (m>=12)and(m<=15) then km := 5;

Str(km:7,Skm);