3 / 3 / 2
Регистрация: 19.12.2011
Сообщений: 103
1

Написать программу, которая вычерчивает на экране ломаную линию, состоящую из 100 звеньев

07.04.2012, 01:23. Показов 2468. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Написать программу, которая вычерчивает на экране ломаную линию, состоящую из 100 звеньев, выбираемые случайным образом, причем координаты звеньев тоже выбираются случайно. При нажатии на клавишу Tab стирать экран, при нажатии на Enter продолжать рисовать, при нажатии на Esc выполнить завершение программы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2012, 01:23
Ответы с готовыми решениями:

Написать программу, которая вычерчивает на экране ломаную линию, состоящую из 100 звеньев
Написать программу, которая вычерчивает на экране ломаную линию, состоящую из 100 звеньев,...

Написать программу, которая вычерчивает на экране узор – ломанную линию
1.Написать программу, которая вычерчивает на экране узор – ломанную линию из 100 звеньев со...

Написать программу, которая вычерчивает на экране узор – ломанную линию
1.Написать программу, которая вычерчивает на экране узор – ломанную линию из 100 звеньев со...

Написать программу, которая вычерчивает на экране узор из 100 окружностей
Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и...

3
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
07.04.2012, 08:24 2
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
uses graphABC,crt;
var xc,yc,i:integer;
    c:char;
begin
xc:=windowwidth;
yc:=windowheight;
textout(xc div 2-40,20,'Enter-Рисовать');
textout(xc div 2-40,40,'Tab-Очистить');
textout(xc div 2-40,60,'Esc-Выход');
moveto(random(xc)+1,random(yc-70)+70);
i:=0;
repeat
if keypressed then
 begin
  c:=readkey;
  case c of
  #13:begin  //у меня в АВС это не работает, в Турбо все нормально
       if i < 100 then
       lineto(random(xc)+1,random(yc-70)+70);
     end;
  #9:begin
      rectangle(0,70,xc,yc);
      floodfill(10,80,clWhite);
     end;
  #27:exit;
  end;
 end;
until c=#27;
end.
2
3 / 3 / 2
Регистрация: 19.12.2011
Сообщений: 103
08.04.2012, 22:04  [ТС] 3
Puporev ты как всегда выручаешь....Как тебя можно отблагодарить?)
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.04.2012, 10:01 4
Я кстати не там примечание написал, у меня в АВС на нажатие Tab не реагирует вообще.
1
09.04.2012, 10:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2012, 10:01
Помогаю со студенческими работами здесь

Написать программу, которая вычерчивает на экране узор из 100 окружностей
Напишите программу которая вычерчивает на экране узор из 100 окружностей. Ввод диаметра и выбор...

Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и цвета.
Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и...

Напишите программу которая вычерчивает на экране узор из 100 окружностей.
Здравствуйте!Нужно написать программу вот задание (Напишите программу которая вычерчивает на...

Написать программу, которая вычерчивает на экране кораблик c++
Написать программу, которая вычерчивает на экране кораблик c++


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

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

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