Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
1

Найти среднеарифметическое 4-х чисел файла

21.11.2009, 20:46. Показов 519. Ответов 2
Метки нет (Все метки)

Задача:
1) Создать типизированный файл чисел типа real;
2) Заполнить его;
3) Найти среднеарифметическое 4-х чисел, если оно больше первого числа, удаляем его, если же меньше, переходим на следующее число и опять находим среднеарифметическое 4-х чисел, если
больше числа с которого считали, удаляем. И так до конца файла. При этом результат надо сохранить во второй файл, этого же типа (real).

Что не получается:
1) Файл заполняется числами типа Integer
Pascal
1
2
3
4
5
6
randomize;
 for i:=1 to 10 do
  begin
   x:=random(100);
   write(f1,x);
  end;
2) Непонятен алгоритм. Как считать последовательно по 4 числа из файла?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2009, 20:46
Ответы с готовыми решениями:

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел
заранее всем спасибо буду признателен за любую помощь

Найти среднеарифметическое каждого из столбцов и количество столбов, у которых среднеарифметическое больше элемента побочной диагонали
Ребятушки,можете помочь, проверить правильно ли сделаты программы, я сама толком не разбираюсь...

Найти среднеарифметическое отрицательных чисел
Дан двумерный массив размером 12х12. Найти среднеарифметическое отрицательных чисел.

Найти среднеарифметическое четных чисел последовательности
2) Вводится последовательность целых чисел, 0 – конец последовательности. Найти...

2
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
21.11.2009, 21:14 2
О каком результате идет речь? О среднеарифмитическом для каждой четверки чисел?
Что касается считывания по 4 числа, то наверное так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 while not Eof(MyFile)
 do begin
    MidValue := 0;
    for i := 1 to 4
    do begin
       Read(MyFile, Value);
       if Eof(MyFile) then Exit;
       MidValue := MidValue + Value;
       end;
    MidValue := MidValue / 4;
    Seek(MyFile, FilePos(MyFile)-3);
    end;
1
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
21.11.2009, 21:20  [ТС] 3
Цитата Сообщение от Страдалецъ Посмотреть сообщение
О каком результате идет речь?
После одного прохождения по всем числам файла.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2009, 21:20

Дано 15 цифр. Найти среднеарифметическое четных чисел
Дано 15 цифр. Найти среднеарифметическое четных чисел. Срочно помогите пожалуйста c#.

Как в массиве Z(N) найти среднеарифметическое чисел, принадлежащих отрезку [-3;5.2]
Здравствуйте, Пожалуйста помогите решить 3 задачки: 1)В массиве Z(N) найти среднеарифметическое...

Найти среднеарифметическое чисел последовательности, которые больше пяти
Вводится последовательность из M чисел, найти среднеарифметическое этих чисел,которые больше 5

Для каждой группы чисел найти минимальное, максимальное и среднеарифметическое
Народ,помогите,нужна ваша помощь в написании кода Очень очень выручите нужен только программный...

Найти среднеарифметическое всех чисел(файлы input.txt, output.txt)
В файле input.txt записать числа, сколько их - неизвестно (произвольно ввести в созданный файл...

Среднеарифметическое чисел
Здравствуйте! дан код public class SredneeArif { public static void main(String args) {...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.