 циклический алгоритм в паскале |
Здравствуйте, гость ( Вход | Регистрация )
| иван 23 |
 8.12.2009, 11:19
Сообщение
#1
|
|
Школьник  Группа: Продвинутые Сообщений: 32 Регистрация: 6.12.2009 Город: новосибирск  |
дано: E(эпсилон)=115В, r=29,7 Ом. формула P=R*SQR(E/R+r) при R=10,20,30,40,50,100,150,200,250,300
надо с while и repeat, в этом и возникли затруднения |
   |
 
|
  |
Ответов
| Julia |
11.12.2009, 6:54
Сообщение
#2
|
|
Ассистент Группа: Julia Сообщений: 593 Регистрация: 23.2.2007 Город: Улан-Удэ Учебное заведение: БГУ Вы: преподаватель |
const
E=115; r=29.7; var RR,i:integer; P:real; begin i:=1; while i<=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); inc(i) end; readln; end. |
|
|
|
Сообщений в этой теме
иван 23 циклический алгоритм в паскале 8.12.2009, 11:19
граф Монте-Кристо Что конкретно не получается? Программа не запускае... 8.12.2009, 11:26 иван 23 вот мои наработки:
const
E=115;
r=29.7;
var
RR,i:i... 8.12.2009, 11:53 Julia Цикл с предусловием используется, когда известно у... 8.12.2009, 15:11 иван 23 вы бы могли помочь добавить эти строчки и изменить... 9.12.2009, 8:35 Julia Вот ваше тело цикла:
begin
if i<6 then RR:=i*10... 9.12.2009, 9:14 иван 23 на R можно наложить кажется. по-моему первый цикл ... 9.12.2009, 9:28 Julia R у вас константа 29,7. Для того чтобы на входе в ... 9.12.2009, 10:01 иван 23 покажите пожалуйста, ниче не получается у меня(( 9.12.2009, 10:44 Julia мда...условие-то элементарное i<=10 9.12.2009, 15:18 иван 23 Юленька, а как в общем виде программа выглядеть бу... 10.12.2009, 10:39
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 23:39 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru