Задача з молекулярної фізики (шкільний варіант)

УМОВА

Скільки літрів палива треба, щоб нагріти рідку воду в інтервалі певних температур, в алюмінієвому калориметрі масою 100 грам (без нього) (Паливо в алюмінієвому калориметрі масою 100 грам (без нього)

Розв’язування задачі в табличному процесорі Excel

D4=21/116000*C4*(B4-A4)

E4=21/161000*C4*(B4-A4)

F4=IF(C4<201;(21/161000*C4+89,7/32200)*(B4-A4);"Мензурка переповнена")

G4=IF(C4<201;(21/116000*C4+89,7/23200)*(B4-A4);"Мензурка переповнена")

Реалізація в Pascal ABC.NET

program mf;

Uses CRT;

label y;

var vr,t1,t2,vpsk,vps,vpbk,vpb:real;

begin

TextColor (02);

y: writeln (' УМОВА');

writeln ('Скiльки лiтрiв палива треба, щоб нагрiти рiдку воду');

writeln ('в iнтервалi певних температур, в алюмiнiєвому калориметрi');

writeln ('масою 100 грам (без нього). (Паливо в алюмiнiєвому ');

writeln ('калориметрi масою 100 грам (без нього))');

TextColor (03);

write ('Початкова Температура (в Цельсiях)= ');

readln(t1);

write ('Кiнцева Температура (в Цельсiях)= ');

readln(t2);

write ('Обєм (мл)=');

readln(vr);

vpsk:=(t2-t1)*(21*vr/116000+89.7/23200);

vps:= 21*(t2-t1)*vr/116000;

vpbk:=(t2-t1)*(21*vr/161000+89.7/32200);

vpb:= 21*(t2-t1)*vr/161000;

TextColor (02);

if vr < 201 then

begin

writeln('Обєм спирту з калориметром(мл)= ',vpsk);

writeln ('Обєм бензину з калориметром(мл)= ',vpbk);

writeln ('Обєм спирту(мл)= ',vps);

writeln ('Обєм бензину(мл)= ',vpb);

end

else

begin

writeln ('Обєм спирту(мл)= ',vps);

writeln ('Обєм бензину(мл)= ',vpb);

end;

readln;

clrscr;

goto y;

end.

Реалізація в C#

using System;

class Program

{

static void Main(string[] args)

{

Console.WriteLine(" УМОВА");

Console.WriteLine("Скiльки лiтрiв палива треба, щоб нагрiти рiдку воду в iнтервалi певних ");

Console.WriteLine("температур, в алюмiнiєвому калориметрi масою 100 грам (без нього)");

Console.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього)");

Console.Write("Початкова Температура (в Цельсiях) = ");

double t1 = Convert.ToDouble(Console.ReadLine());

Console.Write("Кiнцева Температура (в Цельсiях) = ");

double t2 = Convert.ToDouble(Console.ReadLine());

Console.Write("Об`єм (мл) = ");

double vr = Convert.ToDouble(Console.ReadLine());

double vpsk = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200);

double vps = 21 * (t2 - t1) * vr / 116000;

double vpbk = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200);

double vpb = 21 * (t2 - t1) * vr / 161000;

Console.WriteLine(" ");

if (vr < 201) {

Console.WriteLine("Об`єм спирту з калориметром(мл) = {0} ", vpsk);

Console.WriteLine("Об`єм бензину з калориметром(мл) = {0} ", vpbk);

Console.WriteLine("Об`єм спирту (мл) = {0} ", vps);

Console.WriteLine("Об`єм бензину (мл) = {0} ", vpb);

} else {

Console.WriteLine("Об`єм спирту (мл) = {0} ", vps);

Console.WriteLine("Об`єм бензину (мл) = {0} ", vpb);

}

Console.ReadKey();

}

Реалізація в C

#include <stdio.h>

int main(void)

{

float t1,t2,vr,vpb,vps,vpsk,vpbk;

printf (" “¬®ў \n‘Єi«мЄЁ «iваiў Ї «Ёў ваҐЎ , й®Ў ЈаiвЁ аi¤Єг ў®¤г \nў iвҐаў «i ЇҐўЁе вҐ¬ЇҐа вга, ў «о¬ii©Ґў®¬г \nЄ «®аЁ¬Ґваi ¬ б®о 100 Ја ¬ (ЎҐ§ м®Ј®).(Џ «Ёў® ў \n «о¬ii©Ґў®¬г Є «®аЁ¬Ґваi ¬ б®о 100 Ја ¬ (ЎҐ§ м®Ј®)) \n \n");

printf ( "Џ®з вЄ®ў вҐ¬ЇҐа вга (ў –Ґ«мбiпе) = ");

scanf("%f", &t1);

printf ( "ЉiжҐў вҐ¬ЇҐа вга (ў –Ґ«мбiпе) = ");

scanf("%f", &t2);

printf ( "ЋЎ©Ґ¬ (¬«) = ");

scanf("%f", &vr);

vpsk = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200);

