Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal массив 4х4 https://www.cyberforum.ru/ pascal/ thread128119.html
Дан массив вещественных чисел 4х4. Найди противоположное число элементам второй и третьей колонки. Выведи полученный массив. Пояснение: Противоположное число n' по отношению к числу n — это число, которое при сложении с n даёт нуль.
Pascal Примеры рекурсивного решения в текстовом и графических режимах
Нужны примеры задач рекурсивного решения в текстовом и графических режимах. Заранее спасибо.
Pascal real что такое real ->687474703a2f2f7562727574652e636f6d2f666c7331342f https://www.cyberforum.ru/ pascal/ thread128114.html Pascal мелочи https://www.cyberforum.ru/ pascal/ thread128097.html
Ребят,что кто знает(( 1)Дано трехзначное число.Используя одну операцию деления нацело,вывести первую цифру данного числа(сотни) 2)Даны две переменные целого типа:A и B.Если их значения не равны,то присвоить каждой переменной большее из этих значений,а если равны,то присвоить переменным нулевые значения.Вывести новые значения переменных A и B. 3)Дано вещественное число-цена 1 кг...
Pascal Вычислить корни уравнения
Вычислить корни уравнения, заданного выражением: F(X):= 3 *sin (sqrt(x))+0.5*X-3.8
Pascal точки на плоскости https://www.cyberforum.ru/ pascal/ thread128087.html
Дано множество A из N точек (точки заданы своими координатами x, y). Среди всех точек этого множества, лежащих во четверти, найти точку, наиболее близкую к началу координат. Если таких точек нет, то вывести точку с нулевыми координатами.
Pascal сколько учеников в самом малочисленном классе школы https://www.cyberforum.ru/ pascal/ thread128081.html
Известно количество учеников в каждом из четырех классов каждой параллели школы с первой по одиннадцатую: Параллель Класс а б в г 1 23 25 27 22 2 24 26 25 23 … 11 20 25 21 26 1.Определить: а) сколько учеников в самом малочисленном классе школы;
Pascal решите дз
пару задач 1)Сколько раз подпоследовательность S входит в строку? 2)проверить монотоность строки S 3)найти в строке найбольшую по длине подстроку первый и последний елемент которой совпадают 4)построить строку S из строк S1 и S2 так что б в S входили те символы S1 которые не входят в S2
Pascal Структурный список https://www.cyberforum.ru/ pascal/ thread128079.html
Смоделировать формирование железнодорожного состава с использованием структуры списка. Возможно добавление вагона в любое место состава и удаление вагонов. В каждый момент времени показывать порядок и содержание вагонов состава. О каждом вагоне известен груз или тип(купе, плацкарт, ресторан).
Pascal Графика https://www.cyberforum.ru/ pascal/ thread128077.html
Движение закрашенного правильного шестиугольника с заданной с клавиатуры стороной по экрану, заполненному сеткой из закрашенных в случайные цвета кругов, с помощью клавиш управления курсором. Шестиугольник за пределы экрана не должен выходить.
массивы Pascal
Построить таблицу значений функции у=с*X^2+d при Х изменяющемся от 0 до 1 с шагом 0.1 где С-след матрицы А, а D-след матрицы В. С и В -след матрицы - это сумма главной диагонали матрицы 1 2 3 А= 4 5 6 7 6 9 1.2 8 4 1
Pascal массивы Построить таблицу значений функции у=с*X^2+d при Х изменяющемся от 0 до 1 с шагом 0.1 где С-след матрицы А, а D-след матрицы В. С и В -след матрицы - это сумма главной диагонали матрицы 1 2 3 1.2 8 4 1 А= 4 5 6 В= 7.5 3 1.2 6 7 8 8 -2 1 -1 7 5 4 3 2 https://www.cyberforum.ru/ pascal/ thread128072.html
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 21
0

Часы.Инструкция программисту - Pascal - Ответ 718880

11.05.2010, 18:41. Показов 556. Ответов 0
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Программа: Електронные часы
Текст проги:
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
uses Dos,Crt,Graph;
var  gd,gm,Xc,Yc,c1,c2,c3,c4,c5,c6,
     d1,d2,d3,d4,d5,d6,d7,d8:integer;
     hr,min,sec,hund:word;
{прорисовка цифр}
procedure Zero(xn,yn:integer);
begin
  Rectangle(0+xn,0+yn,5+xn,10+yn);
end;
procedure One(xn,yn:integer);
begin
  Line(5+xn,0+yn,5+xn,10+yn);
end;
procedure Two(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(5+xn,0+yn,5+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(0+xn,5+yn,0+xn,10+yn);
  Line(0+xn,10+yn,5+xn,10+yn);
end;
procedure Three(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(5+xn,0+yn,5+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(5+xn,5+yn,5+xn,10+yn);
  Line(0+xn,10+yn,5+xn,10+yn);
end;
procedure Fouhr(xn,yn:integer);
begin
  Line(0+xn,0+yn,0+xn,5+yn);
  Line(5+xn,0+yn,5+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(5+xn,5+yn,5+xn,10+yn);
end;
procedure Five(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(0+xn,0+yn,0+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(5+xn,5+yn,5+xn,10+yn);
  Line(0+xn,10+yn,5+xn,10+yn);
end;
procedure Six(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(0+xn,0+yn,0+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(5+xn,5+yn,5+xn,10+yn);
  Line(0+xn,10+yn,5+xn,10+yn);
  Line(0+xn,5+yn,0+xn,10+yn);
end;
procedure Seven(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(5+xn,0+yn,5+xn,10+yn);
end;
procedure Eight(xn,yn:integer);
begin
  Rectangle(0+xn,0+yn,5+xn,10+yn);
  Line(0+xn,5+yn,5+xn,5+yn);
end;
procedure Nine(xn,yn:integer);
begin
  Line(0+xn,0+yn,5+xn,0+yn);
  Line(5+xn,0+yn,5+xn,5+yn);
  Line(5+xn,5+yn,0+xn,5+yn);
  Line(5+xn,5+yn,5+xn,10+yn);
  Line(0+xn,10+yn,5+xn,10+yn);
  Line(0+xn,0+yn,0+xn,5+yn);
end;
{выбор нужной цифры}
procedure Number(n,xn,yn:integer);
begin
  case n of
    0:Zero(xn,yn);
    1:One(xn,yn);
    2:Two(xn,yn);
    3:Three(xn,yn);
    4:Fouhr(xn,yn);
    5:Five(xn,yn);
    6:Six(xn,yn);
    7:Seven(xn,yn);
    8:Eight(xn,yn);
    9:Nine(xn,yn);
  end;
end;
{рисование каркаса}
procedure KarkasElectro;
begin
  Rectangle(Xc-40,Yc-15,Xc+36,Yc+15);
  putpixel(Xc-40+25,Yc-3,Green);
  putpixel(Xc-40+25,Yc+3,Green);
  putpixel(Xc-40+50,Yc-3,Green);
  putpixel(Xc-40+50,Yc+3,Green);
end;
{рисование нужных цифр}
procedure DrawElectro;
begin
  c1:=hr div 10;{часы}
  c2:=hr mod 10;
  c3:=min div 10;{минуты}
  c4:=min mod 10;
  c5:=sec div 10;{сукунды}
  c6:=sec mod 10;
  SetColor(Black);{черным цветом, стираем старое изображение}
  Number(c1,Xc-40+5,Yc-15+10);
  Number(c2,Xc-40+15,Yc-15+10);
  Number(c3,Xc-40+30,Yc-15+10);
  Number(c4,Xc-40+40,Yc-15+10);
  Number(c5,Xc-40+55,Yc-15+10);
  Number(c6,Xc-40+65,Yc-15+10);
  GetTime(hr,min,sec,hund);{определяем системное время}
  c1:=hr div 10;
  c2:=hr mod 10;
  c3:=min div 10;
  c4:=min mod 10;
  c5:=sec div 10;
  c6:=sec mod 10;
  SetColor(Green);{снова рисуем уже зеленым цветом}
  Number(c1,Xc-40+5,Yc-15+10);
  Number(c2,Xc-40+15,Yc-15+10);
  Number(c3,Xc-40+30,Yc-15+10);
  Number(c4,Xc-40+40,Yc-15+10);
  Number(c5,Xc-40+55,Yc-15+10);
  Number(c6,Xc-40+65,Yc-15+10);
end;
begin
gd:=0;
initgraph(gd,gm,'');
Xc:=GetMaxX div 2;{центр экрана}
Yc:=GetMaxY div 2;
GetTime(hr,min,sec,hund);{начальное системное время}
KarkasElectro; {рисуем каркас}
repeat
delay(1000);{в цикле через секунду}
DrawElectro;{меняем изображение}
until KeyPressed;{пока не нажата какая-то клавиша}
end.
Проблема моя: напишите кто-нибудь пожалуйста, что обозначают переменные gd,gm,Xc,Yc,c1,c2,c3,c4,c5,c6,
d1,d2,d3,d4,d5,d6,d7,d8:integer;
hr,min,sec,hund:word;

P.s. мне срочно нужно доделать теоритическую справку....ПОЖАЛУЙСТААА

Вернуться к обсуждению:
Часы.Инструкция программисту Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2010, 18:41
Готовые ответы и решения:

Преобразовать введенное значение в часы и минуты и выводит на экран в виде “часы: минуты”
Здравствуйте, помогите пожалуйста с написанием программы. Написать программу, которая запрашивает...

Нужна помощь будущему программисту, консультация в нескольких операторах.... Плиз...
Приветствую дорогие коллеги, начал изучать паскаль в техническом колледже 2-й курс. Но по истине...

Флеш часы: часы, показывающие указанное время
Привет всем!!!Помогите пожалуйста!!!Как создать флеш часы чтобы они показывали разное указанное...

Даны целые числа m (часы) и n (минуты) .Определить наименьшее время (в минутах) когда совпадут минуты и часы
Даны целые числа m (часы) и n (минуты) .Определить наименьшее время (в минутах) до того момента ...

0
11.05.2010, 18:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2010, 18:41
Помогаю со студенческими работами здесь

Даны целые числа m (часы) и n (минуты) .Определить наименьшее время (в минутах) когда совпадут минуты и часы
Даны целые числа m (часы) и n (минуты) .Определить наименьшее время (в минутах) до того момента ...

Из секунд - часы, минуты и секунды. Из минут - часы, минуты
private void button4_Click(object sender, EventArgs e) { if (textBox3.Text ==...

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

Начинаещему программисту 1С
Здравствуйте, хочется сделать учёт оборудования в 1С,а точнее весов Пока не силён в 1С,хотелось...

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