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

@Настенька27 · Регистрация: 16.01.2013

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

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

Написать программу нахождения среднего арифметического и среднего геометрического двух чисел по формулам
sa:=(a+b)/2;
sq:=sqrt(a*b);

@CodeR · 16.01.2013, 11:00

1)

Pascal

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

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 секунд
Читайте правила одна тема=один вопрос!Впредь не нарушайте, а изучайте!

@Настенька27 · 16.01.2013, 11:02 **[ТС]**

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

1)

Pascal

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

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 секунд
Читайте правила одна тема=один вопрос!Впредь не нарушайте, а изучайте!

Спасибо огромное!ВЫРУЧИЛИ!

@Настенька27 0 / 0 / 1 Регистрация: 16.01.2013 Сообщений: 10
		1
	Нахождение среднего арифметического и среднего геометрического двух чисел 16.01.2013, 10:30. Показов 13729. Ответов 2 Метки нет (Все метки) Напишите программу для вычисления значения V по формуле V = V0 ( 3/2  - 1/2 (ABS()) , V0 = 2,  - ввести с клавиатуры; V - вывести на экран Написать программу нахождения среднего арифметического и среднего геометрического двух чисел по формулам sa:=(a+b)/2; sq:=sqrt(a*b); 0

	16.01.2013, 11:02

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

Решение