Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 26.01.2017
Сообщений: 10
1

Составить программу,которая при нажатии,клавиши "д" рисует солнце,при нажатии клавиши "н" рисует луну

20.02.2017, 16:02. Просмотров 1920. Ответов 4
Метки нет (Все метки)


Помогите пожалуйста сделать
Вложение 801035
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2017, 16:02
Ответы с готовыми решениями:

Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Здравствуйте. Дано натуральное число N<101, определяющее возраст человека( в годах). Составить...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет"
1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе...

Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
Составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА".( с...

__________________
Помогаю в написании студенческих работ здесь.
4
Модератор
63219 / 46976 / 32377
Регистрация: 18.05.2008
Сообщений: 113,854
20.02.2017, 16:06 2
Текст задачи нужно набрать в теме руками.
И потом, просто АВС или АВС.net?
0
0 / 0 / 0
Регистрация: 26.01.2017
Сообщений: 10
20.02.2017, 16:46  [ТС] 3
Просто ABC.
Составить программу,которая при нажатии клавиши "д"(день) рисует солнце, при нажатии клавиши "н"(ночь) рисует луну
0
Модератор
63219 / 46976 / 32377
Регистрация: 18.05.2008
Сообщений: 113,854
20.02.2017, 16:54 4
Лучший ответ Сообщение было отмечено mrfoster как решение

Решение

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
uses graphABC,Events;
var x,y,r:integer;
procedure day;
var x1,y1,i:integer;
    u:real;
begin
clearwindow(clSkyBlue);
setbrushcolor(clGreen);
setpencolor(clGreen);
rectangle(0,windowheight div 2,windowwidth,windowheight);
u:=0;
setpenwidth(3);
setpencolor(clYellow);
setbrushcolor(clYellow);
for i:=1 to 12 do
 begin
  x1:=x+round(r*cos(u));
  y1:=y-round(r*sin(u));
  line(x,y,x1,y1);
  u:=u+pi/6;
 end;
circle(x,y,r-20);
setpenwidth(1);
end;
procedure night;
begin
clearwindow(clBlue);
setbrushcolor(clBlack);
setpencolor(clBlack);
rectangle(0,windowheight div 2,windowwidth,windowheight);
setbrushcolor(clCream);
circle(x,y,r-20);
end;
procedure KeyPress(key:char);
begin
case Key of
'д','Д':day;
'н','Н':night;
end;
end;
begin
x:=windowwidth div 2;
y:=windowheight div 7;
r:=60;
onkeypress:=Keypress;
end.
1
0 / 0 / 0
Регистрация: 26.01.2017
Сообщений: 10
20.02.2017, 17:59  [ТС] 5
Спасибо))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2017, 17:59

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

Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а"
Составить программу, которая из введенного текста удаляет первую букву "а"; все буквы "а".

Составить программу замены в слове X всех букв "а" и "я" на слог "ба"
Доброго времени суток! Помогите, пожалуйста, с задачей. Нужно составить программу замены в слове X...

Составьте программу, которая из слова "тематика" получает слово "математика" и "тема" и выводит эти слова на экран в столбик.
Составьте программу, которая из слова "тематика" получает слово "математика" и "тема" и выводит эти...

Разработать программу, которая при нажатии клавиши <F9> выводит на экран подвижное текстовое окно
Разработать программу, которая при нажатии клавиши &lt;F9&gt; выводит на жран текстовое окно. При нажатии...


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

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

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