Найти среднее арифметическое значение всех чисел последовательности

@Natasha_B · Регистрация: 16.03.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите пожалуйста с задачей: Дана последовательность целых чисел (0 означает конец последовательности).Найти среднее арифметическое значение всех чисел последовательности.(без использования массива.числа вводятся вручную). Заранее спасибо!

@qwertehok · 21.03.2016, 16:55

а где хранить последовательность чисел?
какую тему вы проходите по программированию?

@Puporev · 21.03.2016, 17:31

Сообщение от qwertehok

а где хранить последовательность чисел?

А зачем? Вводите по одному и считаете. 0 конец.

@Natasha_B · 21.03.2016, 20:24 **[ТС]**

Сообщение от qwertehok

а где хранить последовательность чисел?
какую тему вы проходите по программированию?

Программирование алгоритмов циклической структуры

@ROS88 · 21.03.2016, 20:36

В какой компонент необходимо вводить последовательность?

@Natasha_B · 21.03.2016, 20:52 **[ТС]**

это не принципиально

Добавлено через 2 минуты

Сообщение от ROS88

В какой компонент необходимо вводить последовательность?

@ROS88 · 21.03.2016, 20:58

Delphi

var
   S, k: integer;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   Sa: real;
begin
     if (Key <> '0') then
       begin
         S := S + StrToInt(Key);
         k := k + 1;
       end
     else
       begin
         Sa := S / k;
         Caption := FloatToStr(Sa);
       end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     S := 0;
     k := 0;
end;

@Natasha_B · 21.03.2016, 21:14 **[ТС]**

Сообщение от ROS88

Delphi

var
   S, k: integer;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   Sa: real;
begin
     if (Key <> '0') then
       begin
         S := S + StrToInt(Key);
         k := k + 1;
       end
     else
       begin
         Sa := S / k;
         Caption := FloatToStr(Sa);
       end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     S := 0;
     k := 0;
end;

Спасибо огромное! подскажи пожалуйста,что обозначает функция "Key" и "Caption" это окно memo или что?

@ROS88 · 21.03.2016, 21:17

Переменная Key, содержит код нажатой клавиши и имеет тип Char!
Свойство Caption, содержит заголовок формы Form1 (в него мы помещаем икомое среднее арифметическое)!

@Natasha_B · 21.03.2016, 21:33 **[ТС]**

Сообщение от ROS88

Переменная Key, содержит код нажатой клавиши и имеет тип Char!
Свойство Caption, содержит заголовок формы Form1 (в него мы помещаем икомое среднее арифметическое)!

покажите интерфейс программы пожалуйста

@ROS88 · 22.03.2016, 18:46

Сообщение от Natasha_B

покажите интерфейс программы

Интерфейс проекта довольно простой: форма на которой расположен компонент TEdit:
Название: 1.gif
Просмотров: 26

Размер: 3.7 Кб

@Natasha_B 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 9
	21.03.2016, 21:33 [ТС]	10
	Сообщение от ROS88 Переменная Key, содержит код нажатой клавиши и имеет тип Char! Свойство Caption, содержит заголовок формы Form1 (в него мы помещаем икомое среднее арифметическое)! покажите интерфейс программы пожалуйста 0

@ROS88 138 / 136 / 100 Регистрация: 10.03.2015 Сообщений: 553
	22.03.2016, 18:46	11
	Сообщение от Natasha_B покажите интерфейс программы Интерфейс проекта довольно простой: форма на которой расположен компонент TEdit: 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	21.03.2016, 16:55	2
	а где хранить последовательность чисел? какую тему вы проходите по программированию? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.03.2016, 17:31	3
	Сообщение от qwertehok а где хранить последовательность чисел? А зачем? Вводите по одному и считаете. 0 конец. 0

@Natasha_B 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 9
	21.03.2016, 20:24 [ТС]	4
	Сообщение от qwertehok а где хранить последовательность чисел? какую тему вы проходите по программированию? Программирование алгоритмов циклической структуры 0

@ROS88 138 / 136 / 100 Регистрация: 10.03.2015 Сообщений: 553
	21.03.2016, 20:36	5
	В какой компонент необходимо вводить последовательность? 0

@Natasha_B 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 9
	21.03.2016, 20:52 [ТС]	6
	это не принципиально Добавлено через 2 минуты Сообщение от ROS88 В какой компонент необходимо вводить последовательность? 0

@ROS88 138 / 136 / 100 Регистрация: 10.03.2015 Сообщений: 553
	21.03.2016, 21:17	9
	Сообщение было отмечено Natasha_B как решение Решение Переменная Key, содержит код нажатой клавиши и имеет тип Char! Свойство Caption, содержит заголовок формы Form1 (в него мы помещаем икомое среднее арифметическое)! 1

Найти среднее арифметическое значение всех чисел последовательности

Решение