Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Произведение и сумма последовательностей. Подскажите пожалуйста Решение задачи: №1.для заданного числа n вычислить значение произведения tg(sqrt(3*1)+n) * tg(sqrt(3*3)-n) * tg(sqrt(3*5)+n)*........*tq(sqrt(3*15)-n) №2. для одного... https://www.cyberforum.ru/ pascal/ thread40284.html процедура убывания ср значения в строке матрицы Pascal
Результаты экзаменационной сессии представлены в виде матрицы, номера строк которых соответствуют списочным номерам студентов группы; номера столбцов – номерам экзаменов; значение элементов – оценки...
Pascal Поменять порядок следования элементов файла на противоположный Приветствую всех. Помогите пожалусто срочно с задачкой: Описать процедуру InvertIntFile(Name), меняющую порядок следования элементов файла целого типа с именем Name на противоположный. Если файл не... https://www.cyberforum.ru/ pascal/ thread40278.html Pascal Операторы циклов Чему равна знакочередующаяся сумма цифр числа n. https://www.cyberforum.ru/ pascal/ thread40272.html
Pascal Операторы циклов
Pascal Выделить массив положительных значений Yp и вывести его в файл в 5 колонок https://www.cyberforum.ru/ pascal/ thread40265.html
Добрый вечер, форумчане-программисты. Очень нужна ваша помощь в решении следующих задач. 1) Определить массив Y=X2-X, где X=2.0, 2.2, ...12. Выделить массив положительных значений Yp и вывести его...
Pascal Использования комбинации операторов цикла и ветвления Чему равна знакочередующаяся сумма цифр числа n. https://www.cyberforum.ru/ pascal/ thread40258.html построение графиков функций Pascal
Построить кривые по заданному параметрическому представлению: эллипс с большой и малой полуосями, равными соответственно r1, r2 и расположенными параллельно осям координат: у = r1 * cost, у = r2 *...
Pascal решить строковые задания https://www.cyberforum.ru/ pascal/ thread40253.html
6 Дано предложение. Вычислить процент вхождения буквы «о» в данное предложение и получить новое предложение путем увеличения данного, на полученный процент, пробелами. 7 Дана фраза определить...
Pascal Анимация https://www.cyberforum.ru/ pascal/ thread40249.html
http://s46.***********/i113/0906/e3/3b608545e8ef.jpg
Pascal текстовый файл
программа сост из 3 процедур!1,2 пашут а в 3ей надо найти минимальное слово 1 или несколько! и вывести их! вроде зделал а не работает помогите исправьте плиз program Quiz3; Uses Crt; var...
Pascal Получить сумму положительных и число отрицательных элеметов в последовательности https://www.cyberforum.ru/ pascal/ thread40229.html
Даны натуральное число n, целые числа а1,..., аn. Получить сумму положительных и число отрицательных элеметов в последовательности а1,..., аn.
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
15.06.2009, 23:10 0

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел - Pascal - Ответ 194122

15.06.2009, 23:10. Показов 6985. Ответов 2
Метки (Все метки)

Ответ

А ведь можно и "укоротить" код и сделать вот так:
Pascal
1
2
3
4
5
6
7
8
var n,n1:integer;
begin
  readln(n);
  readln(n1);
  writeln( (sqr(n)+sqr(n1) )/2:2:2);
  write( (abs(n)+abs(n1))/2:2:2);
  readln;
end.


Вернуться к обсуждению:
Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2009, 23:10
Готовые ответы и решения:

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

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

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

Найти среднее арифметическое двух вещественных чисел
Нужно найти среднее арифметическое двух заданных вещественных чисел! Я новичок! Ну я так понимаю...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2009, 23:10
Помогаю со студенческими работами здесь

Найти среднее арифметическое цифр каждого из двух чисел
Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию...

Определить среднее арифметическое квадратов четных чисел от а до с
Определить среднее арифметическое квадратов четных чисел от а до с (значение нечетных чисел а и с...

Определить среднее арифметическое квадратов нечетных чисел от А до С
Определить среднее арифметическое квадратов нечетных чисел от а до с (значение нечетных чисел а и с...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru