// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию! const R=8.314; begin Writeln('Расчет параметров газового состояния'); Writeln('Введите обозначение величины, которую хотите найти:'); Writeln('p - давление, m- масса газа, V - объем массы газа,'); Writeln('T- термодинамическую температуру, иное - ОТКАЗ'); var c:=ReadlnChar; if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!') else begin var M1,p,V,m,T:real; M1:=ReadReal('Введите массу одного моля газа (кг/моль):'); case c of 'p','P':begin m:=ReadReal('Введите массу газа (кг):'); V:=ReadReal('Введите объем массы газа (м3):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па') end; 'm','M':begin p:=ReadReal('Введите давление газа p (Па):'); V:=ReadReal('Введите объем массы газа (м3):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг') end; 'V','v':begin p:=ReadReal('Введите давление газа p (Па):'); m:=ReadReal('Введите массу газа (кг):'); T:=ReadReal('Введите термодинамическую температуру (К);'); Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3') end; 'T','t':begin p:=ReadReal('Введите давление газа p (Па):'); m:=ReadReal('Введите массу газа (кг):'); V:=ReadReal('Введите объем массы газа (м3):'); Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K') end end end end.
Пример Расчет параметров газового состояния Введите обозначение величины, которую хотите найти: p - давление, m- масса газа, V - объем массы газа, T- термодинамическую температуру, иное - ОТКАЗ m Введите массу одного моля газа (кг/моль): 28e-3 Введите давление газа p (Па): 96360 Введите объем массы газа (м3): 2e-3 Введите термодинамическую температуру (К); 298 Масса газа m составляет 0.00218 кг
Var matrix: array[1..5,1..5] of integer; i, j: integer; sg:=0; sp:=0;begin writeln ('Введите 25 чисел: '); for i := 1 to 5 do for j := 1 to 5 do read (matrix[i,j]); for i := 1 to 5 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end; for i:=1 to 5 do begin for j:= 1 to 5 do if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do begin for j:=1to 5 do if (i+j)=6 then sp:=sp+matrix[i,j] end; sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend
// Внимание! Если программа не работает, обновите версию!
const
R=8.314;
begin
Writeln('Расчет параметров газового состояния');
Writeln('Введите обозначение величины, которую хотите найти:');
Writeln('p - давление, m- масса газа, V - объем массы газа,');
Writeln('T- термодинамическую температуру, иное - ОТКАЗ');
var c:=ReadlnChar;
if Pos(c,'pPmMVvTt')=0 then Writeln('Всего доброго!')
else begin
var M1,p,V,m,T:real;
M1:=ReadReal('Введите массу одного моля газа (кг/моль):');
case c of
'p','P':begin
m:=ReadReal('Введите массу газа (кг):');
V:=ReadReal('Введите объем массы газа (м3):');
T:=ReadReal('Введите термодинамическую температуру (К);');
Writeln('Давление p составляет ',m*R*T/M1/V:0:5,' Па')
end;
'm','M':begin
p:=ReadReal('Введите давление газа p (Па):');
V:=ReadReal('Введите объем массы газа (м3):');
T:=ReadReal('Введите термодинамическую температуру (К);');
Writeln('Масса газа m составляет ',p*V*M1/R/T:0:5,' кг')
end;
'V','v':begin
p:=ReadReal('Введите давление газа p (Па):');
m:=ReadReal('Введите массу газа (кг):');
T:=ReadReal('Введите термодинамическую температуру (К);');
Writeln('Объем массы газа V составляет ',m*R*T/M1/p:0:5,' м3')
end;
'T','t':begin
p:=ReadReal('Введите давление газа p (Па):');
m:=ReadReal('Введите массу газа (кг):');
V:=ReadReal('Введите объем массы газа (м3):');
Writeln('Термодинамическая температура составляет ',p*V*M1/m/R:0:1,' K')
end
end
end
end.
Пример
Расчет параметров газового состояния
Введите обозначение величины, которую хотите найти:
p - давление, m- масса газа, V - объем массы газа,
T- термодинамическую температуру, иное - ОТКАЗ
m
Введите массу одного моля газа (кг/моль): 28e-3
Введите давление газа p (Па): 96360
Введите объем массы газа (м3): 2e-3
Введите термодинамическую температуру (К); 298
Масса газа m составляет 0.00218 кг