Question

Составить блок-схему и написать программу на языке PascalABC.NET.

1.​ Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.

2.​ Определить время падения камня на поверхность земли с высоты h.

Answer 1

1. $frac1R=frac1{R_1}+frac1{R_2}+frac1{R_3}$, откуда 
$R=frac1{frac1{R_1}+frac1{R_2}+frac1{R_3}}$

Программа:

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. $h=frac{gt^2}2$, откуда
$t=sqrt{frac{2h}g}$

Программа:

const g = 9.8;
var h, t: real;
begin
writeln('Введите высоту h (в м): ');
read(h);
t := sqrt(2 * h / g);
writeln('Время падения ', t : 0 : 3, ' с');
end.

Блок-схемы в приложении:

Answer 2

Зачем люди усложняю жизнь этими ненужными картинками?

Answer 3

их рисовать дольше. чем программу писать

Answer 4

не могу не согласиться

Answer 5

нашел хороший сервис для составления блок-схем)

Answer 6

А поделиться в личку?