vps = 21 * (t2 - t1) * vr / 116000;

vpbk = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200);

vpb = 21 * (t2 - t1) * vr / 161000;

if (vr < 201)

{printf ("\nЋЎ©Ґ¬ бЇЁавг (¬«) = %f", vps);

printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг (¬«) = %f", vpb);

printf ("\nЋЎ©Ґ¬ бЇЁавг § Є «®аЁ¬Ґва®¬ (¬«) = %f", vpsk);

printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг § Є «®аЁ¬Ґва®¬ (¬«) = %f", vpbk);}

else

{printf ("\nЋЎ©Ґ¬ бЇЁавг (¬«) = %f", vps);

printf ("\nЋЎ©Ґ¬ ЎҐ§Ёг (¬«) = %f", vpb);}

scanf("\n");

return 0;

}

Реалізація в Qbasic

l: CLS

PRINT " “¬®ў "

' УМОВА

PRINT "‘Єi«мЄЁ «iваiў Ї «Ёў ваҐЎ , й®Ў ЈаiвЁ аi¤Єг ў®¤г ў iвҐаў «i ЇҐўЁе вҐ¬ЇҐа вга, ў «о¬ii©Ґў®¬г Є «®аЁ¬Ґваi ¬ б®о 100 Ја ¬ (ЎҐ§ м®Ј®).(Џ «Ёў® ў «о¬ii©Ґў®¬г Є «®аЁ¬Ґваi ¬ б®о 100 Ја ¬ (ЎҐ§ м®Ј®))"

'Скiльки лiтрiв палива треба, щоб нагрiти рідку воду в iнтервалi певних температур, в алюмiнiєвому калориметрi масою 100 грам (без нього).(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього))

INPUT "Џ®з вЄ®ў вҐ¬ЇҐа вга (ў –Ґ«мбiпе) = ", t1

'Початкова Температура (в Цельсiях)

INPUT "ЉiжҐў вҐ¬ЇҐа вга (ў –Ґ«мбiпе) = ", t2

'Кiнцева Температура (в Цельсiях)

INPUT "ЋЎ©Ґ¬ (¬«) =", vr

'Обєм (мл)= '

vpsk = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200)

vps = 21 * (t2 - t1) * vr / 116000

vpbk = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200)

vpb = 21 * (t2 - t1) * vr / 161000

IF vr < 201 THEN

PRINT "ЋЎ©Ґ¬ бЇЁавг § Є «®аЁ¬Ґва®¬ (¬«) = "; vpsk

'Обєм спирту з калориметром(мл)

PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг § Є «®аЁ¬Ґва®¬ (¬«) = "; vpbk

'Обєм бензину з калориметром(мл)

PRINT "ЋЎ©Ґ¬ бЇЁавг (¬«) = "; vps

'Обєм спирту(мл)

PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг (¬«) = "; vpb

'Обєм бензину(мл)

ELSE

PRINT "ЋЎ©Ґ¬ бЇЁавг (¬«) = "; vps

'Обєм спирту(мл)

PRINT "ЋЎ©Ґ¬ ЎҐ§Ёг (¬«) = "; vpb

'Обєм бензину(мл)

END IF

INPUT z

GOTO l

Реалізація в Java

<title>Молекулярна фізика</title>

<b>Скiльки лiтрiв палива треба, щоб нагрiти рідку воду в iнтервалi певних температур .<br>

в алюмiнiєвому калориметрi масою 100 грам (без нього). <br>(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього)</b><br><br>

Початкова температура (в CI) = <input name="mfv_t1" type="text" value=" " size="4">

Кінцева температура (в CI) = <input name="mfv_t2" type="text" value=" " size="4">

Об'єм води = <input name="mfv_vr" type="text" value=" " size="4">

</form>

Опрацювання: <br> <span id="mfv_sol">Введіть коефіцієнти і нажміть "Порахувати"</span>

</div>

function mfv() {

var t1 = document.mfv.mfv_t1.value;

var t2 = document.mfv.mfv_t2.value;

var vr = document.mfv.mfv_vr.value;

var sol = document.getElementById("mfv_sol");

var vps = 21*(t2-t1)*vr/116000;

var vpb = 21*(t2-t1)*vr/161000;

var vpbk =(t2-t1)*(21*vr/161000+89.7/32200);

var vpsk =(t2-t1)*(21*vr/116000+89.7/23200);

if (vr < 201)

{string = "Об`єм спирту (мл) = " + vps +"<br>"+ "Об`єм бензину (мл) = " + vpb +"<br>"+ "Об`єм спирту з калориметром (мл) = " + vpsk +"<br>"+ "Об`єм бензину з калориметром (мл) = " + vpbk;}

else

{string = "Об`єм спирту (мл) = " + vps +"<br>"+ "Об`єм бензину (мл) = " + vpb;}

sol.innerHTML = string;

}

</script>

</body>

Реалізація в VB.NET

Class Program

Shared Sub Main()

Console.WriteLine(" УМОВА")

Console.WriteLine("Скiльки лiтрiв палива треба, щоб нагрiти рiдку воду в iнтервалi певних ")

Console.WriteLine("температур, в алюмiнiєвому калориметрi масою 100 грам (без нього)")

Console.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього)")

Console.Write("Початкова Температура (в Цельсiях) = ")

Dim t1 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Кiнцева Температура (в Цельсiях) = ")

Dim t2 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Об`єм (мл) = ")

Dim vr As Double = Convert.ToDouble(Console.ReadLine())

Dim vpsk As Double = (t2-t1)*(21*vr/116000+89.7/23200)

Dim vps As Double = 21 * (t2 - t1) * vr / 116000

Dim vpbk As Double = (t2-t1)*(21*vr/116000+89.7/32200)

Dim vpb As Double = 21 * (t2 - t1) * vr / 161000

Console.WriteLine(" ")

IF vr < 201 THEN

Console.WriteLine("Об`єм спирту з калориметром(мл) = {0} ", vpsk)

Console.WriteLine("Об`єм бензину з калориметром(мл) = {0} ", vpbk)

Console.WriteLine("Об`єм спирту (мл) = {0} ", vps)

Console.WriteLine("Об`єм бензину (мл) = {0} ", vpb)

ELSE

Console.WriteLine("Об`єм спирту (мл) = {0} ", vps)

Console.WriteLine("Об`єм бензину (мл) = {0} ", vpb)

END IF

Console.ReadKey()

End Sub

End Class

Реалізація в Dev-c++

#include <conio.h>

#include <iostream>

int main(void)

{

double t1,t2,vr,vpb,vps,vpsk,vpbk;

setlocale(LC_ALL, "");

std::cout << " УМОВА \nСкiльки лiтрiв палива треба, щоб нагрiти \nрiдку воду в iнтервалi певних температур, \nв алюмiнiєвому калориметрi масою 100 грам (без нього). \n(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього) \n\n";

std::cout << "Початкова Температура (в CI) = ";

std::cin >> t1;

std::cout << "Кiнцева Температура (в CI) = ";

std::cin >> t2;

std::cout << "Об'єм води (мл)= ";

std::cin >> vr;

vpsk=(t2-t1)*(21*vr/116000+89.7/23200);

vps= 21*(t2-t1)*vr/116000;

vpbk=(t2-t1)*(21*vr/161000+89.7/32200);

vpb= 21*(t2-t1)*vr/161000;

if (vr < 201)

{std::cout << "\nОб`єм спирту (мл) = " << vps << "\nОб`єм бензину (мл) = " << vpb << "\nОб`єм спирту з калориметром (мл) = " << vpsk << "\nОб`єм бензину з калориметром (мл) = " << vpbk<< std::endl;}

else

{std::cout << "\nОб`єм спирту (мл) = " << vps << "\nОб`єм бензину (мл) = " << vpb << std::endl;}

getch();

return 0;

}

Реалізація в Python

print (' УМОВА')

print ('Скiльки лiтрiв палива треба, щоб нагрiти рiдку воду в iнтервалi певних')

print ('температур, в алюмiнiєвому калориметрi масою 100 грам (без нього)')

print ('(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього)')

t1=float(input('Початкова Температура (в Цельсiях) = '))

t2=float(input('Кiнцева Температура (в Цельсiях) = '))

vr=float(input('Об`єм (мл) = '))

print ('')

vpsk = (t2-t1)*(21*vr/116000+89.7/23200)

vps = 21 * (t2 - t1) * vr / 116000

vpbk = (t2-t1)*(21*vr/161000+89.7/32200)

vpb = 21 * (t2 - t1) * vr / 161000

if vr>201:

print ('Об`єм спирту з калориметром (мл) = ', vpsk)

print ('Об`єм бензину з калориметром (мл) = ', vpbk)

print ('Об`єм спирту (мл) = ', vps)

print ('Об`єм бензину (мл) = ', vpb)

else:

print ('Об`єм спирту (мл) = ', vps)

print ('Об`єм бензину (мл) = ', vpb)

input()

Реалізація в Smallbasic

TextWindow.WriteLine(" УМОВА")

TextWindow.WriteLine("Скiльки лiтрiв палива треба, щоб нагрiти рiдку воду в iнтервалi певних ")

TextWindow.WriteLine("температур, в алюмiнiєвому калориметрi масою 100 грам (без нього)")

TextWindow.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам (без нього)")

TextWindow.Write("Початкова Температура (в Цельсiях) = ")

t1 = TextWindow.ReadNumber()

TextWindow.Write("Кiнцева Температура (в Цельсiях) = ")

t2 = TextWindow.ReadNumber()

TextWindow.Write("Об`єм (мл) = ")

vr = TextWindow.ReadNumber()

vpsk = Math.Round ((t2-t1)*(21*vr/116000+89.7/23200)*100000)/100000

vps = Math.Round (21 * (t2 - t1) * vr / 116000*100000)/100000

vpbk = Math.Round ((t2-t1)*(21*vr/161000+89.7/32200)*100000)/100000

vpb = Math.Round (21 * (t2 - t1) * vr / 161000*100000)/100000

TextWindow.WriteLine(" ")

IF vr < 201 THEN

TextWindow.Write("Об`єм спирту з калориметром(мл) = ")

TextWindow.WriteLine(vpsk)

TextWindow.Write("Об`єм бензину з калориметром(мл) = ")

TextWindow.WriteLine(vpbk)

TextWindow.Write("Об`єм спирту (мл) = ")

TextWindow.WriteLine(vps)

TextWindow.Write("Об`єм бензину (мл) = ")

TextWindow.WriteLine(vpb)

ELSE

TextWindow.Write("Об`єм спирту (мл) = ")

TextWindow.WriteLine(vps)

TextWindow.Write("Об`єм бензину (мл) = ")

TextWindow.WriteLine(vpb)

ENDIF

Графічні програми

Реалізація в VB6

Код

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 1 'Fixed Single

Caption = "Молекулярна фізика"

ClientHeight = 3375

ClientLeft = 45

ClientTop = 390

ClientWidth = 10380

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3375

ScaleWidth = 10380

StartUpPosition = 2 'CenterScreen

Begin VB.TextBox Text7

Height = 285

Left = 7080

TabIndex = 14

Top = 2160

Width = 2775

End

Begin VB.TextBox Text6

Height = 285

Left = 7080

TabIndex = 13

Top = 1440

Width = 2775

End

Begin VB.TextBox Text5

Height = 285

Left = 3600

TabIndex = 10

Top = 2160

Width = 2775

End

Begin VB.TextBox Text4

Height = 285

Left = 3600

TabIndex = 9

Top = 1440

Width = 2775

End

Begin VB.TextBox Text3

Height = 285

Left = 120

TabIndex = 4

Top = 2880

Width = 2895

End

Begin VB.TextBox Text2

Height = 285

Left = 120

TabIndex = 3

Top = 2160

Width = 2895

End

Begin VB.TextBox Text1

Height = 285

Left = 120

TabIndex = 2

Top = 1440

Width = 2895

End

Begin VB.CommandButton Command2

Caption = "СТАРТ"

Height = 375

Left = 3600

TabIndex = 1

Top = 2640

Width = 2775

End

Begin VB.CommandButton Command1

Caption = "ВИХІД"

Height = 375

Left = 7080

TabIndex = 0

Top = 2640

Width = 2775

End

Begin VB.Label Label9

Caption = "УМОВА"

Height = 255

Left = 4680

TabIndex = 17

Top = 240

Width = 855

End

Begin VB.Label Label8

Caption = "Об'єм бензину з калориметром(мл)="

Height = 255

Left = 7080

TabIndex = 16

Top = 1800

Width = 2895

End

Begin VB.Label Label7

Caption = "Об'єм бензину (мл)="

Height = 255

Left = 7080

TabIndex = 15

Top = 1080

Width = 3015

End

Begin VB.Label Label6

Caption = "Об'єм спирту з калориметром(мл)="

Height = 255

Left = 3600

TabIndex = 12

Top = 1800

Width = 2895

End

Begin VB.Label Label5

Caption = "Об'єм спирту (мл)="

Height = 255

Left = 3600

TabIndex = 11

Top = 1080

Width = 3015

End

Begin VB.Label Label4

Caption = "Об'єм (мл)="

Height = 255

Left = 120

TabIndex = 8

Top = 2520

Width = 2895

End

Begin VB.Label Label3

Caption = "Кiнцева Температура (в Цельсiях)="

Height = 255

Left = 120

TabIndex = 7

Top = 1800

Width = 2895

End

Begin VB.Label Label2

Caption = "Початкова Температура (в Цельсiях)="

Height = 255

Left = 120

TabIndex = 6

Top = 1080

Width = 3015

End

Begin VB.Label Label1

Caption = $"Form1.frx":0000

Height = 495

Left = 360

TabIndex = 5

Top = 480

Width = 9615

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()

End

End Sub

Private Sub Command2_Click()

t1 = Text1.Text

t2 = Text2.Text

vr = Text3.Text

vpsk = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200)

vps = 21 * (t2 - t1) * vr / 116000

vpbk = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200)

vpb = 21 * (t2 - t1) * vr / 161000

Text4.Text = vps

Text5.Text = vpsk

Text6.Text = vpb

Text7.Text = vpbk

End Sub

Реалізація в Pascal ABC.NET

Частина коду

procedure Form1.button2_Click(sender: Object; e: EventArgs);

begin

Close;

end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

var vr,t1,t2,vpsk,vps,vpbk,vpb:real;

begin

t1:=StrToFloat(TextBox1.Text);

t2:=StrToFloat(TextBox2.Text);

vr:=StrToFloat(TextBox3.Text);

vpsk:=(t2-t1)*(21*vr/116000+89.7/23200);

vps:= 21*(t2-t1)*vr/116000;

vpbk:=(t2-t1)*(21*vr/161000+89.7/32200);

vpb:= 21*(t2-t1)*vr/161000;

if vr < 201 then

begin

TextBox4.Text:= FloatToStr(vpsk);

TextBox6.Text:= FloatToStr(vpbk);

TextBox5.Text:= FloatToStr(vps);

TextBox7.Text:= FloatToStr(vpb);

end

else

begin

TextBox4.Text:= ('Не коректний обєм');

TextBox6.Text:= ('Не коректний обєм');

TextBox5.Text:= FloatToStr(vps);

TextBox7.Text:= FloatToStr(vpb);

end;

Реалізація в VB.NET

Kод

Public Class Form1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim t1 As Double = Convert.ToDouble(TextBox1.Text)

Dim t2 As Double = Convert.ToDouble(TextBox2.Text)

Dim vr As Double = Convert.ToDouble(TextBox3.Text)

Dim vpsk As Double = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200)

Dim vps As Double = 21 * (t2 - t1) * vr / 116000

Dim vpbk As Double = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200)

Dim vpb As Double = 21 * (t2 - t1) * vr / 161000

If vr < 201 Then

TextBox4.Text = Convert.ToString(vpsk)

TextBox6.Text = Convert.ToString(vpbk)

TextBox5.Text = Convert.ToString(vps)

TextBox7.Text = Convert.ToString(vpb)

Else

TextBox4.Text = "Не коректний об'єм"

TextBox6.Text = "Не коректний об'єм"

TextBox5.Text = Convert.ToString(vps)

TextBox7.Text = Convert.ToString(vpb)

End If

End Sub

End Class

Реалізація в C#

Частина коду

private void button2_Click(object sender, EventArgs e)

{

System.Environment.Exit(0);

}

private void button1_Click(object sender, EventArgs e)

{

double t1 = Convert.ToDouble(textBox1.Text);

double t2 = Convert.ToDouble(textBox2.Text);

double vr = Convert.ToDouble(textBox3.Text);

double vpsk = (t2 - t1) * (21 * vr / 116000 + 89.7 / 23200);

double vps = 21 * (t2 - t1) * vr / 116000;

double vpbk = (t2 - t1) * (21 * vr / 161000 + 89.7 / 32200);

double vpb = 21 * (t2 - t1) * vr / 161000;

if (vr < 201)

{

textBox5.Text = Convert.ToString(vpsk);

textBox7.Text = Convert.ToString(vpbk);

textBox4.Text = Convert.ToString(vps);

textBox6.Text = Convert.ToString(vpb);

}

else

{

textBox7.Text = "Не коректний об'єм";

textBox5.Text = "Не коректний об'єм";

textBox4.Text = Convert.ToString(vps);

textBox6.Text = Convert.ToString(vpb);

}

МАСИВНЕ ВИРІШЕННЯ ПИТАННЯ

В даній задачі в нас фіксовані параметри - V<201 ml i 0 C<t2-t1<100 C. Тому задачу можна вирішити через масив даних.

Дізнаємось об`єм палива при фіксованій різниці температур

Розв’язування задачі в табличному процесорі Excel

З С5 по С103 =$C$4

D4=21/116000*C4*B4

E4=21/161000*C4*B4

F4=IF(C4<201;(21/161000*C4+89,7/32200)*B4;"Мензурка переповнена")

G4=IF(C4<201;(21/116000*C4+89,7/23200)*B4;"Мензурка переповнена")

Реалізація в Pascal ABC.NET (бензин)

program Natmas;

var M: array[1..200] of real;

v,I: integer;

begin

writeln('Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C. ');

write('Oбєм води (V<200) = ');

readln(v);

for I:=1 to 100 do

begin

M[I]:=21*v*I/161000;

writeln('Обєм бензину = ', M[I],' мл. При рiзницi температур = ',i,' C i обємi води = ',v,' мл');

end;

readln;

end.

Реалізація в Pascal ABC.NET (спирт)

program Natmas;

var M: array[1..200] of real;

v,I: integer;

begin

writeln('Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C. ');

write('Oбєм води (V<200) = ');

readln(v);

for I:=1 to 100 do

begin

M[I]:=21*v*I/116000;

writeln('Обєм спирту = ', M[I],' мл. При рiзницi температур = ',i,' C i обємi води = ',v,' мл');

end;

readln;

end.

Реалізація в Pascal ABC.NET (спирт з калориметром)

program Natmas;

var M: array[1..200] of real;

v,I: integer;

begin

writeln('Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C. ');

writeln ('(Паливо в алюмiнiєвому калориметрi масою 100 грам) ');

write('Oбєм води (V<200) = ');

readln(v);

for I:=1 to 100 do

begin

M[I]:=I*(21*v/116000+89.7/23200);

writeln('Обєм спирту = ', M[I],' мл. При рiзницi температур = ',i,' C i обємi води = ',v,' мл');

end;

readln;

end.

Реалізація в Pascal ABC.NET (бензин з калориметром)

program Natmas;

var M: array[1..200] of real;

v,I: integer;

begin

writeln('Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C. ');

writeln ('(Паливо в алюмiнiєвому калориметрi масою 100 грам) ');

write('Oбєм води (V<200) = ');

readln(v);

for I:=1 to 100 do

begin

M[I]:=I*(21*v/161000+89.7/32200);

writeln('Обєм бензину = ', M[I],' мл. При рiзницi температур = ',i,' C i обємi води = ',v,' мл');

end;

readln;

end.

Реалізація в Dev-c++ (бензин)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double v,a[101];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.\n";

std::cout << "Oб`єм води (V<200) мл = ";

std::cin >> v;

for (int i = 1; i < 101; i++) {

a[i] =21*v*i/161000;

}

std::cout << "\n\n";

for (int i = 1; i < 101; i++) {

std::cout << "Об`єм бензину = " << a[i] <<" мл. При рiзницi температур = " << i << " C i об`ємi води = " << v << " мл " << std::endl;}

getch();

return 0;

}

Реалізація в Dev-c++ (спирт)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double v,a[101];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.\n";

std::cout << "Oб`єм води (0>V<200) мл = ";

std::cin >> v;

for (int i = 1; i < 101; i++) {

a[i] =21*v*i/116000;

}

std::cout << "\n\n";

for (int i = 1; i < 101; i++) {

std::cout << "Об`єм спирту = " << a[i] <<" мл. При рiзницi температур = " << i << " C i об`ємi води = " << v << " мл " << std::endl;}

getch();

return 0;

}

Реалізація в Dev-c++ (спирт з калориметром)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double v,a[101];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.\n";

std::cout << "(Паливо в алюмiнiєвому калориметрi масою 100 грам)\n";

std::cout << "Oб`єм води (V<200) мл = ";

std::cin >> v;

for (int i = 1; i < 101; i++) {

a[i] =i*(21*v/116000+89.7/23200);

}

std::cout << "\n\n";

for (int i = 1; i < 101; i++) {

std::cout << "Об`єм спирту = " << a[i] <<" мл. При рiзницi температур = " << i << " C i об`ємi води = " << v << " мл " << std::endl;}

getch();

return 0;

}

Реалізація в Dev-c++ (бензин з калориметром)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double v,a[101];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.\n";

std::cout << "(Паливо в алюмiнiєвому калориметрi масою 100 грам)\n";

