Завдання № 25
Текст завдання: Дана матриця 5 на 5. З'ясувати, чи вірно, що найбільша із значень елементів головної діагоналі більше, ніж найменше з значень елементів побічної діагоналі.
Малюнок 2.25.- Додаток Матриця запущено
Лістинг:
procedure TForm16.Button1Click (Sender: TObject) ;, j: integer ;; StringGrid1 doi:=1 to 5 do [i, 0]:=IntToStr (i); [0, i]: =IntToStr (i) ;; i:=1 to 5 doj:=1 to 5 do [i, j]:=IntToStr (Random (99)) ;; TForm16.Button2Click (Sender: TObject) ;: array [1..5, 1..5] of Integer ;, j: Integer; i:=1 to 6-1 do.Cells [0, i]:= i= + IntToStr (i) ;. Cells [i, 0]:= j= + IntToStr (i) ;; i:=1 to 6-1 do:=a [5,1]; i:=6-1 downto 1 doj:=1 to 6-1 doa [6-j, j] lt ; min then min:=a [6-j, j]; .Caption:== + inttostr (min) ;; TForm16.Button3Click (Sender: TObject) ;: array [1..5, 1..5] of Integer ;, j: Integer; i:=1 to 5 do.Cells [0, i]:= i= + IntToStr (i) ;. Cells [i, 0]:= j= + IntToStr (i) ;;:=StrToInt (StringGrid1.Cells [1,1]); i:=1 to 5 do.Caption:== + inttostr (max) ;; TForm16.Button4Click (Sender: TObject);
ifmax gt; minthenlabel5.caption:= найбільше з значень елементів головної діагоналі більше ніж найменше з значень побічної діагоналі
elselabel5.caption:= твердження не еврно raquo ;;
end;
end.
Завдання № 26
Текст завдання:
. Розробити алгоритм рішення відповідно до завдання.
. Обробити на ЕОМ матрицю відповідно до варіанта завдання, зазначеного в таблиці.
. Перевірити правильність виконання за допомогою тестового варіанту.
Малюнок 2.26.- Додаток Матриця в дії
Лістинг:
procedure TForm17.Button1Click (Sender: TObject) ;, j: integer ;; StringGrid1 doi:=1 to 5 do [i, 0]:=IntToStr (i); [0, i]: =IntToStr (i) ;; i:=1 to 5 doj:=1 to 5 do [i, j]:=IntToStr (Random (99) - 50) ;; TForm17.Button2Click (Sender: TObject); i:= 1 to 6-1 do.Cells [0, i]:= i= + inttostr (i) ;. Cells [i, 0]:= j= + IntToStr (i) ;; i :=1 to 6-1 doj:=1 to 6-1 do [i, j]:=StrToInt (StringGrid1.Cells [i, j]);:=0;:=0; i:=1 to 6 1 doj:=1 to 6-1 do gt; j then:=sum + a [i, j] ;; i:=1 to 6-1 doj:=1 to 6-1 do (i gt; j) and (a [i] [j] gt; 0) then:=ch + 1 ;;. Caption:=IntToStr (sum) ;. Caption:=inttostr (Ch) ;; TForm17.Button3Click (Sender: TObject) ;. close ;. close ;; TForm17.Button4Click (Sender: TObject) ;. Show; .Hide ;;
end.
Завдання № 27
Текст завдання: створити і вивести на форму дві бази даних, два SQL запиту і звіт.
Малюнок 2.27.- Додаток База даних запущено
Лістинг:
procedureTForm14.BitBtn1Click (Sender: TObject) ;. Close; .close ;; TForm14.Button1Click (Sender: TObject); table1.State in [dsInsert, dsEdit] then.post ;; TForm14.Button2Click (Sender: TObject); table1.State in [dsInsert, dsEdit] then.Cancel ;; TForm14.Button3Click (Sender: TObject); table1.State=dsBrowse then.insert ;; TForm14.Button4Click (Sender: TObject); table1. State=dsBrowse then.edit ;; TForm14.Button5Click (Sender: TObject); table1.State=dsBrowse thenMessagedlg ( видалити запис? , mtconfirmation, [mbYes, mbNo], 0)=mrYes then.delete ;; TForm14.Button6Click (Sender: TObject); table2.State=dsBrowse then.insert ;; TForm14.Button7Click (Sender: TObject); table2.State in [dsInsert, dsEdit] then.post ;; TForm14.Button8Click (Sender: TObject); table2.State=dsBrowse then.edit ;; TForm14.Button9Click (Sender: TObject) ;; TForm14.Button10Click (Sender: TObject); table2.State=dsBrowse thenMessagedlg ( видалити запис? , mtconfirmation, [mbYes, mbNo ], 0)=mrYes then.delete ;; TForm14.Button11Click (Sender: TObject) ;. show; .Hide ;; TForm14.N1Click (Sender: TObject) ;. Close; .close ;; TForm14.N2Click (Sender: TObject ) ;. Show; .Hide ;;.
Малюнок 2.28.- Додаток Звіт запущено
Малюнок 2.29.- Предпросмотр звіту
Лістинг: TForm15.Button1Click (Sender: TObject) ;. Preview ;; TForm15.BitBtn1Click (Sender: TObject) ;. Close; .Close ;; TForm15.N1Click (Sender: TObject) ;. Preview ;; TForm15.N2Click (Sender: TObject) ;. Close; .Close;
end;.
Висновок
Актуальність lt; # justify gt; Практика почалася з вступного інструктажу, вивчення вимог певного робочого місця, ознайомлення з безпекою роботи.
Наступні дні практики були присвячені вивченню простих програм такі як переглядати анімацію, текст...
