
Вопрос задан 28.06.2019 в 05:10.
Предмет Информатика.
Спрашивает Шевченко Кирилл.
В файле в столбик записаны целые числа. Напишите программу, которая определяет количество пар
соседних чисел таких, что предыдущее число меньше последующего, и выводит результат в конец исходного файла.

Ответы на вопрос

Отвечает Соломатова Елизавета.
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{FILE* f;
int counter=0,pre,next,b=1;
f=fopen("input.txt","r");
fscanf(f,"%d",&pre);
if (feof(f))
b=0;
else
fscanf(f,"%d",&next);
while (!(feof(f)) && b)
{if(pre<next)
counter++;
pre=next;
fscanf(f,"%d",&next);}
if(pre<next)
counter++;
fclose(f);
f=fopen("input.txt","a");
fprintf(f,"\n%d",counter);
fclose(f);
return 0;}
Пример содержимого input.txt до работы программы:
12
123124124
2132134
12412
123123312
12
12345
Пример содержимого input.txt после работы программы:
12
123124124
2132134
12412
123123312
12
12345
3
#include <stdio.h>
int main(void)
{FILE* f;
int counter=0,pre,next,b=1;
f=fopen("input.txt","r");
fscanf(f,"%d",&pre);
if (feof(f))
b=0;
else
fscanf(f,"%d",&next);
while (!(feof(f)) && b)
{if(pre<next)
counter++;
pre=next;
fscanf(f,"%d",&next);}
if(pre<next)
counter++;
fclose(f);
f=fopen("input.txt","a");
fprintf(f,"\n%d",counter);
fclose(f);
return 0;}
Пример содержимого input.txt до работы программы:
12
123124124
2132134
12412
123123312
12
12345
Пример содержимого input.txt после работы программы:
12
123124124
2132134
12412
123123312
12
12345
3


Топ вопросов за вчера в категории Информатика

Информатика 558

Информатика 33

Информатика 74

Информатика 12

Информатика 10

Информатика 33

Информатика 27
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili