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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.11.2015, 17:44   #1
ENTERPRISE2015
Пользователь
 
Регистрация: 19.11.2015
Сообщений: 25
По умолчанию Помогите с простой задачкой

Вот она

"Задано натуральное число. Перевести его в двоичную систему счисления. При выводе результата на экран нуля обозначить желтым цветом"

Последний раз редактировалось Вадим Мошев; 19.11.2015 в 20:36.
ENTERPRISE2015 вне форума
Старый 19.11.2015, 19:58   #2
SASFM
Форумчанин
 
Аватар для SASFM
 
Регистрация: 26.03.2015
Сообщений: 191
По умолчанию Код в Pascal ABC NET

Код:
var a, ost: integer;
    s: string;
begin
  readln(a);
  repeat 
      ost:=a mod 2;            
      a:=a div 2;
      s:=inttostr(ost)+s;
   until a<1;
      writeln(s);
end.
Моя родина там, где мой компьютер
SASFM вне форума
Старый 19.11.2015, 20:23   #3
ENTERPRISE2015
Пользователь
 
Регистрация: 19.11.2015
Сообщений: 25
По умолчанию

Ну это более менее понятно а как сделать так чтобы нолики ставали другого цвета?
ENTERPRISE2015 вне форума
Старый 20.11.2015, 10:48   #4
SASFM
Форумчанин
 
Аватар для SASFM
 
Регистрация: 26.03.2015
Сообщений: 191
По умолчанию

Цитата:
Сообщение от ENTERPRISE2015 Посмотреть сообщение
Ну это более менее понятно а как сделать так чтобы нолики ставали другого цвета?
По моему только с помощью графических модули. Например GraphABC
Моя родина там, где мой компьютер
SASFM вне форума
Старый 20.11.2015, 13:56   #5
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

в турбо паскале можно так
Код:
uses crt;
...........
...........
if s[i] = 0 then 
 Begin
  textcolor(14);
  write(s[i]);
  textcolor(15);
 end
  else 
    write(s[i]);
.........
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума
Старый 20.11.2015, 14:24   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

угу.
в Pascal ABC тоже есть модуль CRT:
Код:
uses crt;
var a, ost, i: integer;
    s: string;
begin
  WriteLn('Enter your number: ');
  readln(a);
  repeat
      ost:=a mod 2;
      a:=a div 2;
      s:=inttostr(ost)+s;
   until a<1;

   TextBackGround(Black);
   ClrScr;
   for i:=1 to length(s) do begin
     if s[i] = '0'
       then  textcolor(Yellow)
       else  textcolor(White);
     write(s[i]);
   end
end.
Serge_Bliznykov вне форума
Старый 20.11.2015, 16:21   #7
ENTERPRISE2015
Пользователь
 
Регистрация: 19.11.2015
Сообщений: 25
По умолчанию

Всем огромное спасибо
ENTERPRISE2015 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите с задачкой LittleG Паскаль, Turbo Pascal, PascalABC.NET 0 12.12.2014 15:19
Туплю с простой задачкой, подскажите Tirex Общие вопросы C/C++ 1 01.07.2009 12:37
Помогите с задачкой.... Яков Repby Помощь студентам 0 17.06.2009 17:54
Помогите Пожалуйсто с простой Задачкой! (P.S Паскаль) kmax2 Помощь студентам 37 05.06.2009 00:08