Как в паскале найти среднее арифметическое модулей - Исправление недочетов и поиск решений вместе с Examum.ru

Trader86

2 / 2 / 2

Регистрация: 15.11.2010

Сообщений: 28

Вычислить среднее арифметическое и среднее геометрическое модулей заданных чисел

08.12.2010, 15:01. Показов 5568. Ответов 11

Метки нет (Все метки)

Всем привет.
Условие: Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое модулей. Исходные данные a,b,c,d.

Проверьте пожалуйста задачу, она запускается, но мне важно знать, все ли в ней правильно. Делал по аналогии.

Pascal

Program zad1;
Uses crt;
Var a,b,c,d:longint;
 begin
 a:=abs (a);
 b:=abs (b);
 c:=abs (c);
 d:=abs (d);
 writeln ('vvedite 4 4isla');
 readln (a,b,c,d);
 writeln ('srednee arifmetich=', (0.5*(a+b+c+d)):8:3);
 writeln ('srednee geometri4 modulei=', (sqrt(a*b*c*d)):8:3);
writeln ('nagmi enter');
readln;
end.

Добавлено через 1 минуту
Вот новый вариант, с поправками. Мне нужно знать, правильно ли построена задача.

Pascal

Program zad1;
Uses crt;
Var a,b,c,d:longint;
 begin
 a:=abs (a);
 b:=abs (b);
 c:=abs (c);
 d:=abs (d);
 writeln ('vvedite 4 4isla');
 readln (a,b,c,d);
 writeln ('srednee arifmetich=', ((a+b+c+d)/4):8:3);
 writeln ('srednee geometri4 modulei=', sqrt(sqrt(abs(a*b*c*d))):8:3);
readln;
end.

mamedovvms

2923 / 844 / 324

Регистрация: 30.04.2009

Сообщений: 2,633

08.12.2010, 15:12

ну второй вариант верный, только вот эти строки не нужны

Pascal

 a:=abs (a);
 b:=abs (b);
 c:=abs (c);
 d:=abs (d);

так как у тебя все равно еще нет значений в этих переменных

Добавлено через 1 минуту
и если тебе нужно вывести среднее арифметическое модулей чисел тогда нужно вот так написать

Pascal

1	abs(a+b+c+d)/4)

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

08.12.2010, 15:14

Сообщение было отмечено как решение

Решение

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

вывести среднее арифметическое модулей

Pascal

1	sr:=(abs(a)+abs(b)+abs(c)+abs(d))/4;

Trader86

2 / 2 / 2

Регистрация: 15.11.2010

Сообщений: 28

08.12.2010, 15:16

[ТС]

А вот, дело в том, что как раз и не понятно что надо. Просто среднее арифметическое или среднее арифметическое модулей.

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

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

Pascal

1	sr:=(abs(a)+abs(b)+abs(c)+abs(d))/4;

Попробую так.

2923 / 844 / 324

Регистрация: 30.04.2009

Сообщений: 2,633

08.12.2010, 15:18

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

так а если вы не знаете, то мы тем более не знаем, может вам стоит узнать у того кто задал задачу????

2 / 2 / 2

Регистрация: 15.11.2010

Сообщений: 28

08.12.2010, 15:19

[ТС]

Задача в методичке, в электронном варианте. В первом посте я выдал ее полное условие.

2923 / 844 / 324

Регистрация: 30.04.2009

Сообщений: 2,633

08.12.2010, 15:23

ну так все равно вы же все равно будете сдавать ее преподавателю, и если вам не ясно немного условие, то вы можете наверное у него спросить, а то может быть так, что вы поняли это по одному, а он по другому, даже если вы поняли верно, преподаватель будет все равно прав))))

2 / 2 / 2

Регистрация: 15.11.2010

Сообщений: 28

08.12.2010, 15:23

[ТС]

Да, сдавать буду, посмотрим что скажет.

2923 / 844 / 324

Регистрация: 30.04.2009

Сообщений: 2,633

08.12.2010, 15:23

