0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 4

Написать 2 процедуры(бегущая строка и регулировка скорости перемещения)

14.12.2011, 21:12. Показов 1405. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Знаю,что уже много раз просили помочь с написанием бегущей строки.Но везде использовался GOTO...
Попробую описать задачу.Надо,что бы пользователь вводил символьную строку,процедура считывала бы ее и забивала значения в одномерный массив.Потом с левого края по одному символу должно удаляться и переноситься на правый край.Ну и сделать процедуру регулировки скорости перемещения этой строчки с выбором 3-4 вариантов скорости.
Помогите,пожалуйста!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.12.2011, 21:12
Ответы с готовыми решениями:

Регулировка скорости
Надо составить прогу, которая позволяет текст, содержащийся в файле, воспроизвести сигналами азбуки Морзе. При этом текст должен...

Регулировка скорости кулера
Здраствуйте. У меня ноутбук Samsung R528, Nvidia GForse 310m, Intel peintum 2 core dual. Вобщем нужно увеличить скорость вращения куллера...

Регулировка скорости интернета по сети
Здраствуйте, подскажите пожалуйста с помощью какого софта можно сделать что бы на все компы в сети распределялась одинаковая скорость...

6
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.12.2011, 11:24
Цитата Сообщение от IIIem Посмотреть сообщение
.Но везде использовался GOTO...
Первый раз об этом слышу. Вот типичный код для бегущей строки без всяких Goto.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Uses crt,dos;
var Reg: Registers;
{---------------------------------}
Procedure KursOff; {Убрать курсор}
begin
 with Reg do
  begin
   AH := 1;    {Управление курсором}
   CH := $20   {Убрать курсор}
  end;
 Intr($10,Reg);
end;
{---------------------------------}
Procedure BegStr(y: Integer;str: String;speed: Integer);
Var
  strok : 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);
    gotoxy(1,y);
    delay(speed);
    delline;
    write(str);
    strok:=copy(str,1,1);
    str:=str+strok;
  until keypressed;
end;
 
begin
  Textbackground(7);
  clrscr;
  TextColor(13);
  KursOff;
  BegStr(10,'1234567891011121314151617181920212223242526',200);
  clrscr;
end.
Это для Турбо Паскаля.
0
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 4
15.12.2011, 13:38  [ТС]
Цитата Сообщение от IIIem Посмотреть сообщение
Надо,что бы пользователь вводил символьную строку,процедура считывала бы ее и забивала значения в одномерный массив.Потом с левого края по одному символу должно удаляться и переноситься на правый край.
А такое реализовать можете?
Тот вариант,который Вы выложили,у меня был,спасибо. С ним меня,мягко сказать,послали и сказали,что вся эта "бегущая строка" пишется в 6-7 строчек и не стоит ничего мудрить...
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.12.2011, 13:41
Цитата Сообщение от IIIem Посмотреть сообщение
пишется в 6-7 строчек
Вот к этому умнику и дуйте.
0
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 4
15.12.2011, 14:41  [ТС]
Если бы все было так просто...
А мой вариант нельзя реализовать?
Или хотя бы объяснить тот вариант,который выложили Вы.Мне он не совсем понятен,а объяснять придется...
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.12.2011, 15:12
Попробуй сократить до 6 строк, умник...
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
type mas=array[1..80] of char;
procedure Stroka(s:string; var a:mas; var n:byte);
var i:byte;
begin
n:=length(s);
for i:=1 to n do
a[i]:=s[i];
while n<80 do
 begin
  n:=n+1;
  a[n]:=' ';
 end;
end;
procedure Beg(var a:mas;n:byte;z:integer);
var i:byte;
    c:char;
begin
repeat
clrscr;
for i:=1 to n do
write(a[i]);
delay(z);
c:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=c;
until keypressed;
end;
var s:string;
    a:mas;
    n,sk:byte;
    zd:integer;
begin
clrscr;
repeat
writeln('Введите строку от 10 до 75 символов:');
readln(s);
until length(s) in [10..75];
Stroka(s,a,n);
repeat
write('Выберите скорость 1..4');
readln(sk);
until sk in [1..4];
zd:=250-sk*50;
Beg(a,n,zd);
end.
1
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 4
15.12.2011, 15:19  [ТС]
Вот и я не знаю,как так можно написать в 6-7 строчек...
Огромное спасибо Вам,очень помогли!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.12.2011, 15:19
Помогаю со студенческими работами здесь

Регулировка скорости скачивания по http
Имеется программа, скачивающая файлы по http. Подскажите как можно ограничить в ней скорость скачивания до 60кб\с?

Регулировка скорости вращения кулеров
Материнская плата Supermicro X10DRI стоит 1 куллер (3) и 3(1,2,5) вентилятора на корпус видеокарта До установки видеокарты и...

Регулировка скорости DVD-привода
раньше во временя винды 9х юзал CD-Slow в XP - Nero CD-Speed а тут поменял DVD-привод и ни одна из вышеперечисленных утилит для...

Регулировка скорости вращения вентиляторов 3pin
Случилась такая проблема стояла windows 7, переустановил на 8.1. На 7 windows регулировал скорости вращения вентиляторов в корпусе их там...

Регулировка скорости вращения вентиляторов джойстиком с ПК?
Добрый вечер. Появилась идея сделать нечто похожее на один из неудачных проектов из кикстартера. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

Новые блоги и статьи
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
Паттерны в Python: Singleton, Factory и Observer
py-thonny 26.04.2025
Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .
Исключения в C#: Stack Overflow, Access Violation и Out of memory
stackOverflow 26.04.2025
Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик.
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python
py-thonny 25.04.2025
Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .
Apache Kafka vs RabbitMQ в микросервисной архитектуре
ArchitectMsa 25.04.2025
Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .
Параллельное программирование с OpenMP в C++
NullReferenced 24.04.2025
Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API
UnmanagedCoder 24.04.2025
Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru