Контрольна робота з теми:
“Алгоритмічні мови програмування”
Студентка групи Пзс-402
№ варіанту
F (x)
X0
A
13
0.4652
0.000001
Поліном
Значення x
x1=0,321; x2=-0,889
Функція
a
b
h
1
6
0.2
Умова задачі
У квадратній матриці знайти кількість нульових елементів, для яких сума індексів парна.
Текст програми.
#include <stdio.h>
#include <conio.h>
#include <math.h>
#include <stdlib.h>
void main(){
int ar[20][20],i,j,a,e,l,m,sum;
div_t x;
clrscr();printf("\n Програма визначення нульових елементўв матрицў\n");
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("\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("\n не можу вiдкрити файл");
goto end;}else{
fscanf(fp,"%d",&e);
{for (i=0;i<e;i++)
{ fscanf(fp,"%d",&ar[i][j]);
}}fclose(fp);
}}
printf("\n Mатриця виглядить так:\n");
{ printf("\n ");
for(i=0;i<e;i++)
{printf("%d ",ar[i][j]);
}} j=0;i=0;sum=0;
for (j=0;j<e;j++){
{m=i+j;
x = div(m,2);
if(x.rem==0)
{if (ar[i][j]==0){sum++;}}}}
printf("\n нульових елементўв матрицў=%d",sum);
fp=fopen("zad4.res","w");
fprintf(fp,"\n нульових елементўв матрицў=%d",sum);fclose(fp);
printf("\n Результат у файлi zad4.res ");
end:
printf("\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. Культин Н.Б. Программирование на Object Pascal в Delphi5. - Спб.: БХВ - Санкт - Петербург, 2000.
3. Жоголев Е.А. Введение в технологию программирования. - М.:"ДИАЛОГ МГУ", 1998.