Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты! Подскажите пожалуйста. Как из набора цифр разложить по 7 цифр в ряде а потом вывести на экран первые 4 цифры из этого ряда из 7 цифр. Общее колличество цифр не более 50.

Вопрос задал: Чикиркин И.В. (статус: Посетитель) Вопрос отправлен: 6 февраля 2008, 09:44 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, не знаю, правильно ли я понял после твоего ответа на форуме, но вот, смотри:

{записываются любая последовательность цифр двоичного кода желательно около 50.
 программа должна их разбить по 7 цифр и после выводит в окне программы
 первые 4 цифр из этих 7 цифр. Цифры выводятся хоть в строку хоть столбиком.}
 
program p1317;
 
{$APPTYPE CONSOLE}
 
var
  Values: array[0..49] of Byte; // Твой массив чисел
  Index: Integer;
 
begin
  // Заполнение массива случайными числами (вводить неохота)
  // и вывод массива на экран
  Randomize();
  for Index:= Low(Values) to High(Values) do
    begin
      Values[Index]:= Random(256);
 
      Write(Values[Index]: 5);
 
      if (Index mod 7 = 3)
        then Write(' | '); // Отделение (для наглядности)
 
      if (Index mod 7 = 6) // Перенос на след. строку
        then WriteLn;
    end;
 
  // Разбиение по 7 штук и вывод первых 4-х
  WriteLn(#13#10'----------------------------------------'#13#10);
 
  for Index:=Low(Values) to High(Values) do
    if (Index mod 7 < 4)
      then Write(Values[Index]: 5)
      else if (Index mod 7 = 4)
             then WriteLn;
 
  Write(#13#10#13#10'  Press any key (except "RESET"!!!)');
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 8 февраля 2008, 08:45

Мини-форум вопроса

min@y™ (статус: Доктор наук), 7 февраля 2008, 09:07 [#1]: Я уже начинаю привыкать, что сюда присылают вопросы, написанные, как бы это выразиться,... как на како-то другом языке, а не на русском. Ну прямо загадки какие-то, похожие по смыслу, разве что, на тесты Роршарха - типа, понимай в соответствии своему диагнозу. Ну объясни ты по-человечески, что тебе надо, а то передираешь из методички очередное задание к лабе, даже не задумываясь, как эксперты эту задачу поймут. Вот смотри: вопрос задан СУТКИ НАЗАД, а ответов = 0. Грамотно заданный вопрос - это 50% правильного решения (© не моё). Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чикиркин И.В. (статус: Посетитель), 8 февраля 2008, 08:06 [#2]: записываются любая последовательность цифр двоичного кода желательно около 50. программа должна их разбить по 7 цифр и после выводит в окне программы первые 4 цифр из этих 7 цифр. Цифры выводятся хоть в строку хоть столбиком. Так понятней. Зарание спасибо.

Тарасов Андрей (статус: Посетитель), 11 февраля 2008, 18:35 [#3]: >последовательность цифр двоичного кода желательно около 50 Это набор окол 50 произвольных бит?? если нет - то как понимать фразу "цифр двоичного кода" ?

Чикиркин И.В. (статус: Посетитель), 11 февраля 2008, 21:22 [#4]: 50 цифр состоящие из 1 и 0 в любой последовательности

min@y™ (статус: Доктор наук), 12 февраля 2008, 08:23 [#5]: Цитата: 50 цифр состоящие из 1 и 0 в любой последовательности Цифры не могут из чего-то состоять, цифры - это и есть 0 или 1 (для двоичного кода), 0...9 (для десятичного), 0...F (для 16-ричного). Приведи пример входных данных, а также их размерность и исходный тип (строка | 1 байт | 2 байта | 4 байта | что-то другое). Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чикиркин И.В. (статус: Посетитель), 12 февраля 2008, 10:09 [#6]: Просто записывается любая последовательность 1 и 0 произвольно какая на ум придёт в окошко и после нажатия кнопки программа выводит первые 4 цифры из 7-ми значного ряда и всё

min@y™ (статус: Доктор наук), 12 февраля 2008, 15:05 [#7]: program p1317b;   {$APPTYPE CONSOLE}   var Values: string; // Твой массив цифр (1 | 0) Index: Integer;   begin // Заполнение массива случайными цифрами 0 или 1 (вводить неохота) // и вывод массива на экран Randomize(); SetLength(Values, 50);   for Index:= 1 to Length(Values) do begin if (Random($100) < $80) then Values[Index]:= '0' else Values[Index]:= '1';   Write(Values[Index]: 3);   if ((Index - 1) mod 7 = 3) then Write(' |'); // Отделение (для наглядности)   if ((Index - 1) mod 7 = 6) // Перенос на след. строку then WriteLn; end;   // Разбиение по 7 штук и вывод первых 4-х WriteLn(#13#10'----------------------------------------'#13#10);   for Index:= 1 to Length(Values) do if ((Index - 1) mod 7 < 4) then Write(Values[Index]: 3) else if ((Index - 1) mod 7 = 4) then WriteLn;   Write(#13#10#13#10' Press any key (except "RESET"!!!)'); ReadLn; end. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.