Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Помогите найти ошибку
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Женечка Женечка вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.11.2010
По умолчанию Помогите найти ошибку - 06.12.2010, 19:44

Program Srednee;

Const NMax = 10000;

Type Diapazon = 1..NMax;

MasInt = Array[Diapazon] Of Integer;

MasReal = Array[Diapazon] Of Real;

Var PIint : ^MasInt; PReal : ^MasReal;

I, Midint : longInt; MidReal : Real; T : Text; S : string;

Begin

Write('Введите имя файла: '); ReadLn(S);

Assign(T, S); Reset(T); MidReal := 0; MidInt := 0;

Randomize;

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

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

While Not Eof (T) Do

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

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

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

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

For I := 1 To NMax Do

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

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

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

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

End.
в районе предпоследнего End;
Дан текстовый файл размером не более 64 Кб, содержащий действительные числа, по одному в каждой строке. Переписать содержимое файла в массив, разместив его в динамически распределяемой памяти. Вычислить среднее значение элементов массива. Очистить динамическую память. Создать целый массив размером 10000, заполнить его случайными целыми числами в диапазоне от –100 до 100 и вычислить его среднее значение(задание)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите найти ошибку aska666 Prolog 2 13.04.2012 19:30
помогите найти ошибку klay Prolog 1 04.10.2011 12:17
Помогите найти ошибку!!! tanuha_smile Pascal 2 23.02.2011 00:48
Не могу найти ошибку. Помогите найти и исправить... 111 Pascal 0 12.01.2011 16:30
Помогите найти ошибку! Владислав1 Pascal 6 11.01.2011 19:50
помогите найти ошибку kosmoskir Prolog 18 11.11.2010 19:03
помогите найти ошибку andronz Prolog 4 23.10.2010 23:59
Помогите найти ошибку! uncllebob Pascal 0 28.10.2009 13:18
ПОМОГИТЕ НАЙТИ ОШИБКУ Skorost5 Prolog 2 23.06.2008 22:36
Помогите найти ошибку (SWI) Avchent Prolog 5 04.09.2007 18:56
Помогите найти ошибку Kurdt Pascal 4 26.12.2006 00:11
помогите найти ошибку! asles PHP 1 06.01.2005 20:31



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов