|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.09.2009, 21:24 | #1 |
Регистрация: 11.07.2009
Сообщений: 4
|
задачка (textColor)
надо чтобы "x"(слева) красного, а "у"(справа) должны быть зеленного цвета. могу делать только с отриц и полож числами.
program trig; uses crt; var a, x, y:real; i:integer; begin clrScr; write('a='); readln(a); x:=-2; begin repeat y:=a*sin(2*x*a); if y>0 then textColor(4) else textColor(1); writeln('x=', x:4:1, ' y=', y:5:2); x:=x+0.2; until x>2; end; readln; end. |
24.09.2009, 21:33 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Код:
E-Mail: arigato.freelance@gmail.com
|
24.09.2009, 21:36 | #3 |
Регистрация: 11.07.2009
Сообщений: 4
|
надо чтобы столбцы сохранились, те слева столбец с "x" зеленый, а справа "y" красный
Последний раз редактировалось Bonifacy; 24.09.2009 в 21:40. |
24.09.2009, 21:43 | #4 | |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Цитата:
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
|
24.09.2009, 21:44 | #5 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Не понял вашего вопроса. Вы мой вариант пробовали?
E-Mail: arigato.freelance@gmail.com
|
24.09.2009, 21:56 | #6 |
Регистрация: 11.07.2009
Сообщений: 4
|
по версии Arigato получается на выходе:
x=12(red) y=14(green) x=10(red) y=16(green) итд а надо: x=12(red) y=14(green) x=10(red) y=16(green) итд получается два столбца |
24.09.2009, 21:59 | #7 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Кто Вам такое сказал? Write - пишет на той же строке, Writeln - на следующей, начиная с текущего положения каретки! Вы Write писали или судя по #7 везде Writeln?
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
24.09.2009, 22:21 | #8 |
Регистрация: 11.07.2009
Сообщений: 4
|
Спасибо Arigato и Alex Cones.
Только стартую в программировании. Последний раз редактировалось Bonifacy; 24.09.2009 в 22:59. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачка по С++ | Ready | Помощь студентам | 2 | 20.05.2009 01:19 |
Задачка на С!!! | Exorcist | Помощь студентам | 1 | 07.12.2008 21:15 |
Задачка на С++. | Mi$ter | Фриланс | 1 | 24.05.2008 09:27 |
Помогите функции gotoxy, textcolor, textbackground, в Visual C++ | Spike | Visual C++ | 3 | 25.12.2007 08:05 |