Как найти среднее арифметическое 3 чисел в Паскале???

bugatti · 29.03.2012, 21:20

Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому...
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33

Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( 'Введите три целых числа' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал???
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f ); и вот тут так???
end.

---------- Добавлено в 20:20 ---------- Предыдущее сообщение было написано в 20:12 ----------

помогите, срочно надо!!

sheff-09 · 01.04.2012, 16:59

bugatti, не очень разбираюсь в Паскале, но можно, например, так:

program qq;
var a, b, c, d, e, f: integer;
begin
writeln( 'Vvedite 3 chisla' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) div 3;
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f );
end.

Pavlucha · 03.04.2012, 13:34

Цитата:

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

Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому...
Ввести три числа, найти их сумму, произведение и среднее арифметическое.
Пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33

Я сделал только сумму и произведение:
program qq;
var a, b, c, d, e: integer;
begin
writeln( 'Введите три целых числа' );
read ( a, b, c );
d := a + b + c;
e := a * b * c;
f := ( a + b + c ) / 3 вот тут я так написал???
writeln ( a, '+', b, '+', c, '=', d );
writeln ( a, '*', b, '*', c, '=', e );
writeln ( a, '+', b, '+', c, '/', 3, '=', f ); и вот тут так???
end.

---------- Добавлено в 20:20 ---------- Предыдущее сообщение было написано в 20:12 ----------

помогите, срочно надо!!

для целочисленного деления применяют функции div и mod
Функция Div выполняет деление,Mod считает остаток от целочисленного деления например:

Код:

rez:=4 div 2 {rez=2}
rez:=5 div 2 {rez=2}
rez:=5 mod 2 {rez=1}

И не надо применять такое большое кол-во переменных достаточно 4 например:

Код:

...rez:=a+b+c;
writeln(rez);
rez:=a*b*c;
writeln(rez);
rez:=(a+b+c) div 3;
writeln(rez);...

Если интересует паскаль,то советую почитать книгу "Песни о Паскале"
http://oleg-derevenets.narod.ru/oglavlenie/

Crysis · 05.05.2012, 14:42

мне кажется не все переменные надо определять как Integer, среднее арифметическое надо описать как Real

29.03.2012, 21:20	#1
bugatti Новичок Регистрация: 09.12.2011 Сообщений: 3 Репутация: 0	Как найти среднее арифметическое 3 чисел в Паскале??? Вчера начал изучать программирование, в школе наседают, ничего не объяснют, приходится дотумковать самому... Ввести три числа, найти их сумму, произведение и среднее арифметическое. Пример: Введите три числа: 4 5 7 4+5+7=16 457=140 (4+5+7)/3=5.33 Я сделал только сумму и произведение: program qq; var a, b, c, d, e: integer; begin writeln( 'Введите три целых числа' ); read ( a, b, c ); d := a + b + c; e := a * b * c; f := ( a + b + c ) / 3 вот тут я так написал??? writeln ( a, '+', b, '+', c, '=', d ); writeln ( a, '', b, '', c, '=', e ); writeln ( a, '+', b, '+', c, '/', 3, '=', f ); и вот тут так??? end. ---------- Добавлено в 20:20 ---------- Предыдущее сообщение было написано в 20:12 ---------- помогите, срочно надо!! Последний раз редактировалось bugatti; 29.03.2012 в 21:42.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Платное среднее образование	дормидонд	Общение по интересам	18	12.05.2010 02:28
Последовательность действительных чисел	ternopol1	Программирование	3	21.03.2010 14:11
Среднее значение и количество нулевых членов в массиве	novikova1990	Программирование	0	08.01.2010 21:46
Генератор случайных чисел в Visual C++	Alexei1986	Программирование	1	08.11.2009 14:40
Проверка чисел на простоту в Maple	Alexei1986	Программирование	1	05.06.2009 02:21

01.04.2012, 16:59	#2
sheff-09 Новичок Регистрация: 21.11.2009 Сообщений: 486 Репутация: 47	bugatti, не очень разбираюсь в Паскале, но можно, например, так: program qq; var a, b, c, d, e, f: integer; begin writeln( 'Vvedite 3 chisla' ); read ( a, b, c ); d := a + b + c; e := a * b * c; f := ( a + b + c ) div 3; writeln ( a, '+', b, '+', c, '=', d ); writeln ( a, '', b, '', c, '=', e ); writeln ( a, '+', b, '+', c, '/', 3, '=', f ); end.

05.05.2012, 14:42	#4
Crysis Новичок Регистрация: 04.05.2012 Сообщений: 14 Репутация: 0	мне кажется не все переменные надо определять как Integer, среднее арифметическое надо описать как Real

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads