Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.10.2009, 19:55   #1
Pirimovs
 
Регистрация: 01.06.2008
Сообщений: 8
По умолчанию Циклические действия.

нужно написать программу, которое циклически запрашивает значение радиуса и подсчитывает длинну окужности пока не будет введён R<0
Pirimovs вне форума Ответить с цитированием
Старый 12.10.2009, 19:59   #2
Sparky
Участник клуба
 
Аватар для Sparky
 
Регистрация: 15.05.2009
Сообщений: 1,222
По умолчанию

read(r);
while r>=0 do
begin
//подсет длины (не помню формулу)
writeln('длина',переменная в которую занесена длина);
end
Единственное, что ограничивает полет мысли программиста-компилятор

Последний раз редактировалось Sparky; 12.10.2009 в 20:06.
Sparky вне форума Ответить с цитированием
Старый 12.10.2009, 20:03   #3
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Код:
program Project2;
var
r,c:real;
begin
  r:=1;
  while r>=0 do
  begin
     readln(r);
     c:=2*pi*r;
     writeln(c);
  end;
end.
pushl $0x18E3DF6B
call ICQ

Последний раз редактировалось russian-stalker; 12.10.2009 в 20:13.
russian-stalker вне форума Ответить с цитированием
Старый 12.10.2009, 20:05   #4
Sparky
Участник клуба
 
Аватар для Sparky
 
Регистрация: 15.05.2009
Сообщений: 1,222
По умолчанию

сори ступила
Единственное, что ограничивает полет мысли программиста-компилятор

Последний раз редактировалось Sparky; 12.10.2009 в 20:10.
Sparky вне форума Ответить с цитированием
Старый 12.10.2009, 20:07   #5
Pirimovs
 
Регистрация: 01.06.2008
Сообщений: 8
По умолчанию

а объевлять переменные как что?
Pirimovs вне форума Ответить с цитированием
Старый 12.10.2009, 20:07   #6
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Оно и не будет равно 1.
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума Ответить с цитированием
Старый 12.10.2009, 20:08   #7
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

Код:
var r:real;
begin
while r>=0 do begin 
readln(r);if r>0 then writeln(2*pi*r);end;
end.
russian-stalker, Ваш вариант неробочий.
По поводу переменных - или присваивать классические 0, или надеятся, что в компиляторе проиницализированны по умолчанию.

Последний раз редактировалось Stilet; 13.10.2009 в 14:44.
LeBron вне форума Ответить с цитированием
Старый 12.10.2009, 20:11   #8
Sparky
Участник клуба
 
Аватар для Sparky
 
Регистрация: 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.
Единственное, что ограничивает полет мысли программиста-компилятор
Sparky вне форума Ответить с цитированием
Старый 12.10.2009, 20:11   #9
Pirimovs
 
Регистрация: 01.06.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от LeBron Посмотреть сообщение
russian-stalker, Ваш вариант неробочий.
По поводу переменных - или присваивать классические 0, или надеятся, что в компиляторе проиницализированны по умолчанию.
но нада же присвоить значение pi как 3,14 сотых так? pi:real; ?
Pirimovs вне форума Ответить с цитированием
Старый 12.10.2009, 20:11   #10
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Не люблю я эти записи в одну строчку :-)
И чем же мой вариант не рабочий? PI - нормально воспримится компилятором
pushl $0x18E3DF6B
call ICQ

Последний раз редактировалось russian-stalker; 12.10.2009 в 20:13.
russian-stalker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
циклические процессы 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