Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • ReadLn(i);






    If (i=0) Then {если первое число – ноль, }

    Begin {то выход из программы}

    WriteLn('Файл не создан');

    Erase(chisla);

    Exit;

    End

    Else Write(chisla, i);

    Repeat {цикл ввода чисел}

    Write('Очередное число: ');

    ReadLn(i);

    If (i< > 0)

    Then Write(chisla, i)

    Else Break;

    Until (i=0);

    ReSet(chisla); {открываем файл для чтения}

    Read(chisla, i); {и читаем первое число}

    min: =i;

    max: =i;

    i_max: =0;

    i_min: =0;

    summa: =0.0;

    count: =0;

    ReSet(chisla); {снова открываем файл для чтения}

    WriteLn;

    WriteLn('Числа, записанные в файле: ');

    While (Not(EOF(chisla))) Do {цикл чтения чисел}

    Begin

    Read(chisla, i); {читаем очередное число}

    Write(i: 5); {и выводим его на экран}

    If (i> max) Then

    Begin

    max: =i;

    i_max: =FilePos(chisla);

    End;

    If (i< min) Then

    Begin

    min: =i;

    i_min: = FilePos(chisla);

    End;

    summa: =summa+i;

    count: =count+1;

    End; {конец цикла чтения файла}

    WriteLn;

    sr_arifm: =summa/count;

    WriteLn;

    WriteLn('summa=', summa: 0: 0);

    WriteLn('count=', count);

    WriteLn('sr_arifm=', sr_arifm: 6: 3);

    WriteLn('max=', max, ' i_max=', i_max);

    WriteLn('min=', min, ' i_min=', i_min);

    WriteLn;

    Close(chisla);

    End.

    3.2. На языке Си:

     

    #include < stdio.h>

    #include < conio.h>

    #include < math.h>

    #include < time.h>

    Int main()

    {

    Int i, max, min, i_max, i_min, count, summa;

    Float sr_arifm;

    FILE *f_chisla;

    printf(" \nЛабораторная работа №8_1");

    printf(" \nВариант №0");

    printf(" \nПО-11-1");

    printf(" \nПупкин Василий\n");

    printf(" \nПервое число: ");

    scanf(" %d", & i);

    if (i == 0)

    printf(" \nФайл не создан\n");

    return 0; //завершение работы программы

    Else

    {

    f_chisla = fopen(" E: /User/f_chisla.txt", " w");

    fprintf(f_chisla, " %5d", i);

    }

    Do

    {

    printf(" \nОчередное число: ");

    scanf(" %d", & i);

    if (i! = 0)

    fprintf(f_chisla, " %5d", i);

    Else break;

    }

    While(1);

    fclose(f_chisla); //закрытие файла

    //открываем файл для чтения

    f_chisla = fopen(" E: /User/f_chisla.txt", " r");

    //и читаем первое записанное в нем число

    fscanf(f_chisla, " %d", & i);

    min = i; //текущие min и max числа и их позиции

    max = i;

    i_min = 0;

    i_max = 0;

    count = 1; //количество прочитанных чисел

    summa = i; //сумма прочитанных чисел

    printf(" \nЧисла, записанные в файл: \n ");

    printf(" %5d", i);

    while (! feof(f_chisla))

    {

    fscanf(f_chisla, " %d", & i);

    count++;

    summa += i;

    printf(" %5d", i);

    if (i < min)

    {

    min = i;

    i_min = ftell(f_chisla); //позиция числа в файле

    }

    if (i > max)

    {

    max = i;

    i_max = ftell(f_chisla); }

    }

    printf(" \n");

    printf(" \nВ файле записано %d чисел", count);

    printf(" \nСумма этих чисел %d: ", summa);

    sr_arifm = (float) summa/count;

    printf(" \nСреднее арифметическое %5.3f: ", sr_arifm);

    printf(" \nmin = %d", min);

    printf(" \ni_min = %d", i_min);

    printf(" \nmax = %d", max);

    printf(" \ni_max = %d", i_max);

    Fclose(f_chisla);






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.