Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

   {Ввод и суммирование вещественного массива}

   While Not Eof (T) Do

   Begin ReadLn(T, PReal^[I]); MidReal := MidReal + PReal^[I] End;

   DISPOSE(PReal); {Удаление вещественного массива}

   NEW(PInt); {Выделение памяти под целый массив}

   {Вычисление и суммирование целого массива}

   For I := 1 To NMax Do

   Begin PInt^[I] := -100 + Random(201); MidInt := MidInt + PInt^[I] End;

   {Вывод средних значений}

   WriteLn('среднее целое равно: ', MidInt Div NMax);

   WriteLn('среднее вещественное равно: ', (MidReal / NMax) : 10 : 6)

End.

// Язык C++

#include < stdio.h >

#include < time.h >

#include < stdlib.h >

#include < iostream.h >

#define NMax 10000

typedef int MasInt;

typedef float MasReal;

MasInt *PInt; MasReal *PReal;

int I, n, MidInt; float MidReal; char S[255];

FILE *t; char *endptr;

void main()

{     cout > S;

Рекомендуем скачать другие рефераты по теме: решебник по химии, реферат методы.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата