Изобразить бегущую строку

@Зайка43 · Регистрация: 31.05.2011

Студворк — интернет-сервис помощи студентам

Написать программу которая изображает ''бегущую строку' Графически'!!!

@Puporev · 14.06.2011, 17:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Uses crt,graph;
Procedure BegStr(y:integer;str:string;d:integer);
Var
  s:string;
  a, k:integer;
Begin
  str:='   '+str;
  k:=80-length(str);
  for a:=1 to k-1 do
  str:=str+' ';
  repeat
    delete(str,1,1);
    outtextXY(1,y,str);
    delay(d);
    cleardevice;
    s:=copy(str,1,1);
    str:=str+s;
  until keypressed;
end;
var x,y:integer;
begin
initgraph(x,y,'');
setbkcolor(15);
setcolor(12);
settextstyle(0,0,2);
BegStr(getmaxY div 2,'1234567891011121314151617181920212223242526',100);
end.

@Зайка43 · 14.06.2011, 19:20 **[ТС]**

программа не работает выдает ошибку Error 15: File not found (GRAPH. TPU).

@Puporev · 14.06.2011, 19:33

Это не программа такая, это Вы такие все...
Этот файл в папке с программой должен находиться..

go · 15.06.2011, 00:53

Сообщение от Зайка43

программа не работает выдает ошибку Error 15: File not found (GRAPH. TPU).

укажите к нему путь

Сообщение от Puporev

Это не программа такая, это Вы такие все...

зачем так резко, все бывает, может у него паскаль такой

@Puporev · 15.06.2011, 06:05

Сообщение от go

укажите к нему путь

Да что Вы? Это к bgi путь указывают, а модуль до компиляции должен быть в папке с программой.

Сообщение от go

зачем так резко, все бывает, может у него паскаль такой

Сейчас уже июнь, а не сентябрь прошлого года. И, если человек год проучился и у него даже Graph не на месте, то он он конечно очень интенсивно изучал Паскаль.

go · 15.06.2011, 10:12

Сообщение от Puporev

Да что Вы?

Не преувеличивайте.
Зайка43, Зайдите в опции, каталоги и укажите в разделе подключаемые модулю, путь к вашему модулю

Сообщение от Puporev

Сейчас уже июнь, а не сентябрь прошлого года.

Скажу честно, для меня модуль graph мало актуален
а если он изучает паскаль с азов, то это не удивительно

@VladimirD · 28.04.2017, 07:39

test.pas(1,10) Fatal: Can't find unit graph used by Program

@Puporev · 28.04.2017, 08:22

Так не нужно пытаться запускать программу с графикой, написанную в Турбо Паскаль в Паскаль АВС.

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@Зайка43 5 / 5 / 1 Регистрация: 31.05.2011 Сообщений: 72

	Изобразить бегущую строку 14.06.2011, 16:45. Показов 1789. Ответов 8 Метки нет (Все метки) Написать программу которая изображает ''бегущую строку' Графически'!!! 0

@Зайка43 5 / 5 / 1 Регистрация: 31.05.2011 Сообщений: 72
	14.06.2011, 19:20 [ТС]
	программа не работает выдает ошибку Error 15: File not found (GRAPH. TPU). 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	14.06.2011, 19:33
	Это не программа такая, это Вы такие все... Этот файл в папке с программой должен находиться.. 0

@VladimirD 80 / 80 / 78 Регистрация: 30.12.2015 Сообщений: 256
	28.04.2017, 07:39
	test.pas(1,10) Fatal: Can't find unit graph used by Program 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	28.04.2017, 08:22
	Так не нужно пытаться запускать программу с графикой, написанную в Турбо Паскаль в Паскаль АВС. 0

Опции темы