Но если исходить из условия задачи, то вернее будет среднее арифметическое модулей.

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

08.12.2010, 15:24

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

Вычислить среднее арифметическое и среднее геометрическое модулей.

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

Pascal

1 2	sra:=(a+b+c+d)/4; sg:=exp(ln(abs(a)abs(b)abs(c)*abs(d))/4);

2923 / 844 / 324

Регистрация: 30.04.2009

Сообщений: 2,633

08.12.2010, 15:28

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

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

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

2 / 2 / 2

Регистрация: 15.11.2010

Сообщений: 28

08.12.2010, 15:40

[ТС]

Да, наверное все таки просто среднее арифметическое, ну это я уточню у преподши. Получается второй вариант в моем посте является верным? Подойдет текущая формула или все таки подставить формулу Puporev ? Между ними наверное нет разницы?

Добавлено через 5 минут
Да да, вижу, разницы в расчетах нет.

Источник

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

Program Anadra;

uses crt;

var a,b,c,d,e,f: integer;

x,y: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

с:=sqr(a);

d:=sqr(b);

x:=(c+d)/2;

e:=abs(a);

f:=abs(b);

y:=(e+f)/2;

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);

end.

Разбор решения:

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a — первое число

b — второе число

с — квадрат первого числа

d — квадрат второго числа

e — модуль первого числа

f — модуль второго числа

Real:

x — среднее арифметическое их квадратов

y — среднее арифметическое их модулей.

2)Теперь сама программа. Для начала просим пользователя ввести 2 числа и он вводит их.

writeln(‘Введите два числа’);

readln(a);

readln(b);

3)Теперь считаем квадраты чисел.

с:=sqr(a);

d:=sqr(b);

4)Считаем среднее арифметическое их квадратов.

x:=(c+d)/2;

5)Считаем модули чисел.

e:=abs(a);

f:=abs(b);

6)Считаем среднее арифметическое их модулей.

y:=(e+f)/2;

7)Теперь выводим результаты на экран.

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);

Источник

Формулировка задачи:

Проверьте пожалуйста задачу, она запускается, но мне важно знать, все ли в ней правильно. Делал по аналогии.

Вот новый вариант, с поправками. Мне нужно знать, правильно ли построена задача.

Код к задаче: «Вычислить среднее арифметическое и среднее геометрическое модулей заданных чисел»

textual

sr:=(abs(a)+abs(b)+abs(c)+abs(d))/4;

Полезно ли:

15 голосов , оценка 4.067 из 5

Источник

program e4;
var a,b,c,d:real;
begin
writeln('Введи a b');
readln (a,b);
c:=(sqr(a)+sqr(b))/2;
d:=(abs(a)+abs(b))/2;
writeln('c=',c:4:4);
writeln('d=',d:4:4);
end.

Похожие записи/страницы:

Даны числа n, действительная матрица размером n*9. найти среднее арифметическое: каждого из столбцов — Pascal(Паскаль)
Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 — Pascal(Паскаль)
Сформировать файл из модулей целых чисел, найти Среднее арифметическое значение компонентов с четными номерами -…
Написать программу, вычисляющую среднее арифметическое последовательности положительных чисел. Числа вводятся с…
Вводить числа, пока не будет введён 0. Посчитать сумму и среднее арифметическое этих чисел — Pascal(Паскаль)
Вычислить среднее арифметическое введенных чисел,кол-во введенных чисел. При вводе числа 777 закончить работу -…
Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы — Pascal(Паскаль)
Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое — Паскаль(Pascal) -CF

Источник

Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC).

На этой странице сайта размещен вопрос Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC)? из категории
Информатика с правильным ответом на него. Уровень сложности вопроса
соответствует знаниям учеников 5 — 9 классов. Здесь же находятся ответы по
заданному поиску, которые вы найдете с помощью автоматической системы.
Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по
заданной теме. На этой странице можно обсудить все варианты ответов с другими
пользователями сайта и получить от них наиболее полную подсказку.

Источник