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

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

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

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

Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран
Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран....

Строка: Как дописать код так, чтобы, когда нет буквы "б", появлялось сообщение: "Такого символа в слове нет".
Помогите,как дописать в коде что когда нет буквы б.Писало что "Такого символа в слове нет" ...

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, исходные "." заменить на...

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"
{Программа заменяет буквы "а" на буквы "б" в введенном тексте} var stroka : string; i :...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

2
JuriiMW
2811 / 1420 / 1767
Регистрация: 10.12.2014
Сообщений: 5,627
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
Kasustel
0 / 0 / 0
Регистрация: 05.12.2017
Сообщений: 40
27.06.2018, 12:01  [ТС] 3
Спасибо большое! Все работает)
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2018, 12:01

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;,...

Дана строка,сформировать новую строку не включая в неё буквы "а","о","е" заданной строки
Дана строка,сформировать новую строку не включая в неё буквы &quot;а&quot;,&quot;о&quot;,&quot;е&quot; заданной строки

С клавиатуры вводится строка. Удалить из строки те слова, в которых встречаются английские буквы "A", "E", "O"
Можете ,пожалуйста,написать программу, без массивов


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

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

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