Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.06.2014
Сообщений: 9
1

Дан символ "а" и позиции на экране (n,m). Вывести "а" в заданных позициях, если это возможно

04.11.2014, 20:03. Показов 1231. Ответов 5
Метки нет (Все метки)

Дан символ "а" и позиции на экране (n,m). Вывести "а" в заданных позициях, если это возможно, иначе выдать
соответствующее сообщение.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2014, 20:03
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова "Работа","крест","тон" составить фразу:"Кто не работает, тот не ест" и определить ее длину.

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал качайте дома и...

1.Задан текстовый файл "test.txt". Написать программу,которая меняет первый символ строки на символ "?"
1.Задан текстовый файл "test.txt". Написать программу,которая меняет первый символ строки на символ...

5
838 / 733 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
04.11.2014, 22:29 2
Цитата Сообщение от warrior71 Посмотреть сообщение
Вывести "а" в заданных позициях, если это возможно
Возможно, указываеш позицию (нужные координаты и там выводиш "а").
Если позиции выходят за пределы экрана, пишеш сообщение - вывод "а" невозможен, произошел выход за пределы экрана.
0
0 / 0 / 0
Регистрация: 17.06.2014
Сообщений: 9
04.11.2014, 22:32  [ТС] 3
Спасибо а можно как то это поподробнее описать?
0
838 / 733 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
04.11.2014, 23:22 4
Лучший ответ Сообщение было отмечено warrior71 как решение

Решение

Цитата Сообщение от warrior71 Посмотреть сообщение
можно как то это поподробнее описать?
Держи! Все подробно в коде расписал в комментариях. на форму кинуть два лейбла и код на кнопку поставиш.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  shir, vis: Integer; //перменные для ширины, высоты
  n, m: Integer; //координаты точки
begin
  //произвольные координаты точки
  n:= 3000;
  m:= 200;
 
  //ширина и высота в переменные
  shir := Screen.Width;
  vis := Screen.Height;
 
  Label1.Caption:= 'Ширина моего экрана = ' + IntToStr(shir);
  Label2.Caption:= 'Высота моего экрана = ' + IntToStr(vis);
 
  if (n > shir) or (m > vis) then
  begin
   ShowMessage('Я немогу нарисовать там букву "а", мы вышли за пределы экрана');
  end
  else
  {можно рисовать}
  {здесь код который рисует сиволы (метод Canvas)}
end;
Добавлено через 2 минуты
Хотя по идее делфи нарисует даже за пределом экрана твой символ, просто ты там его видеть не будеш
0
0 / 0 / 0
Регистрация: 17.06.2014
Сообщений: 9
04.11.2014, 23:38  [ТС] 5
огромное спасибо
0
838 / 733 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
05.11.2014, 12:33 6
warrior71,
Дописал, текст будет прямо на рабочем столе, держи все в сборе:
Delphi
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
var
  shir, vis: Integer; //перменные для ширины, высоты
  n, m: Integer; //координаты точки
  Scr: TCanvas; //для экрана
begin
  //произвольные координаты точки
  n := 100;
  m := 300;
 
  //ширина и высота в переменные
  shir := Screen.Width;
  vis := Screen.Height;
 
  Label1.Caption := 'Ширина моего экрана = ' + IntToStr(shir);
  Label2.Caption := 'Высота моего экрана = ' + IntToStr(vis);
 
  if (n > shir) or (m > vis) then
  begin
    ShowMessage('Я немогу нарисовать там букву "а", мы вышли за пределы экрана');
  end
  else
  begin
    Scr := TCanvas.Create;
    Scr.Handle := GetDC(HWND_DESKTOP);
    Scr.Brush.Color := clBlue;
    Scr.Font.Color := clYellow;
    Scr.Font.Size := 72;
    Scr.TextOut(n, m, 'Текст на экране'); //нужный текст
    Scr.Free;
  end;
end;
Миниатюры
Дан символ "а" и позиции на экране (n,m). Вывести "а" в заданных позициях, если это возможно  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2014, 12:33

Тысячные числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000" и т.д
Собственно числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000", "120000" на...

Если в слове найдена буква "и" - вывести это слово в StringGrid
Подскажите пожалуйста как правильно в делфи написать " если в слове найдена буква "и",то вывод...

В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"
Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой предшествует буква "с",...

Если фамилия заканчивается на "ков", то добавить к фамилии окончание "ва"
Если фамилия заканчивается на ков, то добавить к фамилии окончание ва. например: Шарков...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru