№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a: array[1..n,1..n] of integer; i,j,s: integer; begin s: =0; randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); if (i+j) mod 3=0 then s: =s+a[i,j]; end; writeln; end; writeln('s=',s); end.
float vychislenie(float X1, float X2, float Y1, float Y2);
float vqvod_rezultatov(float K1,float K2);
int main(){
float X1=0,X2=0,X3=0,X4=0;
float Y1=0,Y2=0,Y3=0,Y4=0;
float K1=0, K2=0;
printf("Vvedite koordinaty pervoj prjamoj cherez probel (X1 Y1 X2 Y2): ");
scanf("%f %f %f %f", &X1, &Y1, &X2, &Y2);
printf("\nA(%.1f ; %.1f), B(%.1f ; %.1f)\n\n", X1, Y1, X2, Y2);
printf("Vvedite koordinaty vtoroj prjamoj cherez probel (X1 Y1 X2 Y2): ");
scanf("%f %f %f %f", &X3, &Y3, &X4, &Y4);
printf("\nC(%.1f ; %.1f), D(%.1f ; %.1f)\n", X3, Y3, X4, Y4);
K1=vychislenie(X1,X2,Y1,Y2);
K2=vychislenie(X3,X4,Y3,Y4);
vqvod_rezultatov(K1, K2);
return 0;
}
float vychislenie(float X1, float X2, float Y1, float Y2){
float K=0;
K=((Y2-Y1)/(X2-X1));
return K;
}
float vqvod_rezultatov(float K1, float K2){
printf("\nKoefficient K1 = %.2f\n", K1);
printf("Koefficient K2 = %.2f\n", K2);
if(K1==K2){
printf("\nPrjamye parallelny\n");
}else{
printf("\nPrjamye ne parallelny\n");
}
return 0;
}