[Кох]

Добрый день.
Задали написать программу в паскале, которая будет выводить двоичные коды по заданной длине.
То есть, если пользователь вводит с клавиатуры 1, программа выдаёт:
1
0
если два:
00
01
10
11
и т. д.
Помогите, пожалуйста.

@темы: Pascal

Comments

[Чайный наркоман]

Рекурсией, например, очень удобно делать.

[Кох]

Чайный наркоман, можете объяснить как?
Я попробовала посмотреть сейчас в гугле, но ничего в голове не прояснилось

[SpiritOK]

Кох, Вы на каком курсе? Методички по Паскалю выдавали?

[Кох]

SpiritOK, на первом. В школе база была не очень, поэтому сейчас тяжело.
Ничего не выдавали, но я скачала Фаронова "Turbo Pascal, наиболее полное руководство"

[SpiritOK]

Тогда у Вас основная проблема не в Паскале, а в алгоритмике как таковой. Для начала разбейте задачу на подзадачи: 1. принимать ввод с клавиатуры, 2. заставить комп считать в двоичной системе от заданного числа до упора, 3. Писать что-то на экран. 1 и 3 элементарны, хэлп по командам readln и println Вам в помощь. С 2 придётся повозиться.
Выкладывание готовых решений Вам в таком состоянии ничем не поможет. Препода при сдаче лабораторной очень любят посмотреть в исходники, что-нибудь наклацать и попросить вернуть, как было.

Основы двоичного счисления знаете?

[Кох]

заставить комп считать в двоичной системе от заданного числа до упора
проблема в том, что мы задаём длину, а не число, которое нужно перевести в двоичный код.
Основы двоичного счисления знаете?
Да, на лабах мы писали программы, в которых вводили число, затем делили его на два и остатки от деления выводили на экран справа налево, при этом через div опять брали оставшуюся целую часть и по новой. Можно ещё сдвигом...
А вот как без чисел? Тут просто нечего делить на два

Вот то, что я пыталась сделать:

1. принимать ввод с клавиатуры

uses Crt;
const K=255; {не знаю, нужно ли это, но допустим, что максимальное число юзер введёт 8, а 8 единиц это 255 в двоичном }
var
N,i,x: byte; { тут N длина }

A: array[1..K] of byte; { попробовала через массив, чтобы в нём было сразу 255 }
BEGIN
clrscr;
for i:=1 to K do
A[i]:=i;

write('vvedite dlinu koda (ne bolshe 8) '); readln(N); { препод сказал, что проверку вводимого делать не нужно, потому что это задание по дискретной математике, а не программированию. Чтобы не усложнять код }
clrscr;
write('N=',N);
x:=22;

дальше думала так, но оно не работает. на строке возведения в степень показывает ошибку. я так поняла, тут нужен специальный код для этого. нашла в интернете, что делают через exp и Ln, но у меня оно тоже не работает, пишет, про несовместимомть типов
for i:=1 to 2^N do
begin
gotoxy(x-i,4);
write(A[i] mod 2); A[i]:=A[i] div 2;
end;
Readkey;
END.

[[revolver]]

Кох, почитай про Код Грэя.
Мне его школьники в 10ом классе писали

[Кох]

Читала. Препод уже скинул учебник Новикова, где код Грея выводился по длине. Только сказал сделать похожее, но другим способом. А мы на программировании даже такое не изучали, как я придумаю другой?( В интернете то, что в учебнике, или по числу, а не длине.

вот и попробовала через массив, как там, но в их массиве только 0 и 1, тоже задействована степань... но некоторые слова я даже понять не могу и додумываю свое(

[Кох]

Ладно, уже не актуально. Программу сдала немного в другом виде, но её засчитали.