XGM Forum - Помогите с Паскалем

XGM Forum

Сайт - Статьи - Проекты - Ресурсы - Блоги

Форуме в режиме ТОЛЬКО ЧТЕНИЕ. Вы можете задать вопросы в Q/A на сайте, либо создать свой проект или ресурс.

Список пользователей

Оффтопка

		XGM Forum > Общение> Hard & Soft
Помогите с Паскалем

Ответ

Страница 4 из 9

4

Опыт: 7,912
Активность:

Еще,а если мне нужно чтобы при каждом вводе цифры у меня вычитало 3,то это делается через циклы?

если это в пределах одного запуска, то да. например,

while (y<>0) do
begin
readln(y);
y:=y-3;
end;

при введенной ненулевой цифре - вычитание, иначе выход

Старый

04.01.2009, 01:53

Профиль | Приват | Поиск | Цитата | IP: Записан

tysch_tysch Работаем offline Опыт: отключен	Код: `while 1<>0 do begin readln(x); y:=x-3; writeln(y); readln; end;`
04.01.2009, 01:56	#62 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Опыт: 23,781
Активность:

Артте А у тебя есть какие то проги?Кинь пожалуйста,те,что на паскале,просто взглянуть.

repeat
{действия}
until {условие}

Куда это всовывать?

Старый

04.01.2009, 01:57

Профиль | Приват | Поиск | Цитата | IP: Записан

tysch_tysch Работаем offline Опыт: отключен	выполняеться пока не прервёшь по контрл-брейку
04.01.2009, 01:57	#64 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Артте Open up your eyes offline Опыт: 23,423 Активность:	V1ctor1ous я хз, форматировал диски недавно..если не затер-кину) А то всовывать в сам код, вместо твоих действий
04.01.2009, 01:59	#65 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Scorched offline Опыт: 7,912 Активность:	ZlaYa1000, так лучше =) Код: `while true do begin readln(x); y:=x-3; writeln(y); end;` хотя в этом коде будет отниматься от введенного числа, а в моем несколькими постами выше - отниматься от отнятого до этого =)
04.01.2009, 01:59	#66 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

tysch_tysch Работаем offline Опыт: отключен	вик оставил только рассово-верный циклы
04.01.2009, 02:00	#67 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Артте Open up your eyes offline Опыт: 23,423 Активность:	А, ну самое главное-отличие while от until -в 1-м условие проверяется ДО выполнения цикла, а в UNTIL-после. Т.е. 1 раз until выполнится всегда
04.01.2009, 02:00	#68 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

V1ctor1ous offline Опыт: 23,781 Активность:	ZlaYa1000 Не работает твой способ! Или это я что то не так сделал?
04.01.2009, 02:00	#69 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Работаем

Опыт: отключен

Scorched ага на одно действие меньше) ну вообщем я уже 5 лет не открывал делфи и бп, имею права)

ZlaYa1000 добавил:
V1ctor1ous как всё запущено, ты вообще структуру программы представляешь? короче до и после цикла ещё бегин и енд с точкой соответственно

Старый

04.01.2009, 02:02

Профиль | Приват | Поиск | Цитата | IP: Записан

Артте Open up your eyes offline Опыт: 23,423 Активность:	то, что должно быть обязательно это один begin и один end -ограничивают часть программы с действиями
04.01.2009, 02:03	#71 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

tysch_tysch Работаем offline Опыт: отключен	Артте антил ко всему прочему условие выхода из цикла, а не входа. Тоесть как выполниться антил из цикла программа выйдет, в случае вайл программа выполняеться пока верно условие
04.01.2009, 02:05	#72 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

V1ctor1ous offline Опыт: 23,781 Активность:	ZlaYa1000 Запортачил мну прогу=) Scorched Неработает( Напиши плз весь код сразу Не пугайте меня всякими антилами и прочей хренью,дайте с этим разобратся..
04.01.2009, 02:05	#73 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Scorched offline Опыт: 7,912 Активность:	ZlaYa1000, у тебя из-за этой строки путаница, какой из ридлн дамми, а какой запрашивает число. выглядят они ведь одинаково для юзера =)
04.01.2009, 02:05	#74 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Fakov Viva la Fa offline Опыт: 102,058 Активность:	V1ctor1ous после var поставь begin, и в конце поставь еще один энд. И синтаксис там не забудь правильный. точка ставиться после самого последнего энда....
04.01.2009, 02:06	#75 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Open up your eyes

Опыт: 23,423
Активность:

Артте антил ко всему прочему условие выхода из цикла, а не входа. Тоесть как выполниться антил из цикла программа выйдет, в случае вайл программа выполняеться пока верно условие

Сообщение от Артте

repeat
{действия}
until {условие}

Только логически не ошибись. Оно выполняется пока условие не станет верным

Старый

04.01.2009, 02:06

Профиль | Приват | Поиск | Цитата | IP: Записан

Scorched offline Опыт: 7,912 Активность:	V1ctor1ous, что не работает? я просто фотки не вижу =) ибо инет через ж =) Артте, еще они отличаются, что while выполняется при true, а until при false =)
04.01.2009, 02:07	#77 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Fakov Viva la Fa offline Опыт: 102,058 Активность:	Блин, че вы его грузить начали этими циклами с условиями... он с параметрами вроде цикл осваивал... а вы ему тут еще набуртолили... прикидываю как у него мозг ща плавиться.... =/
04.01.2009, 02:08	#78 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Работаем

Опыт: отключен

var x,y: integer;
begin

 while 1<>0 do
  begin
    readln('Я не помню вид кавычек, ну если не эти то двойные, сюда кинешь текст типо х=',x);
    y:=x-3;
    writeln(y);
    readln;
  end;

end.

Старый

04.01.2009, 02:10

Профиль | Приват | Поиск | Цитата | IP: Записан

V1ctor1ous offline Опыт: 23,781 Активность:	Fakov О спс,заработало,но вот ньюанс,почему так? V1ctor1ous добавил: Кончайте мну внатуре всякой хренью бурлить я с этим едва разбираюсь..
04.01.2009, 02:11	#80 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Ответ

Страница 4 из 9

Опции темы	Поиск в этой теме
Версия для печати	Поиск в этой теме: Расширенный поиск

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы можете скачивать файлы BB-коды Вкл. Смайлики Вкл. [IMG] код Вкл. HTML код Выкл.

Быстрый переход

Часовой пояс GMT +3, время: 05:10.