Опубликовано 03.01.2018 по предмету Информатика от Гость

Написать программу, которая вычисляет сопротивление электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно.

Ответ оставил Гость

Program soprotiv; {Название программы}
var r1, r2:real; {Задаем переменные}
c:byte;
begin {Начало программы}
write (Введите 1 сопротивление... ); {Вывод сообщения о вводе данных}
readln (r1); {Ввод данных с клавиатуры}
write (Введите 2 сопротивление... ); {Вывод сообщения о вводе данных}
readln (r2); {Ввод данных с клавиатуры}
write (Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...); {Вывод сообщения о вводе данных}
readln (c); {Ввод данных с клавиатуры}
if c=1 {условие}
then writeln (Сопротивление электрической цепи, соединенной параллельно=,(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении}
else writeln (Сопротивление электрической цепи, соединенной последовательно=,(r1+r2)); {Вывод значения, при последовательном соединении}
end. {Конец программы}