ARC(X,Y,StAngle, EndAngle, R)

Доға салу

ARC(X,Y,StAngle, EndAngle, R) функциясының қызметі

Доға салу

ARC(X,Y,А, В, R) функциясының қызметі

Доға салу

А[10] массивінің жұп эелементін анықтаудың дұрыс вариантын көрсетіңіз;

ІF A[І] mod 2 = 0 then...

A[10,10] массивінің жұп бағаналардағы тepic элeмeнттepдi (сол
элементтердің) квадраттарымен ауыстыру керек.

FOR J:=2 TO 10 DO FOR I:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,2*J]);

A[17] массивінің жұп позицияда орналасқан ең үлкен элементін анықтаудың дұрыс

вариантын көрсету керек;

MAX:=A[2];FOR I:=2 TO 8 DO IFA[2*I]>MAXTHEN MAX:=A[2*I];

А[17] массивінің жұп позицияда орналасқан ең үлкен элементін

анықтаудыѕ дұрыс вариантын көрсету керек;

MAX:=A[2]; FOR І:=2 TO 8 DO ІF A[2*І]>MAX THEN MAX:=A[2*І];

А[4,2] массивін В[2,3] массивне кебейткен кездегі дұрыс
вариантын керсету керек

FOR I:=1 ТО 4 DO

FOR J:=1 TO 3 DO

BEGIN S:=0; FOR K:=l TO 2 DO

S:=S+A[I,K]*B[K,J]; C[I,J]:=S; END;

assign(f,’prn’) бұл...

принтерге файлды шығару

B

B[20] массивін өсу реті бойынша реттеу керек.

FOR I:=l TO 19 DO FOR J:=ITO 20 DO IF B[I]<B[J] THEN BEGIN C:=B[I]; B[I]:=B[J];

B[J]:=C; END;

B[20,20] массивтің жол элементтерін бағана элементтеріне
ауыстыру керек (транспонировать) (В[I,J] B[J,I])

FOR I:=1 TO 20 DO FOR J:=I+1 TO 20 DO BEGIN C:=B[I,J]; B[I,J]:=B[J,I];B[J,I]:=C;

END;