Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого
10-11 класс
|
сопротивления 15 Ом второго сопротивления 20 Ом)
var r1,r2,r:real;
begin
write('Введите значение R1: ');
readln(r1);
write('Введите значение R2: ');
readln(r2);
r:=r1*r2/(r1+r2);
writeln('Общее сопротивление при параллельном включении: ',r)
end.
var
R1, R2, R: real;
begin
R1 := 15; //readln(R1);
R2 := 20; //readln(R2);
R := 1/R1 + 1/R2;
R := 1 / R;
writeln('Общее сопротивление проводников (', R1, ' и ', R2, ' Ом): ', R:2:6, ' Ом');
end.
Другие вопросы из категории
о торта надо 200 г орехов, 400 г муки, 300 г сахара, 300 г масла и 3 яйца. На один шоколадный торт тратится 3 шоколадки, 2 яйца, 300 г муки, 200 г масла и 100 г сахара. Масло стоит 100 условных единиц за кг, сахар – 20 условных единиц за кг, яйца – 20 условных единиц за десяток, мука – 30 условных единиц за кг, орехи – 100 условных единиц за кг, яблоки – 2 условные единицы за штуку, шоколадки – 10 условных единиц за штуку. Построить электронную таблицу, из которой будет видно: сколько будет стоить каждый торт; сколько продуктов каждого вида повар должен купить и сколько это будет стоить; сколько всего денег он должен взять с собой, отправляясь за покупками
программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do
A[i]:= i + 1;
for i:=10 downto 0 do
A[i]:= A[10-i];
Чему будут равны элементы этого массива?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 11 10 9 8 7 6 5 4 3 2 1
3) 11 10 9 8 7 6 7 8 9 10 11
4) 1 2 3 4 5 6 5 4 3 2 1
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу