Блог

Задачник Абрамова № 9

zadachnik-abramova

§ 1. Арифметика действительных чисел. Вычисление по формулам.

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

C:

01.#include <stdio.h>;
02. 
03.int main()
04.{
05.    float r1,r2,r3,r;
06.    printf("R1 = ");
07.    scanf("%f",&r1);
08.    printf("R2 = ");
09.    scanf("%f",&r2);
10.    printf("R3 = ");
11.    scanf("%f",&r3);
12.    r = 1/(1/r1+1/r2+1/r3);
13.    printf("R = %fn",r);
14.    return 0;
15.}

Pascal:

01.const pi = 3.14;
02.var r1,r2,r3,r:real;
03.begin
04.    write('R1 = ');
05.    read(r1);
06.    write('R2 = ');
07.    read(r2);
08.    write('R3 = ');
09.    read(r3);
10.    r := 1/(1/r1+1/r2+1/r3);
11.    write('R = ',r:4:2,#13#10);
12.end.

Комментариев нет

Ваш комментарий