Алгоритмічні мови програмування (стр. 2 из 2)

printf ("\n ввести матрицю з клавiатури(1) чи з файлу zad4.dat(2):");

scanf ("%d",&a);

if (a==1)

{printf("введтiь розмiрнiсть квадратноi матрицi:");

scanf("%d",&e);clrscr();

for (j=0;j<e;j++)

{for(i=0;i<e;i++)

{ printf("&bsol;n Введiть[%d][%d] елемент матрицi:",j+1,i+1);

scanf("%d",&ar[i][j]);clrscr();

}}}else {

FILE *fp;

fp=fopen("zad4.dat","r");

if (fopen("zad4.dat","r")==NULL)

{printf("&bsol;nне можу вiдкрити файл");

goto end;}else{

fscanf(fp,"%d",&e);

for (j=0;j<e;j++)

{for (i=0;i<e;i++)

{ fscanf(fp,"%d",&ar[i][j]);

}}fclose(fp);

}}

printf("&bsol;n Mатриця виглядить так:&bsol;n");

for (j=0;j<e;j++)

{ printf("&bsol;n ");

for(i=0;i<e;i++)

{printf("%d ",ar[i][j]);

}} j=0;i=0;sum=0;

for (j=0;j<e;j++){

for(i=0;i<e;i++)

{m=i+j;

x = div(m,2);

if(x.rem==0)

{if (ar[i][j]==0){sum++;}}}}

printf("&bsol;n нульових елементўв матрицў=%d",sum);

FILE *fp;

fp=fopen("zad4.res","w");

fprintf(fp,"&bsol;n нульових елементўв матрицў=%d",sum);fclose(fp);

printf("&bsol;nРезультат у файлizad4.res ");

end:

printf("&bsol;n press anykey ");

getch(); clrscr();}

Результат виконання.

Програма визначення нульових елементів матриці ввести матрицю з клавiатури(1) чи з файлу zad4.dat(2):2

Матриця виглядить так:

3 1 2 3

4 5 6 7

8 9 10 11

12 13 14 15

нульових елементів матриці=0

Результат у файлi zad4.res

press any key

Блок-схема

Так ні

Список використаної літератури

1. Петров В.Н. Информационные системы. – СПб.: Питер, 2002.

2. Культин Н.Б. Программирование наObjectPascalвDelphi5. – Спб.: БХВ – Санкт – Петербург, 2000.

3. Жоголев Е.А. Введение в технологию программирования. - М.:"ДИАЛОГ МГУ", 1998.