Як у консольній програмі можна задати колір тексту, вивести текст у потрібному місці

можна

Кафе. Невгамовний натовп, дівчата на подіумах, офіціантки снують у різні боки. Бармен стоїть, розливає келихи, від відвідувачів немає відбою. Раптом у бар заходить кінь, підходить до бармена і просить віскі із содовою. Чоловік у шоці, але наливає склянку віскі, не відриваючи офігелий погляд від коня. Кінь йому у відповідь і каже: "Та че ти так дивишся, мужик, не боїсь, я до тебе в бар буду кожні вихідні приходити, мені віскі постійно, зрозумів. " А че бармен то треба. Він, звісно, ​​погодився, і одразу кинувся до директора міського цирку. Мовляв, приходьте до мене на вихідні в бар - за 500 доларів покажу коня, що говорить. Директор, звичайно, не повірив, але пішов дізнатися, що це за фігня там у барі у них. Приходить, значить, у суботу ввечері, і рівно о 8 годині заходить кінь, кричить бармену, щоб принесли замовлення і сідає за найближчий вільний столик. Директор сам не свій. Підбігає до коня, просить, благає, щоб він у нього в цирку виступав. Кінь йому: Л: -А платити скільки будете? Д: - згоден 1000 $ за вихід!! Л: - Тисяча, кажеш, це там, де площадка така кругла ?? Ще там звірі всякі, мої родичі по колу бігають? д: -Ага, він самий, це і є цирк. л: - Ну гаразд, я, в принципі, згоден, тільки не зрозумію ось ніяк, навіщо вам у тому цирку програмісти потрібні. %)

Колір тексту задається командою SetTextColor(Color), параметр Color - ціле число від 0 до 15.

Виведення тексту у вказаному місці екрана задається командою GotoXY(X, Y, Text).

  • X,Y-координати екрану
  • Text - змінна типу String

Ось текст модуля, що нагадує про наш улюблений ДОС (CRT-like):