0 / 0 / 0
Регистрация: 14.09.2015
Сообщений: 18
1

Организовать ввод с клавиатуры неограниченного количества вещественных чисел

14.09.2015, 22:12. Показов 1385. Ответов 3
Метки нет (Все метки)

Организовать ввод с клавиатуры неограниченного количества вещественных чисел. Завершить ввод, если сумма введенных чисел станет больше 35,96. Вывести на экран все введенные числа, их количество и среднее арифметическое.

Чем быстрее тем лучше. Заранее очень благодарен!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.09.2015, 22:12
Ответы с готовыми решениями:

Организовать ввод с клавиатуры и визуализацию элементов одномерного массива вещественных чисел
организовать ввод с клавиатуры и визуализацию элементов одномерного массива вещественных чисел.Если...

Ввод с клавиатуры массива из N вещественных чисел
Написать программу, которая вводит с клавиатуры массив из N вещественных чисел, упорядочивает все...

Ввод количества чисел N, и N вещественных чисел
Ребят, помогите понять что от меня хотят: "Программа вводит количество чисел N, а затем N...

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

3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28035 / 15765 / 981
Регистрация: 15.09.2009
Сообщений: 67,753
Записей в блоге: 78
14.09.2015, 22:16 2
Цитата Сообщение от TheFlash Посмотреть сообщение
Чем быстрее тем лучше.
ну тогда пиши быстрее.
0
northener
15.09.2015, 00:39
  #3

Не по теме:

magirus, логичнее было бы ответить
Ну тогда пиши БЫСТРЕЕ.

0
Почетный модератор
64230 / 47532 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
15.09.2015, 09:41 4
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
var
  Form1: TForm1;
  a,s:double;
  q:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('Вводите действительные числа');
Edit2.ReadOnly:=true;//запретим ввод в Эдит2
end;
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,a,k); //проверяем что введено число
if k<>0 then
 begin
  Edit1.Clear;
  Edit1.SetFocus;
 end
else
 begin
  a:=StrToFloat(Edit1.Text);
  inc(q); //считаем количество
  s:=s+a;//считаем сумму
  Edit2.Text:=Edit2.Text+' '+Edit1.Text; //выводим
  if s>35.96 then //если сумма больше
   begin
    s:=s/q;
    ShowMessage('Количество чисел='+inttostr(q)+#13#10+
                'Среднее арифметическое='+format('%.2f',[s]));
    Button1.Enabled:=false;//выключаем кнопку
   end;
  Edit1.Clear;//очистим Эдит
  Edit1.SetFocus;//переведем в него фокус
 end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2015, 09:41
Помогаю со студенческими работами здесь

Ввод с клавиатуры и вывод на экран массива из 7 вещественных чисел
Задание такое: Составьте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных...

Организовать ввод с клавиатуры последовательности натуральных чисел
Помогите,плиз,ребята!! 1. Организовать ввод с клавиатуры последовательности натуральных чисел....

Организовать ввод двух вещественных чисел и операции над ними: сложение, вычитание, умножение и деление
Парни всем привет! Начинаю новую тему по решению задач Задача звучит так: Написать программу,...

Ввод с клавиатуры произвольного количества чисел
Привет всем. Нужна помощь с одной проблемкой. Сама проблемка звучит так : - Написать программу...


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

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

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