Исходники и листинги ::: Pascal ::: Вычисление общего сопротивления цепи
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  { Вычисление сопротивления электрической цепи } var
  rl,r2: real; { величины сопротивлений цепи }
  г: real; { суммарное сопротивление }
  t: integer; { тип соединения элементов:
  1 — последовательное;
  2 — параллельное } begin
  writeln('Вычисление сопротивления электрической цепи1);
  writeln('Введите исходные данные: ') ;
  write('Величина первого сопротивления (Ом) —>');
  readln(rl);
  write('Величина второго сопротивления (Ом) ->');
  readln(r2);
  write('Тип соединения элементов (1-последовательное, ',
  '2-параллельное) —>'); readln(t);
  Write ('Общее сопротивление: ');
  if t=1 then write (r1+r2)
         else write (r1*r2/(r1+r2):7:3);
  write (' Ом');
  readln; end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Вычисление общего сопротивления цепи
Автор: Sanek_xXx
Город: Казань
 Дата: 02.02.2007  16:46
Комментариев: 2
Просмотров: 493
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Фрагмент программы, которая рассчитывает общее сопротивление цепи.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
JeRR* ::: комментарий от 18.03.2007 | 16:52
JeRR Неофит (ур.7)
Очки: 897
Город: Юрга
Тв. работ: 7
Рег: 13.01.2007 (2324)
На делфях бы.. консолью не удобно..
delphIN* ::: комментарий от 16.02.2007 | 18:26
delphIN Перспективный (ур.8)
Очки: 1552
Город: Братск
Тв. работ: 10
Рег: 17.01.2007 (2628)
Полезно! Но по-моему сильно легко!!!