4 / 4 / 0
Регистрация: 28.04.2019
Сообщений: 265
1
Delphi 6-7

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

28.04.2019, 18:28. Показов 2260. Ответов 4
Метки нет (Все метки)

Пожалуйста помогите написать лабораторную работу, никак не могу понять как сделать так, чтобы программа заработала после ввода нуля, где вообще нужно вводить его (edit или что-то другое) и как посчитать количество символов и их сумму. Ниже лаба

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

Ниже представлен рекомендуемый вид экрана во время работы.

Вводите после стрелки числа. Для завершения ввода введите ноль.
->45
->23
->15
->0
Введено чисел:3
Сумма чисел:83
Ср.арифметическое:27.67
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2019, 18:28
Ответы с готовыми решениями:

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

Написать программу, вычисляющую сумму чисел ряда
Написать программу, вычисляющую сумму чисел ряда: ...

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

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

4
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.04.2019, 19:03 2
Лучший ответ Сообщение было отмечено LudeiViktorovi4 как решение

Решение

Так попробуйте.
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
procedure TForm1.Button1Click(Sender: TObject);
var a,k,s:integer;
    sr:double;
begin
Memo1.Clear;
Memo1.ScrollBars:=ssVertical;
k:=-1;
s:=0;
ShowMessage('Вводите целые положительные числа, окончание ввода 0');
repeat
repeat
a:=strtoint(inputbox('','Число '+inttostr(k+1),'1'));
until(a>0)or((k>-1)and(a>=0));
k:=k+1;
s:=s+a;
Memo1.Lines.Add(inttostr(a));
until a=0;
sr:=s/k;
Memo1.Lines.Add('Введено чисел: '+inttostr(k));
Memo1.Lines.Add('Сумма чисел: '+inttostr(s));
Memo1.Lines.Add('Ср. арифметическое: '+formatfloat('0.00',sr));
 
 
end;
1
4 / 4 / 0
Регистрация: 28.04.2019
Сообщений: 265
28.04.2019, 19:24  [ТС] 3
Спасибо, программа работает. Скажите, а можно написать программу вообще без кнопки, чтобы в 1 строку,к примеру в edit вводились сразу все числа и при появлении в строке нуля сразу отображался ответ ?
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.04.2019, 19:31 4
Цитата Сообщение от LudeiViktorovi4 Посмотреть сообщение
при появлении в строке нуля
Не знаю, наверное можно, но при вводе чисел типа 10 20 100, будет 0 и неправильный результат.
0
5656 / 2255 / 464
Регистрация: 20.11.2009
Сообщений: 7,592
Записей в блоге: 1
28.04.2019, 19:31 5
можно, отрабатывай OnKeyPress, как только поступит туда if Key = '0' then begin "смотри тему соседнюю, как разбить строку на числа"; и применяй алгоритм Пупорева на те данные при этом условии) только надо еще отрабатывать то, что пупорев только что описал))))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2019, 19:31
Помогаю со студенческими работами здесь

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

Строка: Написать программу, вычисляющую сумму положительных чисел, которые вводятся в клавиатуре.
Написать программу, вычисляющую сумму положительных чисел, которое вводятся в клавиатуре. А...

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

Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел
Если есть какие то недочеты, то напишите в комментариях. #include <stdio.h> #include <stdlib.h>...


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

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

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