ваджуваному користувачем;
) зафарбовувати комірки таблиці, розташовані на головній діагоналі і нижче кольором, вибраним користувачем.
Малюнок 2.20.- Додаток запущено
Лістинг: TForm10.btn1Click (Sender: TObject);.ColCount:=StrToInt(SpinEdit1.Text);.RowCount:=StrToInt(SpinEdit1.Text);.DefaultColWidth:=(StringGrid1.Width)div(StrToInt(SpinEdit1.Text));.DefaultRowHeight:=(stringGrid1.Height)div (StrToInt (SpinEdit1.Text)) ;; TForm10.Colorgrid1Change (Sender: TObject) ;, j: integer;: Trect; StringGrid1 do.Canvas.Brush.Color:=Colorgrid1.ForegroundColor; i:=0 to colcount - 1 doj :=0 to colcount - 1 doi gt;=j then:=StringGrid1.cellrect (i, j) ;. Canvas.FillRect (rec) ;;;; TForm10.btn2Click (Sender: TObject) ;. Hide; .show;
end;.
Завдання № 21
Текст завдання: Скласти таблицю 4х4, що складається з цілих чисел. Програма повинна виводити число, лежаче в осередку з введенням з клавіатури номером стовпця і рядка.
Малюнок 2.21.- Матриця
Лістинг: .btn2Click (Sender: TObject) ;. close; .close ;; TForm11.btn1Click (Sender: TObject) ;, j: integer ;; StrnGrd1 do:=5;:=5; :=40; i:=1 to 4 do [i, 0]:=IntToStr (i); [0, i]:=IntToStr (i) ;; i:=1 to 4 doj:=1 to 4 do [ i, j]:=IntToStr (random (999)) ;;; TForm11.btn3Click (Sender: TObject) ;, j: integer; not TryStrToInt (Edt1.Text, i) or (Edt2.Text, i) then
ShowMessage ( Ви ввели не ціла число );
exitnot (StrToInt (Edt1.Text) in [1..4]) or (StrToInt (Edt2.Text) in [1..4]) then
begin ( Номери рядка і стовпця повинні бути від 1 до 4 );
exit;:=StrToInt(Edt1.Text);:=StrToInt(Edt2.Text);.Text:=StrnGrd1.Cells[j,i];;TForm11.BitBtn1Click(Sender: TObject) ;. Show; .Hide;
end;.
Завдання № 22
Текст завдання: Створити додаток дозволяє переглядати картинки, при виборі картинки повинні відображатися ті формати які вибрав користувач.
Малюнок 2.22.- Пріложеніезапущено
Лістинг: TForm12.Button1Click (Sender: TObject); OpenDialog1.Execute then.picture.LoadFromFile(OpenDialog1.FileName);.Caption:=opendialog1.filename;;TForm12.RadioGroup1Click(Sender: TObject) ;. itemindex=0 then OpenDialog1.filter:= format bmp | * .bmp raquo ;;. Itemindex=1 then OpenDialog1.filter:= format jpg | * .jpg | * .jpeg raquo ;;; TForm12. Button2Click (Sender: TObject) ;;; TForm12.Button3Click (Sender: TObject) ;. Close; .show ;;
end.
Завдання № 23
Текст завдання: Створити додаток дозволяє переглядати анімація безперервно і по кадрам.
Малюнок 2.23.- Додаток Анімація запущено
Лістинг:
procedure TForm13.RadioButton2Click (Sender: TObject) ;. Enabled:=True; .Enabled:=true; .Enabled:=False ;; TForm13.Button1Click (Sender: TObject); Animate1.Active=Falsebegin.StartFrame:=1;.StopFrame:=Animate1.FrameCount;.Active:=True;.caption:=laquo;Стопraquo;;.Enabled:=False;.Active:=False;.caption:=laquo;Пускraquo;;.Enabled:=True;;;TForm13.Button2Click(Sender: TObject);=Animate1.FrameCountbutton3.Enabled:=True; gt; 1 then:=CFrame - 1; .StartFrame:=CFrame; .StopFrame:=CFrame; TForm13.Button3Click (Sender: TObject);=1 then button3.Enabled:=True; lt; Animate1.FrameCount then:=CFrame + 1; .StartFrame:=CFrame; .StopFrame:=CFrame; .Active:=True;=Animate1.FrameCountbutton3.Enabled:=False ;;; TForm13.RadioButton1Click (Sender: TObject);.Enabled:=True;.Button3.Enabled:=False;.Button2.Enabled:=False;;TForm13.Button4Click(Sender: TObject) ;. show; .close ;; TForm13.Button5Click (Sender: TObject) ;. Close; .close ;;
end.
Завдання № 24
Текст завдання: Скласти алгоритм і написати програму для вирішення завдання згідно свого варіанту. За заданими координатами точки М (x, y) визначити потрапляє чи ні точка М в заштрихованную область.
Малюнок 2.24.- Додаток запущено
Лістинг:
procedureTForm21.BitBtn1Click (Sender: TObject);
begin:=StrTofloat (Edit1.Text);:=StrTofloat (Edit2.Text); (x lt;=1) and (y lt;=1) and (x gt;=0) and (y gt ;=0) then label1.caption:=( точка M входить в закрашеннуюобасть ) 1.caption:=( точка М не входить в закрашеної обасть );
end; TForm21.BitBtn2Click (Sender: TObject) ;. Close; .close ;; TForm21.BitBtn3Click (Sender: TObject) ;. show; .Close ;;
end.
...