Перевести код вычисления выражения с Pascal - Visual Basic .NET (64657)

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

                    Листинг программы
                
 
                        
                          
                    
var
a,b,c,m,Tp:real;
begin 
write('Введите m = ');
read(m);
c:=1.9;
b:=6.22;
a:=b-(sqr(c)/sqrt(c));
if m<=1.2 then Tp:=a-(ln(a)/m);
if m>=1.2 then Tp:=m/exp(-2*a);
write('Tp = ',Tp:4:2)
end.

Необходимо преобразовать в VB,Буду очень благодарен

Решение задачи: «Перевести код вычисления выражения с Pascal»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 Dim a, b, c, m, Tp As Single
 Console.Write("Введите m = ")
 m = Console.ReadLine()
 c = 1.9
 b = 6.22
 a = b - (c ^ 2 / Math.Sqrt(c))
 If m <= 1.2 Then Tp = a - (Math.Log(a) / m)
 If m >= 1.2 Then Tp = m / Math.Exp(-2 * a)
 Console.WriteLine("Tp= " & Format(Tp, "00.00"))
 Console.ReadLine()

Оцени полезность:

8 голосов , оценка 4.125 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы