Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Массив: элементы, следующие за максимумом, заменить на минимум http://www.cyberforum.ru/turbo-pascal/thread56257.html
В массиве из 10 элементов, элементы следующие за максимомум заменить на минемум.
Turbo Pascal Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица 4Х5. Найти max среди нечетных отрицательных элементов каждого столбца. http://www.cyberforum.ru/turbo-pascal/thread56253.html
Turbo Pascal найти
if s='001' then write ('1'); В S выводится число вещественное. как то нужно сделать если встретили 001 то заменяем его на 1 . и так во всей строке..
Числа Turbo Pascal
if (s4=1) then insert('00',s,s1); нужно переписать чтоб вместо 1 были все нечетные числа .. if (s4=2) then insert('00',s,s1); нужно переписать чтоб вместо 2 были все четные числа ..
Turbo Pascal Перевод из двоичной системы в десятеричную. http://www.cyberforum.ru/turbo-pascal/thread56144.html
дано число в двоичной системе проверить правильность ввода этого числа(в его записи должны быть 0 и 1).если число введено неверно повторить ввод.при правильном вводе перевести число в десятичную...
Turbo Pascal Строки и телефонные номера. Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую... подробнее
unlucky
37 / 37 / 28
Регистрация: 23.11.2009
Сообщений: 103
08.12.2009, 02:46 0

Графика в Турбо Паскаль

08.12.2009, 02:46. Просмотров 210478. Ответов 157
Метки (Все метки)

Ответ

Хоть и глупая прога но всё же)) моя лаба на графф
после нажатия Enter едет лыжник класическим стилем)
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
uses crt,graph;
var
i,d,m:integer;
k:integer;
p:char;
begin
d:=detect;
initgraph(d,m,'');
cleardevice;
circle(200,225,20);
circle(200,200,50);
circle(400,225,20);
circle(400,200,50);
arc(300,300,180,359,100);
p:=readkey;
if p=#13 then
begin
for i:=1 to getmaxx do
begin
k:=k+10;
cleardevice;
setcolor(red);
line(5+k,300,50+k,300);
line(25+k,300,25+k,265);
line(20+k,300,25+k,280);
line(25+k,275,40+k,270);
line(40+k,270,35+k,300);
line(25+k,275,33+k,280);
line(33+k,280,13+k,300);
circle(25+k,260,5);
circle(23+k,260,1);
circle(27+k,260,1);
delay(15000);
cleardevice;
line(5+k,300,50+k,300);
line(25+k,300,25+k,265);
line(35+k,300,25+k,280);
line(25+k,275,38+k,275);
line(42+k,285,5+k,300);
line(25+k,275,42+k,285);
line(38+k,275,25+k,300);
circle(25+k,260,5);
circle(23+k,260,1);
circle(27+k,260,1);
delay(15000);
clrscr;
if k>getmaxx then k:=1;
if keypressed then break;
end;
end;
closegraph;
readkey
end.


Вернуться к обсуждению:
Графика в Турбо Паскаль
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2009, 02:46
Готовые ответы и решения:

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

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

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

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

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

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