Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Массив: элементы, следующие за максимумом, заменить на минимум https://www.cyberforum.ru/ turbo-pascal/ thread56257.html
В массиве из 10 элементов, элементы следующие за максимомум заменить на минемум. 		Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы Turbo Pascal
У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица 4Х5. Найти max среди нечетных отрицательных элементов каждого столбца.
Turbo Pascal найти if s='001' then write ('1'); В S выводится число вещественное. как то нужно сделать если встретили 001 то заменяем его на 1 . и так во всей строке.. https://www.cyberforum.ru/ turbo-pascal/ thread56178.html Turbo Pascal Числа https://www.cyberforum.ru/ turbo-pascal/ thread56171.html
if (s4=1) then insert('00',s,s1); нужно переписать чтоб вместо 1 были все нечетные числа .. if (s4=2) then insert('00',s,s1); нужно переписать чтоб вместо 2 были все четные числа ..
Turbo Pascal Перевод из двоичной системы в десятеричную.
дано число в двоичной системе проверить правильность ввода этого числа(в его записи должны быть 0 и 1).если число введено неверно повторить ввод.при правильном вводе перевести число в десятичную систему счисления 		Turbo Pascal Строки и телефонные номера. Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую номер к виду +7 111 111 11 11 https://www.cyberforum.ru/ turbo-pascal/ thread56124.html
Turbo Pascal Перевести код с Basic Помогите плз переписать код на паскаль..спасибо rem первод чисел из 2 сс в 16 сс CLS INPUT "Введите число "; A$ n =1 : k$ = "" : x$ = "" 10 k$ = MID$ (a$, n, 1) IF k$ = "." THEN n =n-1 :GOTO 20 ELSE x$ = X$ +k$ :n = n+1:GOTO 10 20 IF n MOD 4 = 1 THEN x$ = "000" +x$ IF n MOD 4 = 2 THEN x$ = "00" +x$ https://www.cyberforum.ru/ turbo-pascal/ thread56068.html Определить среднее арифметическое положительных чисел, лежащих после минимального значения в массиве В[1..N] Turbo Pascal
Определить среднее арифметическое положительных чисел, лежащих после минимального значения в массиве В. Числа, находящиеся до минимального значения в массиве В, рассортировать по возрастанию. за ранее спасибо всем
Turbo Pascal Pascal. Практическая работа 1. Составить блок-схему (алгоритм); 2. Написать программу на Turbo Pascal; 3. Протестировать программу. https://www.cyberforum.ru/ turbo-pascal/ thread55986.html Turbo Pascal Определить число, зная результат действий с ним 1. Разработать алгоритм и представить его в виде схемы; 2. Написать программу на языке программирования Turbo Pascal; 3. Протестировать и отладить программу. Задача:В трехзначном числе зачеркнули первую цифру слева, когда полученное двузначное число умножили на 7, то получили данное число. Найти это число. https://www.cyberforum.ru/ turbo-pascal/ thread55982.html
символы Turbo Pascal
есть число.. 1010110101010.01001 из 1 и 0 . Нужно брать первые 3 символа ( 101) и переводить его в числ другое и так каждое . ну переводить можно с помощью case а вот как брать первые 3 символы и прать до тех пор пока не будет точка а после точки тоже самое. и вывод)) 		Turbo Pascal разбивать на слова https://www.cyberforum.ru/ turbo-pascal/ thread55953.html
Нужно разбить предложение на слова помоги те плз..
8 / 8 / 2
Регистрация: 28.02.2011
Сообщений: 49
21.03.2011, 16:10 0

Графика в Турбо Паскаль - Turbo Pascal - Ответ 1469146

21.03.2011, 16:10. Показов 248238. Ответов 158
Метки (Все метки)

Ответ

Программа, строющая график квадратичной функции, сначала вводятся коэффиценты а б и ц, программа выдает ответ затем строит график)) в папке с программой должен быть EGAVGA.BGI , еще перед и после построения анимируется матрица)))
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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185

