Как правильно объявить переменную ?

@os · Регистрация: 24.07.2011

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

Как правильно объявить переменную, периодически изменяющуюся от "о" до "1" следующим циклом : переменная три раза подряд принимает значение "0" потом один раз принимает значение "1" ... Цикл повторяется втечение всей программы.

@Zanexess · 24.07.2011, 22:58

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a,i:byte;
begin
Repeat
For i:=1 to 4 do
 begin
    If i=4 then a:=1
    else a:=0;
    Writeln (a);
 end;
Until 1 < 0;
end.

@os · 24.07.2011, 23:10 **[ТС]**

Здравствуйте Zanexess ! Большое спасибо !

@os · 26.07.2011, 16:12 **[ТС]**

А если две переменные : а ( непрерывно циклически принимает значения "0" или "1",цикл такой : =0,=1,=0,=1,=0 ...) , b ( непрерывно циклически принимает значения "1" или "0",цикл такой : =1,=0,=0,=1,=0,=0,=1 ...).

@Puporev · 26.07.2011, 16:21

Pascal
1
2
for i:=1 to n do
if i mod 3=1 then write(1) else write(0);

@os · 26.07.2011, 19:36 **[ТС]**

Высший пилотаж !!! Спасибо огромное.

@os · 01.08.2011, 12:37 **[ТС]**

Если я еще не злоупотебляю чужим временем, то нельзя ли помочь еще :

Сначала программа работает с двумя переменными(периодически принимающих значения 1-я: 0 или 1 ), 2-я : 1 или 0

1. for i:=1 to n do
2. if i mod 3=1 then write(1) else write(0);

В ходе выполнения циклический программы после каждого цикла программа должна вводить еще одну переменную ( по одной переменной после каждого цикла ), тоже периодических, принимающих значения, как 2-я переменная : от 1 до 0 , только в характеристику вводимой переменной :
mod 3 программа должна будет вместо 3 вставлять число, допустим m, которое она вычислит к концу цикла, m от цикла к циклу будет увеличиваться.
Дальше цикл программы повторяется,но уже с тремя переменными, следующий цикл уже с 4-мя ...
Как написать такую инструкцию программе ?
Спасибо.

Добавлено через 17 минут
Не по теме : вылетело окно : типа "имеется сообщение от Puporev,что открыть в новом окне .. нажмите..." Нажал ДА. И ни окна ни сообщения.

@taras atavin · 01.08.2011, 12:44

os, изменения к декларации не относятся, а надо смотреть диапазон значений. Значения числовые? Эйси, ищем числовой тип. Дробная часть есть? Если по смыслу переменой нет, то надо целый. Отрицательной переменная по смыслу может быть? Если нет, то ищем беззнаковый. С типом почти определились, теперь выбираем наименьшую разрядность из тех, которые поддерживают нужные значения. 0 и 1 поддерживаются всем типами, а наименьшую разрядность имеет byte.

@Puporev · 01.08.2011, 12:51

Не очень понял что нужно, но например так. С каждым новым циклом кратность на 1 больше.

Pascal
1
2
3
4
5
6
7
m:=3;
for i:=1 to k do
 begin
  for i:=1 to n do
  if i mod m=1 then write(1) else write(0);
  inc(m);//4,5,6,......
 end;

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

@os 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 15

	Как правильно объявить переменную ? 24.07.2011, 22:26. Показов 9604. Ответов 8 Метки нет (Все метки) Как правильно объявить переменную, периодически изменяющуюся от "о" до "1" следующим циклом : переменная три раза подряд принимает значение "0" потом один раз принимает значение "1" ... Цикл повторяется втечение всей программы. 0

@os 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 15
	24.07.2011, 23:10 [ТС]
	Здравствуйте Zanexess ! Большое спасибо ! 0

@os 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 15
	26.07.2011, 16:12 [ТС]
	А если две переменные : а ( непрерывно циклически принимает значения "0" или "1",цикл такой : =0,=1,=0,=1,=0 ...) , b ( непрерывно циклически принимает значения "1" или "0",цикл такой : =1,=0,=0,=1,=0,=0,=1 ...). 0

@os 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 15
	26.07.2011, 19:36 [ТС]
	Высший пилотаж !!! Спасибо огромное. 0

@os 0 / 0 / 0 Регистрация: 24.07.2011 Сообщений: 15
	01.08.2011, 12:37 [ТС]
	Если я еще не злоупотебляю чужим временем, то нельзя ли помочь еще : Сначала программа работает с двумя переменными(периодически принимающих значения 1-я: 0 или 1 ), 2-я : 1 или 0 1. for i:=1 to n do 2. if i mod 3=1 then write(1) else write(0); В ходе выполнения циклический программы после каждого цикла программа должна вводить еще одну переменную ( по одной переменной после каждого цикла ), тоже периодических, принимающих значения, как 2-я переменная : от 1 до 0 , только в характеристику вводимой переменной : mod 3 программа должна будет вместо 3 вставлять число, допустим m, которое она вычислит к концу цикла, m от цикла к циклу будет увеличиваться. Дальше цикл программы повторяется,но уже с тремя переменными, следующий цикл уже с 4-мя ... Как написать такую инструкцию программе ? Спасибо. Добавлено через 17 минут Не по теме : вылетело окно : типа "имеется сообщение от Puporev,что открыть в новом окне .. нажмите..." Нажал ДА. И ни окна ни сообщения. 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.08.2011, 12:44
	os, изменения к декларации не относятся, а надо смотреть диапазон значений. Значения числовые? Эйси, ищем числовой тип. Дробная часть есть? Если по смыслу переменой нет, то надо целый. Отрицательной переменная по смыслу может быть? Если нет, то ищем беззнаковый. С типом почти определились, теперь выбираем наименьшую разрядность из тех, которые поддерживают нужные значения. 0 и 1 поддерживаются всем типами, а наименьшую разрядность имеет byte. 0