Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 05.12.2017
Сообщений: 40
1
GraphABC

Графика: Вывести надпись так, чтобы по очереди буквы сначала "приближались" к нам, затем "удалялись" обратно...

26.06.2018, 16:18. Просмотров 1139. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите, пожалуйста!
Необходимо, вывести надпись (с помощью graphABC), так чтобы первая буква сначала "приближалась" к нам, затем "удалялась" обратно, затем это делала вторая и т.д.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2018, 16:18
Ответы с готовыми решениями:

Приоритеты выдачи: сначала выдавать записи со значением "q", затем "sh", и в конце "s"
Есть небольшая база данных (предположим 10 записей). Есть столбик "Game", он может принимать 3...

В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
Дан текстовый файл. В нем удалить все символы "+" и "-", а так же все буквы "б" перед которыми...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на...

В произвольном предложение зашифровать буквы,так чтобы например слова "мама" заменилось на "ляля"
Здравствуйте!Помогите с написанием программы.Программа звучит так:"В произвольном предложение...

2
4191 / 1992 / 2071
Регистрация: 10.12.2014
Сообщений: 7,626
27.06.2018, 06:56 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
uses GraphABC;
 
procedure DrawChar(s : Char; c, scr, wScr, w, x : Integer);
begin
  Font.Size := c = scr ? wScr : w; DrawTextCentered(Window.Center.X + x, Window.Center.Y, Window.Center.X + x, Window.Center.Y, s);
end;
 
procedure Scroll(s : String);
const
  rait = 5;
  wait = 10;
begin
  LockDrawing;
  var size := 0; repeat size += 1; Font.Size := size; until TextWidth(s) > Window.Width div 2;
  var w := 0; foreach var c in s do w := max(w, TextWidth(c));
  var x0 := -(s.Length div 2)*w+(not odd(s.Length)?w div 2:0);
  var n := s.Select((c,i)->c<>#32?i+1:0).Where(i->i>0);
  foreach var scr in n do
    begin
      for var wScr := w to w * rait do
        begin
          Window.Clear; var x := x0; for var c := 1 to s.Length do begin DrawChar(s[c], c, scr, wScr, w, x); x += w; end; Redraw; Sleep(wait);
        end;
      for var wScr := w * rait downto w do
        begin
          Window.Clear; var x := x0; for var c := 1 to s.Length do begin DrawChar(s[c], c, scr, wScr, w, x); x += w; end; Redraw; Sleep(wait);
        end;
    end;
  UnlockDrawing;
end;
 
begin
  Scroll('Шоколадка');
end.
1
0 / 0 / 0
Регистрация: 05.12.2017
Сообщений: 40
27.06.2018, 12:01  [ТС] 3
Спасибо большое! Все работает)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2018, 12:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сколькими способами можно переставить буквы слова "интеллект", чтобы "л" шла непосредственно после "е"
Трендец имени первой сессии подкрался незаметно.Я понимаю,что,возможно,многим мои вопросы покажутся...

Сколькими способами можно переставить буквы слова "ежевика", чтобы "и" шла непосредственно после "к"?
Здравствуйте) Помогите, пожалуйста, решить задачу) Сколькими способами можно переставить буквы...

Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!"
Буду очень благодарен

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.