uses CRT,Graph;
var
dev,mode,i,n,b,c,x,y,x1,y1,p,xm,ym,rm,r,a:integer;
k1,k2,d: real;
ks1,ks2,ds,re,tc,pal,ys,w,indo,s,si,t,em,wb,rh,am:string;
label le,lec;
begin
writeln('‚ўҐ¤ЁвҐ a ');
readln(a);
writeln('‚ўҐ¤ЁвҐ b ');
readln(b);
writeln('‚ўҐ¤ЁвҐ c ');
readln(c);
p:=300;
if a=0 then begin
if b=0 then  k1:=c
else
k1:=-c/b;
writeln('X=',k1:5:3);
end
else begin
p:=50;
d:=b*b-4*a*c;
if d<0 then
writeln('ЌҐв Є®а*Ґ©')
else  begin
writeln('Diskriminant=',d:5:3);
k1:=(-b+sqrt(d))/(2*a);
k2:=(-b-sqrt(d))/(2*a);
writeln('X1=',k1:5:3);
writeln('X2=',k2:5:3);
end;
end;
writeln('„«п Ї®бв஥*Ёп **¦¬ЁвҐ "Enter", ¤«п ўл室* "Q"');
re:=readkey;
if re='q' then goto le;
initgraph(dev,mode,'');
dev:=0;
x:=-p;
y:=1;
 
 
randomize;
setcolor(green);
ym:=1;
xm:=1;
repeat
xm:=xm+10;
ym:=1;
repeat
rm:=random(2);
str(rm,am);
outtextxy(xm,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+50,ym,am);
r:=random(2);
str(rm,am);
outtextxy(xm+100,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+150,ym,am);
r:=random(2);
str(rm,am);
outtextxy(xm+200,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+250,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+300,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+350,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+400,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+450,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+500,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+550,ym,am);
ym:=ym+10;
delay(2000);
until ym>500;
until xm>50;
ClearDevice;
 
setcolor(white);
line(300,50,300,350);
line(50,200,550,200);
 
 
line(300,50,297,53);
line(300,50,303,53);
line(550,200,547,197);
line(550,200,547,203);
setcolor(green);
outtextxy(303,53,'Y');
outtextxy(553,203,'X');
outtextxy(302,202,'0');
outtextxy(380,380,'RealHeroes.hut.ru');
outtextxy(10,380,'Press "Enter"');
setcolor(red);
repeat
x:=x+1;
y:=x*x*a+x*b+c;
x1:=x+1;
y1:=x1*x1*a+x1*b+c;
line(x+300,-y+200,x1+300,-y1+200);
until x>p;
 
lec:
setcolor(yellow);
if d>=0 then begin
str(k1:5:3,ks1);
str(k2:5:3,ks2);
str(d:5:3,ds);
setcolor(yellow);
outtextxy(30,30,ks1);
outtextxy(30,50,ks2);
outtextxy(5,30,'X1=');
outtextxy(5,50,'X2=');
outtextxy(5,10,'Diskriminant=');
outtextxy(110,10,ds);
end
else
outtextxy(10,10,'Net korney');
 
 
readln;
randomize;
setcolor(green);
ym:=1;
xm:=1;
repeat
xm:=xm+10;
ym:=1;
repeat
rm:=random(2);
str(rm,am);
outtextxy(xm,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+50,ym,am);
r:=random(2);
str(rm,am);
outtextxy(xm+100,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+150,ym,am);
r:=random(2);
str(rm,am);
outtextxy(xm+200,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+250,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+300,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+350,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+400,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+450,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+500,ym,am);
rm:=random(2);
str(rm,am);
outtextxy(xm+550,ym,am);
ym:=ym+10;
delay(2000);
until ym>500;
until xm>50;
closegraph;
le:end.
Если сложно то вот код без заставки и с коментарием
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

uses CRT,Graph;
var
dev,mode,i,n,b,c,x,y,x1,y1,p,xm,ym,rm,r,a:integer;
k1,k2,d: real;
ks1,ks2,ds,re,tc,ys,w,s,si,t,am:string;
label le,lec;
begin
writeln('‚ўҐ¤ЁвҐ a ');{Тут написано "введите а"}
readln(a);
writeln('‚ўҐ¤ЁвҐ b ');{Тут написано "введите б"}
readln(b);
writeln('‚ўҐ¤ЁвҐ c ');{Тут написано "введите ц"}
readln(c);{ввод данных}
p:=300;
if a=0 then begin  {обработка данных и выбор способа решения}
if b=0 then  k1:=c
else
k1:=-c/b;
writeln('X=',k1:5:3);
end
else begin
p:=50;
d:=b*b-4*a*c;
if d<0 then
writeln('ЌҐв Є®а*Ґ©')
else  begin
writeln('Diskriminant=',d:5:3);
k1:=(-b+sqrt(d))/(2*a);
k2:=(-b-sqrt(d))/(2*a);
writeln('X1=',k1:5:3);
writeln('X2=',k2:5:3);
end;
end;
writeln('„«п Ї®бв஥*Ёп **¦¬ЁвҐ "Enter", ¤«п ўл室* "Q"');
re:=readkey;
if re='q' then goto le;   
initgraph(dev,mode,'');
dev:=0;
x:=-p;
y:=1;
 
 
setcolor(white);
line(300,50,300,350);{координатные оси}
line(50,200,550,200);
 
 
line(300,50,297,53);{стрелочки координатных осей}
line(300,50,303,53);
line(550,200,547,197);
line(550,200,547,203);
setcolor(green);
outtextxy(303,53,'Y');
outtextxy(553,203,'X');{подписать оси}
outtextxy(302,202,'0');
outtextxy(380,380,'RealHeroes.hut.ru');
outtextxy(10,380,'Press "Enter"');
setcolor(red);
 
repeat
x:=x+1;
y:=x*x*a+x*b+c;
x1:=x+1;
y1:=x1*x1*a+x1*b+c;
line(x+300,-y+200,x1+300,-y1+200);{цикл построения графика}
until x>p;
 
lec:
setcolor(yellow);
if d>=0 then begin
str(k1:5:3,ks1);
str(k2:5:3,ks2);{перевод из числового формата в строковы т.к. оператор ауттекст выводит стринговую переменную}
str(d:5:3,ds);
setcolor(yellow);
outtextxy(30,30,ks1);
outtextxy(30,50,ks2);
outtextxy(5,30,'X1=');
outtextxy(5,50,'X2=');{вывод ответов в графический режим}
outtextxy(5,10,'Diskriminant=');
outtextxy(110,10,ds);
end
else
outtextxy(10,10,'Net korney');
 
 
readln;
closegraph;
le:end.
Добавлено через 18 часов 49 минут
Внимание тем у кого не работает графика при копированиее кода!!!
В папке куда устанавливали паскаль есть папка BGI в которой лежат нужные файлы))
В каждом коде есть строчка
InitGraph( , ,'путь');
там где нписан путь нужно указывать путь к вашей папке BGI, но в пути не должно быть русских букв и пробелов, а также имена папок не должны быть длиннее6 символов) поэтому проще всего сделать как я, а именно создать на любом диске папку tp7 и переместить в нее BGI ) можно BGI просто перенести на любой диск) главное указать правильный путь

Добавлено через 1 минуту
В моем коде место для пути пустое т.е. прога должно находиться в папке бги)

Вернуться к обсуждению:
Графика в Турбо Паскаль Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 21.03.2011, 16:10
Готовые ответы и решения:

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в зависимости от ее...

Графика в Турбо Паскаль
Не могли бы вы посоветовать книгу или дать ссылку на форуме где подробно описана работа с графикой...

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале напишите кто нить полную...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

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

Графика в Турбо Паскаль не работает
Люди помогите плиз. У меня windows 7 когда я пытаюсь запустить программу с модулем graph, на Turbo...

Построение графика функции в турбо-Паскаль
Как построить график данной функции в паскаль?(2*(1+0.7*(sin(10^7*t))*(sin(10^8*t))

Графика в Турбо Паскаль. Нарисовать телефон
Кто может нарисовать такое??

Графика в Турбо Паскаль. Нарисовать мобильный телефон
Помогите написать графику.Нужно нарисовать мобильный телефон

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