циклический алгоритм в паскале

@иван 23 · Регистрация: 06.12.2009

Студворк — интернет-сервис помощи студентам

дано: E(эпсилон)=115В, r=29,7 Ом. формула P=R*SQR(E/R+r) при R=10,20,30,40,50,100,150,200,250,300 Oм. не хочу наглеть, но очень нужна ваша помощь по этой задаче. спасибо заранее.

@кот Бегемот · 06.12.2009, 18:12

Сообщение от иван 23

дано: E(эпсилон)=115В, r=29,7 Ом. формула P=R*SQR(E/R+r) при R=10,20,30,40,50,100,150,200,250,300 Oм. не хочу наглеть, но очень нужна ваша помощь по этой задаче. спасибо заранее.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
E=115;
r=29.7;
var
RR,i:integer;
P:real;
begin
for i:=1 to 10 do
begin
if i<6 then RR:=i*10 else RR:=(i-5)*50+50;
P:=RR*SQR(E/RR+r);
write(P:10:2);
end;
readln;
end.

@иван 23 · 08.12.2009, 14:00 **[ТС]**

а надо еще через while и repeat

@кот Бегемот · 08.12.2009, 17:20

А сразу сказать нельзя было? я не экстрасенс, мысли читать не могу.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@иван 23 1 / 1 / 1 Регистрация: 06.12.2009 Сообщений: 25

	циклический алгоритм в паскале 06.12.2009, 17:23. Показов 2432. Ответов 3 Метки нет (Все метки) дано: E(эпсилон)=115В, r=29,7 Ом. формула P=R*SQR(E/R+r) при R=10,20,30,40,50,100,150,200,250,300 Oм. не хочу наглеть, но очень нужна ваша помощь по этой задаче. спасибо заранее. 0

@иван 23 1 / 1 / 1 Регистрация: 06.12.2009 Сообщений: 25
	08.12.2009, 14:00 [ТС]
	а надо еще через while и repeat 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	08.12.2009, 17:20
	А сразу сказать нельзя было? я не экстрасенс, мысли читать не могу. 0