Форум программистов, компьютерный форум, киберфорум
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
23.01.2012, 17:43 0

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

23.01.2012, 17:43. Просмотров 1376. Ответов 5
Метки (Все метки)

Ответ


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
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);
  end;
 
var
  gd,gm, ErrCode, x, y, h: Integer;
  ga: String;
  ch: Char;
  stop: Boolean;
begin
  Randomize;
  gd:=VGA;
  gm:=VGAHi;
  ga:='c:\tp7\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(200, 460, 'ESC               Enter');
    SetColor(LightGray);
    OutTextXY(235, 460, '- Exit');
    OutTextXY(275, 460, '- Start');
    repeat
      stop:=false;
      Cir(0, 0, r, c3);
      x:=Rnd;
      y:=Rnd;
      Cir(x, y, dr, c4);
      repeat
        ch:=ReadKey;
        if not stop and (ch=#0) and KeyPressed then
        begin
          ch:=ReadKey;
          if ch in  [#72, #75, #77, #80] then
          begin
            Cir(x, y, dr, c2);
            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;
            Cir(x, y, dr, c4);
            stop:=Check(x, y);
          end;
        end;
      until ch in [#13, #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
23.01.2012, 17:43
Готовые ответы и решения:

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

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

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

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

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