Составить блок-схему и написать программу на языке PascalABC.NET. 1. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения. 2. Определить время падения камня на поверхность земли с высоты h.
Составить блок-схему и написать программу на языке PascalABC.NET.
1. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.
2. Определить время падения камня на поверхность земли с высоты h.
Гость
Ответ(ы) на вопрос:
Гость1. [latex]\frac1R=\frac1{R_1}+\frac1{R_2}+\frac1{R_3}[/latex], откуда
[latex]R=\frac1{\frac1{R_1}+\frac1{R_2}+\frac1{R_3}}[/latex]
Программа:
var R1, R2, R3, R: real;
begin
write('Введите сопротивления R1, R2, R3 (в Ом): ');
read(R1, R2, R3);
R := 1 / (1 / R1 + 1 / R2 + 1 / R3);
writeln('Полное сопротивление цепи ', R:0:3, ' Ом');
end.
2. [latex]h=\frac{gt^2}2[/latex], откуда
[latex]t=\sqrt{\frac{2h}g}[/latex]
Программа:
const g = 9.8;
var h, t: real;
begin
writeln('Введите высоту h (в м): ');
read(h);
t := sqrt(2 * h / g);
writeln('Время падения ', t : 0 : 3, ' с');
end.
Блок-схемы в приложении:
Не нашли ответ?
Похожие вопросы