|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Результаты опроса: Как прога? | |||
Хуже не куда!!! | 0 | 0% | |
Плохо | 0 | 0% | |
Хорошо | 1 | 50.00% | |
Отлично!!! | 1 | 50.00% | |
Голосовавшие: 2. Вы ещё не голосовали в этом опросе |
|
Опции темы | Поиск в этой теме |
13.04.2007, 22:30 | #1 |
Форумчанин
Регистрация: 04.04.2007
Сообщений: 131
|
Опять graph
Есть ли в граф режиме что-то типо как в crt read(a)?
Ну например в crt: readln(x); y:=x*4; writeln(y); а как такое зделать в graph? |
14.04.2007, 08:03 | #2 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
этого нет,можно только через readkey
|
14.04.2007, 09:10 | #3 |
Пользователь
Регистрация: 28.01.2007
Сообщений: 27
|
readln и так работает, а чтоб заработал writeln надо добавить строку:
DirectVideo:=false; |
15.04.2007, 12:32 | #4 |
Форумчанин
Регистрация: 04.04.2007
Сообщений: 131
|
graph
Zacenite progu
Код:
|
15.04.2007, 13:00 | #5 |
Брэйнфакер Про
Пользователь
Регистрация: 21.02.2007
Сообщений: 51
|
Для недавно - отлично. Тока названия переменным лучше давать осмысленные, особенно если выставляешь листинг.
|
15.04.2007, 13:24 | #6 |
Редкий тунеядец
Форумчанин
Регистрация: 29.10.2006
Сообщений: 595
|
Там у тебя маленький косячок в оформлении, а именно по оси Х в -10 на ноль знаходить - от -9! И ещё у тебя нет ни какого правильного способа выхода из проги! Это 2! А три - зачем ты два раза включил randomize!?
А так для начала не плохо! |
16.04.2007, 22:58 | #7 |
Пользователь Подтвердите свой е-майл
Регистрация: 28.03.2007
Сообщений: 52
|
readln(x);
y:=x*4; writeln(y); var ch:char; st:string; k:integer; begin repeat repeat {рисуем курсор} delay(1500); {у меня комп быстрый...} стираеем курсор} until keypressed; ch:=readkey; If ch<>#13 then begin st:=sr+ch; k:=k+1; outtextxy(k*12,150,ch); end; until ch=#13; потом переводим st в integer, умножаем, и выводим опять через outtext |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
И опять мэйлы.. Опять... | Pusher | PHP | 6 | 28.06.2008 03:08 |
Модуль Graph | ShnapS | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 28.05.2008 00:44 |
Graph + текст | Artificial | Помощь студентам | 4 | 24.05.2008 15:22 |
Модуль Graph | LEX.darnica | Помощь студентам | 13 | 27.11.2007 19:15 |