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

Trader86

2 / 2 / 2

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

Сообщений: 28

1

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

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

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

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

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

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

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

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.



0

mamedovvms

2923 / 844 / 324

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

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

08.12.2010, 15:12

2

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

Pascal 
1
2
3
4

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

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

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

Pascal 
1

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



0

Puporev

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

64287 / 47586 / 32739

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

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

08.12.2010, 15:14

3

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

Решение

Цитата
Сообщение от mamedovvms
Посмотреть сообщение

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

Pascal 
1

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



3

Trader86

2 / 2 / 2

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

Сообщений: 28

08.12.2010, 15:16

 [ТС]

4

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

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

Цитата
Сообщение от Puporev
Посмотреть сообщение

Pascal 
1

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

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



0

2923 / 844 / 324

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

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

08.12.2010, 15:18

5

Цитата
Сообщение от Trader86
Посмотреть сообщение

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

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



0

2 / 2 / 2

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

Сообщений: 28

08.12.2010, 15:19

 [ТС]

6

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



0

2923 / 844 / 324

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

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

08.12.2010, 15:23

7

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



0

2 / 2 / 2

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

Сообщений: 28

08.12.2010, 15:23

 [ТС]

8

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



0

2923 / 844 / 324

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

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

08.12.2010, 15:23

9

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



0

Puporev

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

64287 / 47586 / 32739

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

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

08.12.2010, 15:24

10

Цитата
Сообщение от Trader86
Посмотреть сообщение

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

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

Pascal 
1
2

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



0

2923 / 844 / 324

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

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

08.12.2010, 15:28

11

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

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

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



0

2 / 2 / 2

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

Сообщений: 28

08.12.2010, 15:40

 [ТС]

12

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

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



0
Источник

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

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);

Источник

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

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

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

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

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

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 классов. Здесь же находятся ответы по
заданному поиску, которые вы найдете с помощью автоматической системы.
Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по
заданной теме. На этой странице можно обсудить все варианты ответов с другими
пользователями сайта и получить от них наиболее полную подсказку.

Источник

Понравилась статья? Поделить с друзьями:

Не пропустите также:

  • Найти картинку яндекс как включить
  • Как найти количество делителей числа комбинаторика
  • Как составить краткую биографию персонажа
  • Blzbnttas00000001 как исправить
  • Как найти несуществующий файл

    • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии