|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.10.2009, 19:55 | #1 |
Регистрация: 01.06.2008
Сообщений: 8
|
Циклические действия.
нужно написать программу, которое циклически запрашивает значение радиуса и подсчитывает длинну окужности пока не будет введён R<0
|
12.10.2009, 19:59 | #2 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
read(r);
while r>=0 do begin //подсет длины (не помню формулу) writeln('длина',переменная в которую занесена длина); end
Единственное, что ограничивает полет мысли программиста-компилятор
Последний раз редактировалось Sparky; 12.10.2009 в 20:06. |
12.10.2009, 20:03 | #3 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Код:
pushl $0x18E3DF6B
call ICQ Последний раз редактировалось russian-stalker; 12.10.2009 в 20:13. |
12.10.2009, 20:05 | #4 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
сори ступила
Единственное, что ограничивает полет мысли программиста-компилятор
Последний раз редактировалось Sparky; 12.10.2009 в 20:10. |
12.10.2009, 20:07 | #5 |
Регистрация: 01.06.2008
Сообщений: 8
|
а объевлять переменные как что?
|
12.10.2009, 20:07 | #6 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Оно и не будет равно 1.
pushl $0x18E3DF6B
call ICQ |
12.10.2009, 20:08 | #7 |
Форумчанин
Регистрация: 10.10.2009
Сообщений: 680
|
Код:
По поводу переменных - или присваивать классические 0, или надеятся, что в компиляторе проиницализированны по умолчанию. Последний раз редактировалось Stilet; 13.10.2009 в 14:44. |
12.10.2009, 20:11 | #8 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
var
r,c:real; begin r:=0; while r>=0 do begin readln(r); c:=2*3,14*r; writeln(c:2:2); end; end.
Единственное, что ограничивает полет мысли программиста-компилятор
|
12.10.2009, 20:11 | #9 |
Регистрация: 01.06.2008
Сообщений: 8
|
|
12.10.2009, 20:11 | #10 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Не люблю я эти записи в одну строчку :-)
И чем же мой вариант не рабочий? PI - нормально воспримится компилятором
pushl $0x18E3DF6B
call ICQ Последний раз редактировалось russian-stalker; 12.10.2009 в 20:13. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
циклические процессы | felmor | Помощь студентам | 4 | 05.02.2009 17:24 |
ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ | юра 3 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 25.12.2008 16:25 |
Циклические программы | HECTOR.A. | Помощь студентам | 2 | 25.11.2008 10:19 |