Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal програмировние задачь на языке pascal https://www.cyberforum.ru/ turbo-pascal/ thread433412.html
вводятся 14 чисел.определить,сколько среди них положительных(включая 0) и сколько отрицательных.(числа вводятся в одну переменную в цикле).
Текстовый файл Паскаль Turbo Pascal
Дан текстовый файл, содержащий следующие сведения о студентах фамилия, имя и курс. Вывести в новый файл список студентов всех однофамильцев. Дан текстовый файл, содержащий следующие сведения о...
Turbo Pascal Итерационные циклы. Решение нелинейных уравнение.
Тема: Итерационные циклы. Решение нелинейных уравнение. Цель: Разработка алгоритмов, составление и отладка программ с итерационными циклами. Задание: Xn+1=1.01Xn-0.01(Xn+1)^3
Turbo Pascal МАССИВ для матрицы из 2 строк и 9 столбцов отпечатать номер каждого столбца, квадрат первого элемента которого больше абсолютного значения второго элемента столбца, и число таких столбцов. https://www.cyberforum.ru/ turbo-pascal/ thread433397.html
Turbo Pascal Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины https://www.cyberforum.ru/ turbo-pascal/ thread433395.html
ДЛЯ МАТРИЦЫ из 7 строк и 3 столбцов отпечатать номер каждой строки , в которой значение ее наибольшего элемента оказалось больше заданной величины
Арифметические циклы . Turbo Pascal
Тема: Арифметические циклы . Цель: Овладеть навыками программирование простейших знакопеременных арифметических циклов. Задание: Разработка алгоритмов, составление и отладка индивидуальных программ...
Turbo Pascal Двумерный массив: Определить есть ли в данном массиве отрицательный элемент
Программу нужно составить с использованием Function, ответ должен выдать как True или False
Turbo Pascal лампочки дано ряд из K (4<=K<=25) лампочек, некоторые из которых выключены, а некоторые – включены. В начальной конфигурации нет четырех подряд включенных лампочек. Вы можете только включать лампочки. Но... https://www.cyberforum.ru/ turbo-pascal/ thread433375.html
Turbo Pascal перевести из java в pascal https://www.cyberforum.ru/ turbo-pascal/ thread433358.html
def crystalSquaresatX(m,x): if m >= 1: power = 5 ** (m-1) location = x // power if location == 0 or location == 4: return 0 elif location == 1 or...
Turbo Pascal Присвоить каждой букве цифру или на оборот Задача Дана строка в ней введено пердложение(например "TheBestTest').Нужно чтобы выдавало две строки 1) В верхнем регитстре и в нижнем регистре 2) И еще нужно подсчитать замену букв при это если... https://www.cyberforum.ru/ turbo-pascal/ thread433351.html
206 / 183 / 104
Регистрация: 10.01.2011
Сообщений: 302
24.01.2012, 10:14 0

Разомкнутая система управления

24.01.2012, 10:14. Просмотров 1376. Ответов 5
Метки (Все метки)

Ответ


Цитата Сообщение от анна2 Посмотреть сообщение
спасибо за программу, но точка двигается только по краю, и она неуправляема, никакие кнопки не действуют.мы не понимаем, что делать
Перемещение стрелками.
Цитата Сообщение от анна2 Посмотреть сообщение
Нам нужно, чтобы точка не отображалась до нажатия enter
Даже если она попала в круг?

Цитата Сообщение от анна2 Посмотреть сообщение
шаг был случайным числом от 3 до 5
Это условие выполнено. Каждый шаг задается случайно
Pascal
1
h:=Random(3)+3;
Добавлено через 1 час 7 минут
Вот такой вариант подойдет?
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
uses crt, graph;
const
  l=400;
  r=25;
  dr=2;
  c1=Brown;
  c2=Blue;
  c3=Yellow;
  c4=Red;
 
  function Rnd: Integer;
  var
    r: Integer;
  begin
    r:=Random(2*r)+l div 2-2*r-dr;
    if Random(2)=0 then Rnd:=r
    else Rnd:=-r;
  end;
 
  procedure Cir(x, y, r: Integer; c: Word);
  begin
    SetColor(c);
    SetFillStyle(SolidFill, c);
    FillEllipse(GetMaxX div 2+x, GetMaxY div 2-y, r, r);
  end;
 
  function CheckMax(x: Integer): Integer;
  var
    r: Integer;
  begin
    if Abs(x)>l div 2 - dr then
    begin
      r:=l div 2 - dr;
      if x<0 then r:=-r;
    end
    else r:=x;
    CheckMax:=r;
  end;
 
  function Check(x, y: Integer): Boolean;
  begin
    if (Abs(x)>r+dr) or (Abs(y)>r+dr) then Check:=false
    else Check:=(x*x+y*y)<=Sqr(r+dr);
  end;
 
var
  gd,gm, ErrCode, x, y, h: Integer;
  ga: String;
  ch: Char;
  visible: Boolean;
begin
  Randomize;
  gd:=VGA;
  gm:=VGAHi;
  ga:='c:\bp\bgi';
  InitGraph(gd,gm,ga);
  if GraphResult = grOk then
  begin
    x:=(GetMaxX-l-2) div 2;
    y:=(GetMaxY-l-2) div 2;
    SetColor(c1);
    SetFillStyle(SolidFill, c2);
    Bar3D(x, y, x+l+2, y+l+2, 0, TopOff);
    OutTextXY(170, 460, 'ESC        Enter        Spase');
    SetColor(LightGray);
    OutTextXY(200, 460, '- Exit');
    OutTextXY(305, 460, '- View');
    OutTextXY(410, 460, '- Start');
    repeat
      visible:=false;
      Cir(0, 0, r, c3);
      x:=Rnd;
      y:=Rnd;
      repeat
        ch:=ReadKey;
        if (ch=#0) and KeyPressed then
        begin
          ch:=ReadKey;
          if ch in  [#72, #75, #77, #80] then
          begin
            if visible then
            begin
              Cir(x, y, dr, c2);
              if Check(x, y) then Cir(0, 0, r, c3);
            end;
            h:=Random(3)+3;
            case ch of #72:y:=CheckMax(y+h);
                       #75:x:=CheckMax(x-h);
                       #77:x:=CheckMax(x+h);
                       #80:y:=CheckMax(y-h);
            end;
            if visible then Cir(x, y, dr, c4);
          end;
        end else if ch=#13 then
          begin
            visible:=true;
            Cir(x, y, dr, c4);
          end;
      until ch in [#27, ' '];
      Cir(x, y, dr, c2);
    until ch=#27;
    CloseGraph;
  end
  else begin
    Writeln('Ошибка инициализации графики');
    ReadKey;
  end;
end.


Вернуться к обсуждению:
Разомкнутая система управления
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2012, 10:14
Готовые ответы и решения:

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

Система поддержки управления библиотекой
Система поддержки управления библиотекой должна обеспечивать операции (добавление, удаление и...

Файловая система и система управления вводом-выводом в ОС Linux
Дали задание написать вот что: &quot;Разработать программу, которая выводит на экран содержимое...

Разомкнутая СМО
На обработку в вычислительную систему поступают задания с интенсивностью λ=4 (заданий в...

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