Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы програ

@dimoniks · Регистрация: 16.10.2012

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

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

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

-> 5.4

-> 7.8

-> 3.0

-> 1.5

-> 2.3

Среднее арифметическое введенной последовательности: 4.00

@HanDi · 16.10.2012, 22:02

На консоли лень писать, вот мой вариант:

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var it: real;
sum: variant;
x: variant;
begin
sum:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text)+StrToFloat(edit3.Text)+StrToFloat(edit4.Text)+StrToFloat(edit5.Text);
it:=sum/5;
x:=(it*100)/100;
label1.Caption:=FloatToStr(x);
end;

Громоздко, но работает как нужно тебе. Числа вводим в 5 едитов в таком виде: 5,1 7,2 и так далее.
Округляем в конце до сотых и готово. Результат в label.

Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы програ

@droider · 16.10.2012, 22:20

Вот, решение в консоли

Pascal

Program sredarif;
uses crt;
var
a,b,c,d,e, sa:real;
begin
Write('->');
readln(a);
Write('->');
readln(b);
Write('->');
readln(c);
Write('->');
readln(d);
Write('->');
readln(e);
sa:=(a+b+c+d+e)/5;
Writeln('среднее арифм. значение равно ', sa);
readln;
end.

P.S. Задача должна быть в разделе Pascal

@HanDi · 16.10.2012, 22:23

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

P.S. Задача должна быть в разделе Pascal

Да необязательно..

@ART777NN · 16.10.2012, 22:46

Delphi

program sred;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const n=5;
  var
  chisla: array[1..n] of real;
  i:integer;
  sredar:real;
begin
  for I := 1 to n do
  begin
    write('->');read(chisla[i]);
    writeln;
  end;
  sredar:=0;
    for I := 1 to n do
  begin
    sredar:= sredar+chisla[i];
  end;
  writeln('Среднее арифметическое равно:', sredar/n:4:2);
  readln;
end.

можно и так.

@dimoniks 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 20
		1
	Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы програ 16.10.2012, 21:50. Показов 16190. Ответов 4 Метки нет (Все метки) Написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы программы приведен ниже. Данные, введенные пользователем, выделены полужирным шрифтом. Вычисление среднего арифметического последовательностидробных чисел. После ввода каждого числа нажимайте -> 5.4 -> 7.8 -> 3.0 -> 1.5 -> 2.3 Среднее арифметическое введенной последовательности: 4.00 0

@HanDi 898 / 345 / 65 Регистрация: 11.02.2012 Сообщений: 1,502
	16.10.2012, 22:23	4
	Сообщение от droider P.S. Задача должна быть в разделе Pascal Да необязательно.. 0

	16.10.2012, 22:46

Опции темы