0 / 0 / 1
Регистрация: 16.01.2013
Сообщений: 10
1

Нахождение среднего арифметического и среднего геометрического двух чисел

16.01.2013, 10:30. Показов 12016. Ответов 2
Метки нет (Все метки)

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

Написать программу нахождения среднего арифметического и среднего геометрического двух чисел по формулам
sa:=(a+b)/2;
sq:=sqrt(a*b);
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2013, 10:30
Ответы с готовыми решениями:

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

Вычисление среднего геометрического модулей двух введенных с клавиатуры целых чисел X и Y
Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых...

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

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

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,431
Записей в блоге: 1
16.01.2013, 11:00 2
Лучший ответ Сообщение было отмечено Настенька27 как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
Var v0,v,t:real;
Begin
    write('Введите t: ');readln(t);
    v0:=2;
    v:=v0*(3/2*t-1/2*abs(t));
    write('V = ',v:0:2);
End.
Добавлено через 1 минуту
2)
Pascal
1
2
3
4
5
6
7
8
Var sa,sq,a,b:real;
Begin
    write('Введите a,b: ');readln(a,b);
    sa:=(a+b)/2;
    sq:=sqrt(a*b);
    writeln('sa = ',sa:0:2);
    writeln('sq = ',sq:0:2);
End.
Добавлено через 28 секунд
Читайте правила одна тема=один вопрос!Впредь не нарушайте, а изучайте!
1
0 / 0 / 1
Регистрация: 16.01.2013
Сообщений: 10
16.01.2013, 11:02  [ТС] 3
Цитата Сообщение от CodeR Посмотреть сообщение
1)
Pascal
1
2
3
4
5
6
7
Var v0,v,t:real;
Begin
    write('Введите t: ');readln(t);
    v0:=2;
    v:=v0*(3/2*t-1/2*abs(t));
    write('V = ',v:0:2);
End.
Добавлено через 1 минуту
2)
Pascal
1
2
3
4
5
6
7
8
Var sa,sq,a,b:real;
Begin
    write('Введите a,b: ');readln(a,b);
    sa:=(a+b)/2;
    sq:=sqrt(a*b);
    writeln('sa = ',sa:0:2);
    writeln('sq = ',sq:0:2);
End.
Добавлено через 28 секунд
Читайте правила одна тема=один вопрос!Впредь не нарушайте, а изучайте!

Спасибо огромное!ВЫРУЧИЛИ!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2013, 11:02
Помогаю со студенческими работами здесь

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

Нахождение среднего арифметического
Дан целочисленный массив из 30 элементов.Элементы массива могут принимать значения от 0 до...

Нахождение среднего арифметического значения одномерного массива
Задача 1 написать программу которое находит среднего арифметического массива В размерностью 10...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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