2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
1

Дан файл вещественных чисел. Подсчитать среднее значение чисел большее 3

17.10.2012, 23:21. Показов 1243. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Файл уже заполнен. Не надо его заполнять на рандоме. Помогите пожалуйста.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2012, 23:21
Ответы с готовыми решениями:

Дан файл целых чисел. Подсчитать произведение чисел большее 5
program primer; var fx: text; s,c:integer; begin assign(fx,'F:\0001.txt'); reset (fx); S:=0;...

Дан файл вещественных чисел. Найти среднее арифметическое его элементов
дан файл вещественных чисел. найти среднее арифметическое его элементов.

Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.

Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.

6
181 / 179 / 23
Регистрация: 29.08.2012
Сообщений: 489
17.10.2012, 23:45 2
Где вопрос? Что помочь, с чем помочь? Полностью выполненное задание - это будет помощь или не это требуется? Короче, я ничего не понял, как всегда. Научитесь задавать вопросы.
Имеем задание: Есть файл с вещественными числами. Посчитать среднее от чисел которые больше 3-х.

Что из этого не ясно? Задание так и подсказывает решение. Наверное надо посмотреть каждое число из файла и понять больше ли оно 3-ки, и ежели так, то сложить его в кучку с другими такими же числами, попутно не забывая считать сколько туда кинуто, так как потом же надо будет среднюю величину определять - вот тогда количество элементов и пригодится.

Это как бы алгоритм. Команды, операторы Pascal'я знаешь? Тогда вперёд! Если не знаешь, тогда открываем руководство и тоже вперёд!
2
2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
18.10.2012, 00:17  [ТС] 3
Yurek, У меня не получается. Я ломаю мозг, но не как. Я помощи попросил. Вот что получилось только у меня. Сильно не засмеявать, я только учусь, причём сам.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program p1;
var fx:text;
s,k,n:real;
c:integer;
begin
assign(fx,'C:\22.txt');
reset (fx);
S:=0;
while not Eof(fx) do
begin
read (fx,c);
If c > 3 then n:=n+1
for k:=1 to n do
begin
read(a);
k:=k+a;
end;
writeln('Средне-ое ', k/n:0:2);
close (fx);
end.
1
181 / 179 / 23
Регистрация: 29.08.2012
Сообщений: 489
18.10.2012, 00:31 4
Да здесь никто не будет смеяться. Просто напрягает когда люди не могут выразить свою просьбу. Вот как люди должны были догадаться, что у тебя есть уже код и тебе не нужен готовый вариант, так как ты учишься сам писать программы. Здесь постоянно такое, не ты первый
С ходу бросается в глаза, что ты считываешь из файла вещественное число в переменную (c) целочесленного типа.
Переменная n вполне может быть integer, так как она работает как счётчик чисел больше тройки. Не уловил где заканчивается логическия скобка оператора while: begin-end ?
Не уловил что за переменная 'a' которая даже не объявлена и почему требуется её ввод от пользователя.
Переменная 's' нигде не использована.
Отсутствует суммирование значений чисел которые оказались больше трёх.
1
2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
18.10.2012, 00:39  [ТС] 5
Yurek, Я извиняюсь, что не смог правильно изложить свою мысль.
Так у меня же в условии "файл вещественных чисел". Как если не так?
Я слишком много сидел над этой глупейшей задачей. Не могли бы просто отредактировать правильно код, и написать в чём ошибки. А то я сам искать свихнусь
0
181 / 179 / 23
Регистрация: 29.08.2012
Сообщений: 489
18.10.2012, 00:42 6
Извиняюсь, не успел последний вариант сообщения записать. Поэтому вот:
1. С ходу бросается в глаза, что ты считываешь из файла вещественное число в переменную (c) целочисленного типа.
2. Переменная n вполне может быть integer, так как она работает как счётчик чисел больше тройки.
3. Не уловил где заканчивается логическия скобка оператора while: begin-end ?
4. Не уловил что за переменная 'a' которая даже не объявлена и почему требуется её ввод от пользователя.
5. Переменная 's' нигде не использована.
6. Отсутствует суммирование значений чисел которые оказались больше трёх.

Давай уж сам исправляй, тем более, что верного тут очень мало
0
2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
18.10.2012, 00:48  [ТС] 7
Yurek, Это 100 раз исправленный и переправленный код, поэтому переменные не объявлены и не использованы. Я просто скопировал что было на данный момент, и отослал. Завтра подумаю. Утро вечера мудренее
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2012, 00:48
Помогаю со студенческими работами здесь

Дан массив вещественных чисел. Найти среднее арифметическое положительных и отрицательных чисел
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и...

Дан массив вещественных случайных чисел. Подсчитать сумму положительных чисел
Дан массив вещественных случайных чисел (размер массива определяет пользователь, но в диапазоне )....

Дан файл вещественных чисел Создать файл целых чисел, содержащий номера локальных максимумов исходного файла
2-File. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние арифметические значения
Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние...

Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут
Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут средние...

Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания
File22. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru