|
{
FILE*infile,*outfile;
int a[30],i,c,b[30];
if((infile=fopen("D:\\f.txt","r"))==NULL)
{
puts("net dostupa");
}
i=0;
while(fscanf(infile,"%d",&a[i])!=EOF)
{
printf("%d ",a[i]);
i++;
}
c=i;
printf("kol-vo simvolov %d ",i);
Fclose(infile);
printf("\n");
i=0;
while(i<c)
{
if((a[i]%2)==0)
{
b[i]=a[i];
}
else b[i]=0;
i++;
}
if((outfile=fopen("D:\\g.txt","a"))==NULL)
{
puts("net dostupa");
}
for(i=0;i<c;i++)
{
fprintf(outfile, "%d", b[i]);
printf("%d ", b[i]);
}
Fclose(outfile);
Getch();
}
Результат:
Файлы. Функции.
Код:
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
FILE*infile,*outfile;
int finfile (int a[30], int i, int c)
{
if((infile=fopen("D:\\f.txt","r"))==NULL)
{
puts("net dostupa");
}
i=0;
while(fscanf(infile,"%d",&a[i])!=EOF)
{
printf("%d ",a[i]);
i++;
}
c=i;
printf("kol-vo simvolov %d ",i);
fclose(infile);
printf("\n");
}
int fchet(int a[30], int b[30], int i, int c)
{
i=0;
while(i<c)
{
if((a[i]%2)==0)
{
b[i]=a[i];
}
else b[i]=0;
i++;
}
}
int foutfile(int b[30], int c, int i)
{
if((outfile=fopen("D\\g.txt","a"))==NULL)
{
puts("net dostupa");
}
for(i=0;i<c;i++)
{
fprintf(outfile, "%d", b[i]);
printf("%d ", b[i]);
}
fclose(outfile);
}
void main(void)
{
int a[30],i,c,b[30];
finfile(a,c,i);
fchet(b,a,c,i);
foutfile(b,c,i);
getch();
}
Результат:
Задача №4.
Функции.
Даны 3 вектора. Определить, сколько в каждом из них элементов, превышающих среднее арифметическое всех элементов.
Код:
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
int v1[8] = {1,4,6,5,7,6,8,2};
int v2[8] = {6,8,3,6,9,2,1,7};
int v3[8] = {1,2,3,4,8,4,7,9};
Int fv1 (int i,int a,int b,int n)
{
a=0;
for(i=0;i<8;i++)
{
a+=v1[i];
}
b=a/8;
n=0;
for(i=0;i<8;i++)
{
if(v1[i]>b)
{
n++;
}
}
printf("%d - elementov v1 \n",n);
}
Дата добавления: 2015-11-14; просмотров: 46 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Из файла f, содержащего целые числа, переписать в файл g все четные числа. | | | определение минимальной и максимальной статической ошибки |