std::cout << "Oб`єм води (V<200) мл = ";

std::cin >> v;

for (int i = 1; i < 101; i++) {

a[i] =i*(21*v/161000+89.7/32200);

}

std::cout << "\n\n";

for (int i = 1; i < 101; i++) {

std::cout << "Об`єм бензину = " << a[i] <<" мл. При рiзницi температур = " << i << " C i об`ємi води = " << v << " мл " << std::endl;}

getch();

return 0;

}

Реалізація в Smallbasic (бензин)

TextWindow.WriteLine("Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.")

TextWindow.Write("Oб`єм води (V<200) мл = ")

v=TextWindow.ReadNumber()

For i=1 To 100

a[i] =21*v*i/161000

EndFor

TextWindow.WriteLine(" ")

For i=1 To 100

TextWindow.WriteLine("Об`єм бензину = "+ a[i] + " мл. При рiзницi температур = "+ i+" C i об`ємi води = "+v+" мл ")

EndFor

Реалізація в Smallbasic (спирт)

TextWindow.WriteLine("Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.")

TextWindow.Write("Oб`єм води (V<200) мл = ")

v=TextWindow.ReadNumber()

For i=1 To 100

a[i] =21*v*i/116000

EndFor

TextWindow.WriteLine(" ")

For i=1 To 100

TextWindow.WriteLine("Об`єм спирту = "+ a[i] + " мл. При рiзницi температур = "+ i+" C i об`ємi води = "+v+" мл ")

EndFor

Реалізація в Smallbasic (спирт з калориметром)

TextWindow.WriteLine("Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.")

TextWindow.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам)")

TextWindow.Write("Oб`єм води (V<200) мл = ")

v=TextWindow.ReadNumber()

For i=1 To 100

a[i] =(21*v/116000+89.7/23200)*i

EndFor

TextWindow.WriteLine(" ")

For i=1 To 100

TextWindow.WriteLine("Об`єм спирту = "+ a[i] + " мл. При рiзницi температур = "+ i+" C i об`ємi води = "+v+" мл ")

EndFor

Реалізація в Smallbasic (бензин з калориметром)

TextWindow.WriteLine("Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксованa piзниця температур вiд 1 до 100 C.")

TextWindow.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам)")

TextWindow.Write("Oб`єм води (V<200) мл = ")

v=TextWindow.ReadNumber()

For i=1 To 100

a[i] =(21*v/161000+89.7/32200)*i

EndFor

TextWindow.WriteLine(" ")

For i=1 To 100

TextWindow.WriteLine("Об`єм бензину = "+ a[i] + " мл. При рiзницi температур = "+ i+" C i об`ємi води = "+v+" мл ")

EndFor

Дізнаємось об`єм палива при фіксованому об'ємі

Розв’язування задачі в табличному процесорі Excel

З B5 по B203 =$B$4

D4=21/116000*C4*B4

E4=21/161000*C4*B4

F4=IF(C4<201;(21/161000*C4+89,7/32200)*B4;"Мензурка переповнена")

G4=IF(C4<201;(21/116000*C4+89,7/23200)*B4;"Мензурка переповнена")

Реалізація в Pascal ABC.NET (бензин)

program Natmas;

var M: array[1..200] of real;

t,I: integer;

begin

writeln('Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл. ');

write('Рiзниця температур (0<t<100) = ');

readln(t);

for I:=1 to 200 do

begin

M[I]:=21*t*I/161000;

writeln('Обєм бензину = ', M[I],' мл. При обємi води = ',i,' мл i рiзницi температур = ',t,' С');

end;

readln;

end.

Реалізація в Pascal ABC.NET (спирт)

program Natmas;

var M: array[1..200] of real;

t,I: integer;

begin

writeln('Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл. ');

write('Рiзниця температур (0<t<100) = ');

readln(t);

for I:=1 to 200 do

begin

M[I]:=21*t*I/116000;

writeln('Обєм спирту = ', M[I],' мл. При обємi води = ',i,' мл i рiзницi температур = ',t,' С');

end;

readln;

end.

Реалізація в Pascal ABC.NET (спирт з калориметром)

program Natmas;

var M: array[1..200] of real;

t,I: integer;

begin

writeln('Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл. ');

writeln ('(Паливо в алюмiнiєвому калориметрi масою 100 грам) ');

write('Рiзниця температур (0<t<100) = ');

readln(t);

for I:=1 to 200 do

begin

M[I]:=t*(21*I/116000+89.7/23200);

writeln('Обєм спирту = ', M[I],' мл. При обємi води = ',i,' мл i рiзницi температур = ',t,' С');

end;

readln;

end.

Реалізація в Pascal ABC.NET (бензин з калориметром)

program Natmas;

var M: array[1..200] of real;

t,I: integer;

begin

writeln('Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур, ');

writeln('в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл. ');

writeln ('(Паливо в алюмiнiєвому калориметрi масою 100 грам) ');

write('Рiзниця температур (0<t<100) = ');

readln(t);

for I:=1 to 200 do

begin

M[I]:=t*(21*I/161000+89.7/32200);

writeln('Обєм бензину = ', M[I],' мл. При обємi води = ',i,' мл i рiзницi температур = ',t,' С');

end;

readln;

end.

Реалізація в Dev-c++ (бензин)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double t,a[201];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксований об`єм вiд 1 до 200 мл.\n";

