Логический вектор. Паскаль
Пусть дана матрица А (n x n). Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i-того строки матрицы А есть хотя бы два равных, и значение false - иначе. Воспользуйтесь логической функцией, которая для i-й строки выполняет указанную проверку.
можно объяснить просто как делать |
Цитата:
Код:
Const |
Function Tst(Q:Ar):Boolean;
var k,m:Byte; b:Boolean; begin b:=false; k:=0; Repeat Inc(k); m:=k; Repeat Inc(m); If Q[k]=Q[m] then b:=true; Until b or (m=N); Until b or (k=N-1); Tst:=b; end; а что в этой части делается? |
Цитата:
Цитата:
|
Часовой пояс GMT +4, время: 18:36. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.