Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти max и min, используя подпрограмму нахождения большего из двух чисел https://www.cyberforum.ru/ pascalabc/ thread1578145.html m=(2max(a,b)+max(a+3,b-3))/(max(c,a-b)) Добавлено через 13 часов 7 минут .ещё актуально.	Задача. Магический/Не магический квадрат Pascal ABC Проверить, является ли заданная целочисленная матрица A(N, N) "магическим квадратом" (это значит, что суммы чисел во всех её строках, всех столбцах и двух диагоналях одинаковы). Решить без процедур...
Pascal ABC Массив: в двухмерном массиве заполнить указанные значения числами (1,2,3,4,5.....) по вертикали Надо написать программку, которая в двухмерном массиве заполняет указанные значения ( белое поле) числами (1,2,3,4,5.....) по вертикали.Операторы для создания программы должны быть в цикле.... https://www.cyberforum.ru/ pascalabc/ thread1578086.html	Pascal ABC Файл: Получить название игрушек, цена которых не превышает 1000 рублей. Дан файл Assort, содержащий сведения об игрушках: указываются название игрушки, ее стоимость в рублях и возрастные границы (например, игрушка для детей 3-5 лет). Получить название игрушек, цена... https://www.cyberforum.ru/ pascalabc/ thread1577932.html
Pascal ABC Разность элементов столбцов матрицы Дана матрица А с 2 строками и 10 столбцами, каждый из которых соответствует одной из 10 учебных групп. 1-й и 2-й элементы столбца соответственно представляют число студентов женского и мужского пола...	Pascal ABC Что-то вроде игры Короче задали(на 4м то курсе) на паскалике сделать игру,суть которой такова: На примере двух групп людей, животных, насекомых, растений, бактерий. В данном случае берется пример групп людей:... https://www.cyberforum.ru/ pascalabc/ thread1577538.html
Pascal ABC Нарисовать человека Изобразить на экране ЭВМ следующий рисунок: https://www.cyberforum.ru/ pascalabc/ thread1577482.html	Pascal ABC Из исходного файла сформировать массив Создать типизированный файл, куда записать n целых чисел. Из исходного файла сформировать массив, внести в него простые и совершенные числа, расположенные в файле между минимальным и максимальным...
Pascal ABC Сортировка фамилий в порядке возрастания https://www.cyberforum.ru/ pascalabc/ thread1577269.html Добрый вечер , прошу помочь в реализации сортировки в бд по фамилии в порядке возрастания, как это сделать ? Добавлено через 13 минут Ахаха я дурак извините , это очень сложно сделать	Pascal ABC Метод двойной факторизации Сделайте метод двойной факторизации Пожалуйста!) https://www.cyberforum.ru/ pascalabc/ thread1577234.html
Pascal ABC Определите наибольшую сумму, не превосходящую заданное число Заданы B (1 <= B <=21) чисел (в диапазоне 1..35000). Определите наибольшую сумму, не превосходящую заданное число C(10 <= C <= 35,000), которую можно получить, выбрав некоторые из заданных B чисел....	Pascal ABC Если сумма всех элементов массива чётная, нужно вывести количество нечётных Дан целочисленный массив А из 20 целых случайных чисел от 10 до 90. Если сумма всех элементов массива чётная, нужно вывести количество нечётных ( по значению ) элементов массива, если нечётная -... https://www.cyberforum.ru/ pascalabc/ thread1577194.html

ZX Spectrum-128

6804 / 4563 / 4817

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

Сообщений: 22,438

12.11.2015, 08:18

Составить процедуру вычисления среднего арифметического и среднего геометрического А и В - Pascal ABC - Ответ 8329019

12.11.2015, 08:18. Показов 6132. Ответов 1

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

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

Решение

Pascal

procedure SASG(x, y: real; var sa, sg: real);
begin
  sa := (x + y) / 2;
  sg := sqrt(x * y);
end;
 
var
  sa, sg, a, b, c: real;
 
begin
  write('Введите a,b,c: ');
  readln(a, b, c);
  SASG(a, b, sa, sg);
  writeln('Пара AB:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);
  SASG(a, c, sa, sg);
  writeln('Пара AC:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);  
  SASG(b, c, sa, sg);
  writeln('Пара BC:');
  writeln('sa = ', sa:0:2);
  writeln('sg = ', sg:0:2);    
end.

Вернуться к обсуждению:
Составить процедуру вычисления среднего арифметического и среднего геометрического А и В Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

12.11.2015, 08:18

Готовые ответы и решения:

Нахождение среднего арифметического и среднего геометрического двух чисел
Напишите программу для вычисления значения V по формуле V = V0 ( 3/2  - 1/2...

Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции
Составить программу вычисления среднего арифметического отрицательных значений и среднего...

Функция вычисления среднего арифметического и среднего геометрического двух чисел
Описать функцию Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и...

Составить процедуру вычисления среднего арифметического элементов одномерного массива A[m]
Составить процедуру вычисления среднего арифметического элементов одномерного массива A, с помощью...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

12.11.2015, 08:18

Помогаю со студенческими работами здесь

Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент
помогите пожалуйста решить: Заданы три величины a, b и c. Определить максимальное и минимальное...

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

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

Разработайте перегруженные функции нахождения среднего арифметического и среднего геометрического трех целых и вещественных чисел
Составьте программу для решения задачи. Выясните, что больше: среднее арифметическое или среднее...

Наверх