Чорна дира
Знайти таку чорну диру де сила тяжіння буде така ж сама як і на Землі. Виразити в стандартних параметрах і параметрах Сонця. Використовувати нютонівську механіку.
Технічні дані:
Гравітаційна стала (Н*м*м/кг/кг) = 2/3*10^-10
Швидкість світла в квадраті (м*м/с/с) = 9*10^16
Маса Землі (кг) = 6*10^24
Радіус Землі (м) = 6378000
Маса Сонця (кг) = 1,98*10^30
Радіус Сонця (м) = 695202000
Сила тяжіння на Землі - F=GM(з)m/R(з)/R(з) , на дирі - F=m*c*c/(R(д)*2) Звідки R(д)=c*c*R(з)*R(з)/(2*GM(з)), a M(д)=c*c*R(д)/(2*G)
А10 - B10/2/A4*B4
В10 - B4/A4/2/A6*B6*B6
А12 - A10/A8
В12 - B10/B8
program bh;
Uses CRT;
var R, M, Rs, Ms: real;
begin
SetWindowTitle('Конкретна задача');
writeln ('Чорна дира');
writeln ('Знайти таку чорну диру де сила тяжiння');
writeln ('буде така ж сама як i на Землi. Виразити в');
writeln ('стандартних параметрах i параметрах Сонця.');
writeln ('Використовувати нютонiвську механiку.');
writeln ('');
writeln ('Технiчнi данi:');
writeln ('Гравiтацiйна стала (Н*м*м/кг/кг) = 2/3*10^-10');
writeln ('Швидкiсть свiтла в квадратi (м*м/с/с) = 9*10^16');
writeln ('Маса Землi (кг) = 6*10^24');
writeln ('Радiус Землi (м) = 6378000');
writeln ('Маса Сонця (кг) = 1,98*10^30');
writeln ('Радiус Сонця (м) = 695202000');
writeln ('');
TextColor (06);
R := 9*power(10,16)/(2*0.667*power(10,-10))/(6*power(10,24))*6378000*6378000;
M := 9*power(10,16)/(2*0.667*power(10,-10))*R;
Rs := R/695202000;
Ms := M/(1.98*power(10,30));
TextColor (03);
writeln ('Радiус дири (м) - ', R);
writeln ('Маса дири (кг) - ', M);
writeln ('Радiус дири (в Сонцях) - ', Rs);
writeln ('Маса дири (в Сонцях) - ', Ms);
readln;
end.
#include <stdio.h>
#include <math.h>
int main(void)
{
double R,M,Rs,Ms;
printf ("—®а ¤Ёа \n");
printf ("‡ ©вЁ в Єг з®аг ¤Ёаг ¤Ґ бЁ« вп¦iп\n");
printf ("Ўг¤Ґ в Є ¦ б ¬ пЄ i ‡Ґ¬«i. ‚Ёа §ЁвЁ\n");
printf ("ў бв ¤ авЁе Ї а ¬Ґва е i Ї а ¬Ґва е ‘®жп.\n");
printf ("‚ЁЄ®аЁбв®ўгў вЁ ов®iўбмЄг ¬Ґе iЄг.\n \n");
printf ("’Ґеiзi ¤ i \n");
printf ("ѓа ўiв жi© бв « (Ќ/ЄЈ/ЄЈ*¬*¬) = 2/3*10^-10\n");
printf ("ўЁ¤Єiбвм бўiв« ў Єў ¤а вi (¬*¬/б/б) = 9*10^16\n");
printf ("Њ б ‡Ґ¬«i (ЄЈ) = 6*10^24\n");
printf ("ђ ¤iгб ‡Ґ¬«i (¬) = 6378000\n");
printf ("Њ б ‘®жпя (ЄЈ) = 1,98*10^30\n");
printf ("ђ ¤iгб ‘®жпя (¬) = 695202000\n \n");
R = 9*pow(10,16)/(2*0.667*pow(10,-10))/(6*pow(10,24))*6378000*6378000;
M = 9*pow(10,16)/(2*0.667*pow(10,-10))*R;
Rs = R/695202000;
Ms = M/(1.98*pow(10,30));
printf ("\nђ ¤iгб ¤ЁаЁ (¬) = %f", R);
printf ("\nЊ б ¤ЁаЁ (ЄЈ) = %f", M);
printf ("\nђ ¤iгб ¤ЁаЁ (ў ‘®жпе) = %f", Rs);
printf ("\nЊ б ¤ЁаЁ (ў ‘®жпе) = %f", Ms);
scanf("\n");
return 0;
}
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Чорна дира");
Console.WriteLine("Знайти таку чорну диру де сила тяжiння");
Console.WriteLine("буде така ж сама як i на Землi. Виразити");
Console.WriteLine("в стандартних параметрах i параметрах Сонця.");
Console.WriteLine("Використовувати нютонiвську механiку.");
Console.WriteLine("");
Console.WriteLine("Технiчнi данi:");
Console.WriteLine("Гравiтацiйна стала (Н*м*м/кг/кг) = 2/3*10^-10");
Console.WriteLine("Швидкiсть свiтла в квадратi (м*м/с/с) = 9*10^16");
Console.WriteLine("Маса Землi (кг) = 6*10^24");
Console.WriteLine("Радiус Землi (м) = 6378000");
Console.WriteLine("Маса Сонця (кг) = 1.98*10^30");
Console.WriteLine("Радiус Сонця (м) = 695202000");
Console.WriteLine("");
double R = 9*Math.Pow(10,16)/(2*0.667*Math.Pow(10,-10))/(6*Math.Pow(10,24))*6378000*6378000;
double M = 9*Math.Pow(10,16)/(2*0.667*Math.Pow(10,-10))*R;
double Rs = R/695202000;
double Ms = M/(1.98*Math.Pow(10,30));
Console.WriteLine ("Радiус дири (м) = "+R);
Console.WriteLine ("Маса дири (кг) = "+M);
Console.WriteLine ("Радiус дири (в Сонцях) = "+Rs);
Console.Write ("Маса дири (в Сонцях) = "+Ms);
Console.ReadKey();
}
}
<title>Чорна дира</title>
<body><div align="center">
<b>Знайти таку чорну диру де сила тяжіння<br>
будуте така ж сама як і на Землі. Виразити в <br>
стандартних параметрах і параметрах Сонця.<br>
Використовувати нютонівську механіку.</b>
<br>
<br>
<form name="bh" action="javascript:bh()" id="1419313176">
Технічні дані:<br>
Гравітаційна стала (Н*м*м/кг/кг) = 2/3*10^-10<br>
Швидкість світла в квадраті (м*м/с/с) = 9*10^16<br>
Маса Землі (кг) = 6*10^24<br>
Радіус Землі (м) = 6378000<br>
Маса Сонця (кг) = 1,98*10^30<br>
Радіус Сонця (м) = 695202000<br>
<br>
<br>
<input type="submit" value="Порахувати">
</form>
Вдповідь:
<br>
<br>
<span id="bh">Hажміть "Порахувати"</span>
<script language="javascript">
function bh()
{
var sol = document.getElementById("bh");
var R = 9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000;
var M = 9*Math.pow(10,16)/(4/3*Math.pow(10,-10))*R;
var Rs = R/695202000;
var Ms = M/(1.98*Math.pow(10,30));
string ="Радіус дири (м) = "+R+"<br>"+"Маса дири (кг) = "+M+"<br>"+"Радіус дири (в Сонцях) = "+Rs+"<br>"+"Маса дири (в Сонцях) = "+Ms+"<br>";
sol.innerHTML = string;
}
</script>
<script language="javascript">
</script>
<title>Чорна дира</title>
<form name="geron" >
Знайти таку чорну диру де сила тяжіння<br>
будуте така ж сама як і на Землі. Виразити в <br>
стандартних параметрах і параметрах Сонця.<br>
Використовувати нютонівську механіку.<br>
<br>
<br>
Технічні дані:<br>
Гравітаційна стала (Н*м*м/кг/кг) = 2/3*10^-10<br>
Швидкість світла в квадраті (м*м/с/с) = 9*10^16<br>
Маса Землі (кг) = 6*10^24<br>
Радіус Землі (м) = 6378000<br>
Маса Сонця (кг) = 1,98*10^30<br>
Радіус Сонця (м) = 695202000<br>
<br>
<br>
<input type="reset" value="Reset">
<br>
<br>
<input type="button" value="R" onClick="document.geron.R.value=9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000">
Радіус дири (м) = <input type="textfield" name="R" value="">
<br>
<br>
<input type="button" value="M" onClick="document.geron.M.value=9*Math.pow(10,16)/(4/3*Math.pow(10,-10))*(9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000)">
Маса дири (кг) = <input type="textfield" name="M" value="">
<br>
<br>
<input type="button" value="Rs" onClick="document.geron.Rs.value=(9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000)/695202000">
Радіус дири (в Сонцях) = <input type="textfield" name="Rs" value="">
<br>
<br>
<input type="button" value="Ms" onClick="document.geron.Ms.value=(9*Math.pow(10,16)/(4/3*Math.pow(10,-10))*(9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000))/(1.98*Math.pow(10,30))">
Маса дири (в Сонцях) = <input type="textfield" name="Ms" value="">
</form>
Class Program
Shared Sub Main()
Console.WriteLine("Чорна дира")
Console.WriteLine("Знайти таку чорну диру де сила тяжiння")
Console.WriteLine("буде така ж сама як i на Землi. Виразити")
Console.WriteLine("в стандартних параметрах i параметрах Сонця.")
Console.WriteLine("Використовувати нютонiвську механiку.")
Console.WriteLine("")
Console.WriteLine("Технiчнi данi:")
Console.WriteLine("Гравiтацiйна стала (Н*м*м/кг/кг) = 2/3*10^-10")
Console.WriteLine("Швидкiсть свiтла в квадратi (м*м/с/с) = 9*10^16")
Console.WriteLine("Маса Землi (кг) = 6*10^24")
Console.WriteLine("Радiус Землi (м) = 6378000")
Console.WriteLine("Маса Сонця (кг) = 1.98*10^30")
Console.WriteLine("Радiус Сонця (м) = 695202000")
Console.WriteLine("")
Dim R as Double = 9*Math.pow(10,16)/(4/3*Math.pow(10,-10))/(6*Math.pow(10,24))*6378000*6378000
Dim M as Double = 9*Math.pow(10,16)/(4/3*Math.pow(10,-10))*R
Dim Rs as Double = R/695202000
Dim Ms as Double = M/(1.98*Math.pow(10,30))
Console.WriteLine (" ")
Console.WriteLine ("Радiус дири (м) = {0}",R)
Console.WriteLine ("Маса дири (кг) = {0}",M)
Console.WriteLine ("Радiус дири (в Сонцях) = {0}",Rs)
Console.Write ("Маса дири (в Сонцях) = {0}",Ms)
Console.ReadKey()
End Sub
End Class
#include <conio.h>
#include <iostream>
#include <cmath>
int main(void)
{
double R,M,Rs,Ms;
setlocale(LC_ALL, "");
std::cout << "Чорна дира\n Знайти таку чорну диру де сила тяжiння \n буде така ж сама як i на Землi. Виразити в \n стандартних параметрах i параметрах Сонця. \n Використовувати нютонiвську механiку.";
std::cout << "\n";
std::cout << "Технiчнi данi:\n Гравiтацiйна стала (Н*м*м/кг/кг) = 2/3*10^-10\n Швидкiсть свiтла в квадратi (м*м/с/с) = 9*10^16\n Маса Землi (кг) = 6*10^24\n Радiус Землi (м) = 6378000\n Маса Сонця (кг) = 1,98*10^30\n Радiус Сонця (м) = 695202000\n";
std::cout << "\n";
R = 9*pow(10,16)/(2*0.667*pow(10,-10))/(6*pow(10,24))*6378000*6378000;
M = 9*pow(10,16)/(2*0.667*pow(10,-10))*R;
Rs = R/695202000;
Ms = M/(1.98*pow(10,30));
std::cout << "Радiус дири (м) = " << R << "\nМаса дири (кг) = " << M << "\nРадiус дири (в Сонцях) = " << Rs << "\nМаса дири (в Сонцях) = " << Ms << std::endl;
getch();
return 0;
}
print ('Чорна дира')
print ('Знайти таку чорну диру де сила тяжіння')
print ('буде така ж сама як і на Землі. Виразити')
print ('в стандартних параметрах і параметрах Сонця.')
print ('Використовувати нютонівську механіку.')
print ('')
print ('Технічні дані:')
print ('Гравітаційна стала (Н*м*м/кг/кг) = 2/3*10^-10')
print ('Швидкість світла в квадраті (м*м/с/с) = 9*10^16')
print ('Маса Землі (кг) = 6*10^24')
print ('Радіус Землі (м) = 6378000')
print ('Маса Сонця (кг) = 1,98*10^30')
print ('Радіус Сонця (м) = 695202000')
print ('')
R = 9*10**16/(4/3*10**-10)/(6*10**24)*6378000*6378000
M = 9*10**16/(4/3*10**-10)*R
Rs = R/695202000
Ms = M/(1.98*10**30)
print ('Радіус дири (м) =',R)
print ('Маса дири (кг) =',M)
print ('Радіус дири (в Сонцях) =',Rs)
print ('Маса дири (в Сонцях) =',Ms)
input()
Розв’язування задачі в Visual BASIK 6
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Конкретна задача"
ClientHeight = 6765
ClientLeft = 45
ClientTop = 390
ClientWidth = 6015
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6765
ScaleWidth = 6015
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command6
Caption = "Вихід"
Height = 375
Left = 3120
TabIndex = 9
Top = 6240
Width = 2655
End
Begin VB.CommandButton Command5
Caption = "Очистка"
Height = 375
Index = 0
Left = 240
TabIndex = 8
Top = 6240
Width = 2655
End
Begin VB.CommandButton Command4
Caption = "Маса дири (в Сонцях)"
Height = 375
Left = 240
TabIndex = 7
Top = 5640
Width = 2055
End
Begin VB.TextBox Text1
Height = 300
Index = 3
Left = 2520
TabIndex = 6
Top = 5640
Width = 3255
End
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 2520
TabIndex = 5
Top = 5040
Width = 3255
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 2520
TabIndex = 4
Top = 4440
Width = 3255
End
Begin VB.TextBox Text1
Height = 300
Index = 0
Left = 2520
TabIndex = 3
Top = 3840
Width = 3255
End
Begin VB.CommandButton Command3
Caption = "Радіус дири (в Сонцях)"
Height = 375
Index = 0
Left = 240
TabIndex = 2
Top = 5040
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "Маса дири (кг)"
Height = 375
Index = 0
Left = 240
TabIndex = 1
Top = 4440
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "Радіус дири (м)"
Height = 375
Left = 240
TabIndex = 0
Top = 3840
Width = 2055
End
Begin VB.Image Image1
Height = 3450
Left = 240
Picture = "Form1.frx":0000
Top = 120
Width = 5490
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
R = 9 * 10 ^ 16 / (2 / 3 * 10 ^ -10) / (6 * 10 ^ 24) * 6378000 * 6378000
Text1(0).Text = R
End Sub
Private Sub Command2_Click(Index As Integer)
R = 9 * 10 ^ 16 / (2 / 3 * 10 ^ -10) / (6 * 10 ^ 24) * 6378000 * 6378000
M = 9 * 10 ^ 16 / (2 / 3 * 10 ^ -10) * R
Text1(1).Text = M
End Sub
Private Sub Command3_Click(Index As Integer)
R = 9 * 10 ^ 16 / (2 / 3 * 10 ^ -10) / (6 * 10 ^ 24) * 6378000 * 6378000
Rs = R / 695202000
Text1(2).Text = Rs
End Sub
Private Sub Command4_Click()
R = 9 * 10 ^ 16 / (4 / 3 * 10 ^ -10) / (6 * 10 ^ 24) * 6378000 * 6378000
M = 9 * 10 ^ 16 / (4/ 3 * 10 ^ -10) * R
Ms = M / (1.98 * 10 ^ 30)
Text1(3).Text = Ms
End Sub
Private Sub Command5_Click(Index As Integer)
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
End Sub
Private Sub Command6_Click()
End
End Sub
Розв’язування задачі в Pascal ABC.NET
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
Close;
end;
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
TextBox5.Text:='';
TextBox6.Text:='';
end;
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var R, M, Rs, Ms: real;
begin
R := 9*power(10,16)/(2*0.667*power(10,-10))/(6*power(10,24))*6378000*6378000;
M := 9*power(10,16)/(2*0.667*power(10,-10))*R;
Rs := R/695202000;
Ms := M/(1.98*power(10,30));
TextBox2.Text:=FloatToStr(M);
TextBox1.Text:=FloatToStr(R);
TextBox5.Text:=FloatToStr(Rs);
TextBox6.Text:=FloatToStr(Ms);
end;
Розв’язування задачі в Розв’язування задачі в VB.NET
Public Class Form1
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
End
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim R As Double = 9 * Math.Pow(10, 16) / (4 / 3 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000
TextBox1.Text = Convert.ToString(R)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim R As Double = 9 * Math.Pow(10, 16) / (4/ 3 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000
Dim M As Double = 9 * Math.Pow(10, 16) / (4 / 3 * Math.Pow(10, -10)) * R
TextBox2.Text = Convert.ToString(M)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim R As Double = 9 * Math.Pow(10, 16) / (4 / 3 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000
Dim Rs As Double = R / 695202000
TextBox3.Text = Convert.ToString(Rs)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim R As Double = 9 * Math.Pow(10, 16) / (4 / 3 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000
Dim M As Double = 9 * Math.Pow(10, 16) / (4/ 3 * Math.Pow(10, -10)) * R
Dim Ms As Double = M / (1.98 * Math.Pow(10, 30))
TextBox4.Text = Convert.ToString(Ms)
End Sub
End Class
Розв’язування задачі в С#
private void button1_Click(object sender, EventArgs e)
{
double R = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000;
textBox1.Text = Convert.ToString(R);
}
private void button6_Click(object sender, EventArgs e)
{
System.Environment.Exit(0);
}
private void button5_Click(object sender, EventArgs e)
{
textBox1.Text = "";
textBox2.Text = "";
textBox3.Text = "";
textBox4.Text = "";
}
private void button2_Click(object sender, EventArgs e)
{
double R = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000;
double M = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) * R;
textBox2.Text = Convert.ToString(M);
}
private void button3_Click(object sender, EventArgs e)
{
double R = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000;
double Rs = R / 695202000;
textBox3.Text = Convert.ToString(Rs);
}
private void button4_Click(object sender, EventArgs e)
{
double R = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) / (6 * Math.Pow(10, 24)) * 6378000 * 6378000;
double M = 9 * Math.Pow(10, 16) / (2*0.667 * Math.Pow(10, -10)) * R;
double Ms = M / (1.98 * Math.Pow(10, 30));
textBox4.Text = Convert.ToString(Ms);
}
Розв’язування задачі в Python
from tkinter import *
def click ():
R = 9*10**16/(4/3*10**-10)/(6*10**24)*6378000*6378000
M = 9*10**16/(4/3*10**-10)*R
Rs = R/695202000
Ms = M/(1.98*10**30)
entry1.insert(0, R)
entry2.insert(0, M)
entry3.insert(0, Rs)
entry4.insert(0, Ms)
def click1 ():
entry1.delete(0, END)
entry2.delete(0, END)
entry3.delete(0, END)
entry4.delete(0, END)
root=Tk()
root.title('Чорна дира')
root.geometry('290x390')
label = Label (text = 'Знайти таку чорну диру де сила тяжіння \n буде така ж сама як і на Землі. Виразити в \n стандартних параметрах і параметрах Сонця. \n Використовувати нютонівську механіку.')
label.pack(pady = 10)
labe2 = Label (text = 'Радіус дири (м)')
labe2.pack(pady = 1)
entry1 = Entry ()
entry1.pack (pady = 1)
labe3 = Label (text = 'Маса дири (кг) ')
labe3.pack(pady = 1)
entry2 = Entry ()
entry2.pack (pady = 1)
labe4 = Label (text = 'Радіус дири (в Сонцях) ')
labe4.pack(pady = 1)
entry3 = Entry ()
entry3.pack (pady = 1)
labe5 = Label (text = 'Маса дири (в Сонцях) ')
labe5.pack(pady = 1)
entry4 = Entry ()
entry4.pack (pady = 1)
button = Button (text='Старт', command=click)
button.pack (pady = 10)
button = Button (text='Очистка', command=click1)
button.pack (pady = 1)