Цитата:
Сообщение от optimist
Может кто-нить помочь? Я в Paskal-е только только начинаю разбираться а по учёбе уже надо курсовую делать по этим темам:
разработка программы удаляющей из матрицы (А) строку и столбец, содержащие наибольший элемент матрицы
|
Ну это-то совсем просто:
CONST
M1=5;
N1=7;
VAR
A:ARRAY[1..M1,1..N1] of INTEGER;
i,j,Ifix,Jfix,M,N:INTEGER;
Max:INTEGER;
BEGIN
M:=M1;
N:=N1;
Randomize;
Max:=-51;
FOR i:=1 TO M DO
BEGIN
FOR j:=1 TO N DO
BEGIN
A[i,j]:=Random(100)-50;
Write(A[i,j]:4);
IF A[i,j]>Max THEN
BEGIN
Max:=A[i,j];
Ifix:=i;
Jfix:=j;
END;
END;
WriteLn;
END;
WriteLn;
IF Ifix<M THEN
FOR i:=Ifix+1 TO M DO
FOR j:=1 TO N DO
A[i-1,j]:=A[i,j];
DEC(M);
IF Jfix<N THEN
FOR j:=Jfix+1 TO N DO
FOR i:=1 TO M DO
A[i,j-1]:=A[i,j];
DEC(N);
FOR i:=1 TO M DO
BEGIN
FOR j:=1 TO N DO
Write(A[i,j]:4);
WriteLn;
END;
ReadLn;
END.
Цитата:
|
разработка программы устанавливающей идентификацию отпечатков пальцев
|
Или я чего-то недопонимаю, но с моей точки зрения это "задачка" для целого коллектива профессиональных программистов-суперов.