Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
gpe4a
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 1
1

Вычислить среднее арифметическое чисел, находящихся в типизированном файле

20.12.2012, 21:46. Просмотров 1285. Ответов 1
Метки нет (Все метки)

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

Добавлено через 25 минут
Цитата Сообщение от gpe4a Посмотреть сообщение
Написать программу,которая вычисляет среднее арифметическое чисел, находящихся в типизированном файле а и выводит это значение на экране 2
С помощью функции, определяющей большее из двух чисел, найти большее из четырех числе
Сори криво написал, не понял как редактировать свой пост
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2012, 21:46
Ответы с готовыми решениями:

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности
дана последовательность стоящая из n вещественных чисел.вычислить среднее...

Вычислить среднее арифметическое чисел
Пользователь вводит целые числа. Вычислить среднее арифметическое тех чисел, в...

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

Вычислить среднее арифметическое четырех угловых чисел массива
unit Unit2; interface uses Windows, Messages, SysUtils, Variants,...

Вычислить сумму и среднее арифметическое вводимой последовательности чисел
В задаче сказано: Напишите программу, вычисляющую сумму и среднее...

1
Mawrat
12830 / 5738 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
22.12.2012, 17:58 2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от gpe4a Посмотреть сообщение
Написать программу,которая вычисляет среднее арифметическое чисел, находящихся в типизированном файле а и выводит это значение на экране
На форму надо положить кнопку и TMemo. Для кнопки создать обработчик события OnClick и его код оформить так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TForm1.Button1Click(Sender : TObject);
const
  Fn = 'file.dat';
var
  F : file of Integer;
  i, Num : Integer;
  S, FileName : String;
begin
  //Путь к файлу, который лежит в папке с программой.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Создаём файл и записываем в него случайное количество случайных целых чисел.
  AssignFile(F, FileName);
  Rewrite(F);
  S := '';
  Randomize;
  for i := 1 to 5 + Random(6) do begin //Файл будет содержать 5..10 элементов.
    Num := Random(10); //0..9.
    Write(F, Num);
    if i > 1 then S := S + ', ';
    S := S + IntToStr(Num);
  end;
  Memo1.Lines.Add('------------------------------');
  Memo1.Lines.Add('Создан файл. Содержимое файла:');
  Memo1.Lines.Add(S);
 
  //Решение задачи.
  //Читаем элементы из файла, суммируем их и подсчитываем их количество.
  i := 0;
  Sum := 0;
  Reset(F);
  while not Eof(F) do begin
    Inc(i);
    Read(F, Num);
    Sum := Sum + Num;
  end;
  //Закрываем файл.
  CloseFile(F);
 
  //Расчёт среднего арифметического.
  if i > 0 then
    Memo1.Lines.Add('Среднее арифметическое: ' + FloatToStr(Sum / i))
  else
    Memo1.Lines.Add('Файл пуст. Расчёт среднего арифметического невозможен.');
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2012, 17:58

Вычислить среднее арифметическое чисел массива с четными индексами
Организовать ввод одномерного массива, состоящего из N (до 20) целых чисел ...

Ввести с клавиатуры 5 дробных чисел и вычислить их среднее арифметическое
Очень нужно решения 2 задач в Delphi. Проходим тему "Циклы", но к такому был...

Вычислить среднее арифметическое чисел больших полусуммы первых двух
Дано 50 чисел. Вычислить среднее арифметическое чисел больших полусуммы первых...


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

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

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