std::cout << "Рiзниця температур (0<t<100) = ";

std::cin >> t;

for (int i = 1; i < 201; i++) {

a[i] =t*21*i/161000;

}

std::cout << "\n\n";

for (int i = 1; i < 201; i++) {

std::cout << "Об`єм бензину = " <<a[i]<<" мл. При об`ємi води = " << i << " мл i рiзницi температур = " << t << " C " << std::endl;}

getch();

return 0;

}

Реалізація в Dev-c++ (спирт)

#include <conio.h>

#include <iostream>

int main(void)

{

int i;

double t,a[201];

setlocale(LC_ALL, "");

std::cout << "Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,\n";

std::cout << "в алюмiнiєвому калориметрi масою 100 грам. Фiксований об`єм вiд 1 до 200 мл.\n";

std::cout << "Рiзниця температур (0<t<100) = ";

std::cin >> t;

for (int i = 1; i < 201; i++) {

a[i] =t*21*i/116000;

}

std::cout << "\n\n";

for (int i = 1; i < 201; i++) {

std::cout << "Об`єм спирту = " <<a[i]<<" мл. При об`ємi води = " << i << " мл i рiзницi температур = " << t << " C " << std::endl;}

getch();

return 0;

}

Реалізація в Smallbasic (спирт)

TextWindow.WriteLine("Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл.")

TextWindow.Write("Рiзниця температур (0<t<100) C = ")

t=TextWindow.ReadNumber()

For i=1 To 200

a[i] =21*t*i/116000

EndFor

TextWindow.WriteLine(" ")

For i=1 To 200

TextWindow.WriteLine("Об`єм спирту = "+ a[i] + " мл. При об`ємi води = "+ i+" мл i рiзницi температур = "+t+" C ")

EndFor

Реалізація в Smallbasic (бензин)

TextWindow.WriteLine("Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл.")

TextWindow.Write("Рiзниця температур (0<t<100) C = ")

t=TextWindow.ReadNumber()

For i=1 To 200

a[i] =21*t*i/161000

EndFor

TextWindow.WriteLine(" ")

For i=1 To 200

TextWindow.WriteLine("Об`єм бензину = "+ a[i] + " мл. При об`ємi води = "+ i+" мл i рiзницi температур = "+t+" C ")

EndFor

Реалізація в Smallbasic (бензин з калориметром)

TextWindow.WriteLine("Скiльки лiтрiв бензину треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл.")

TextWindow.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам)")

TextWindow.Write("Рiзниця температур (0<t<100) C = ")

t=TextWindow.ReadNumber()

For i=1 To 200

a[i] =(21*i/161000+89.7/32200)*t

EndFor

TextWindow.WriteLine(" ")

For i=1 To 200

TextWindow.WriteLine("Об`єм бензину = "+ a[i] + " мл. При об`ємi води = "+ i+" мл i рiзницi температур = "+t+" C ")

EndFor

Реалізація в Smallbasic (спирт з калориметром)

TextWindow.WriteLine("Скiльки лiтрiв спирту треба, щоб нагрiти рiдку воду в iнтервалi певних температур,")

TextWindow.WriteLine("в алюмiнiєвому калориметрi масою 100 грам. Фiксований обєм вiд 1 до 200 мл.")

TextWindow.WriteLine("(Паливо в алюмiнiєвому калориметрi масою 100 грам)")

TextWindow.Write("Рiзниця температур (0<t<100) C = ")

t=TextWindow.ReadNumber()

For i=1 To 200

a[i] =(21*i/116000+89.7/23200)*t

EndFor

TextWindow.WriteLine(" ")

For i=1 To 200

TextWindow.WriteLine("Об`єм спирту = "+ a[i] + " мл. При об`ємi води = "+ i+" мл i рiзницi температур = "+t+" C ")

EndFor