ВУЗ:
Составители:
Write(File2,otr); { и нулевых элементов в файл Test2.dat }
Write(File2,nul);
Close(File2); { Закрытие файлов Test1.dat и Test2.dat }
Close(File1);
Assign(File2,Road2); { Открытие файла Test2.dat }
Reset(File2); { для проверки правильности записи и печати результатов}
Read(File2,pol); WriteLn('Количество положительных: ',pol:3);
Read(File2,otr); WriteLn('Количество отрицательных:',otr:3);
Read(File2,nul); WriteLn('Количество нулевых:',nul:3);
Close(File2); { Закрытие файла Test2.dat }
ReadKey; { Задержка экрана }
end..
Пример программы на языке СИ
Сформировать файл из некоторых чисел. Записать во второй файл количество положительных, от-
рицательных и нулевых элементов первого файла.
// Подключаемые библиотеки
#include<stdio.h> // Библиотека ввода-вывода
#include<conio.h> // Библиотека работы с окнами
#define N 6 // Макроопределение (размерность массива)
void main(void) // Главная функция (основной блок программы)
{
// Раздел объявления локальных переменных
FILE *f1; // Указатель на первый файл
FILE *f2; // Указатель на второй файл
int mas[N]; // Массив, элементами которого заполняется первый файл
int i, buf, nul, otr, pol; // i – переменная счетчика цикла
// buf – переменная, в которую будут
// считыватся значения из первого файла
// pol, otr, nul – переменные количества
// положительных, отрицательных и нулевых
// элементов первого файла соответственно
clrscr(); // Очистка экрана
printf("Составитель: Грибков Алексей Николаевич");
printf("\n\t\tФакультет КТФ, группа Р-11\n\n");
// Заполнение массива
for(i=0; i<N; i++)
{
printf("Введите %i элемент массива: ", i);
scanf("%i", &mas[i]); // Ввод элементов массива
}
// Создание в текущем каталоге файлов с именами file1 и file2
// и открытие их на запись
f1=fopen("file1","w+");
f2=fopen("file2","w+");
// Запись в файл с именем file1 элементов массива mas[N]
for(i=0; i<N; i++) fwrite(&mas[i],1,sizeof(int),f1);
fclose(f1); // Закрытие файла file1
pol=0; // Присвоение начального значения переменным
otr=0; // количества положительных, отрицательных и
nul=0; // нулевых элементов
