Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
mik4009
0 / 0 / 0
Регистрация: 16.12.2015
Сообщений: 3
1

Нужно добавить функцию

24.12.2015, 12:24. Просмотров 148. Ответов 1
Метки нет (Все метки)

Нужно добавить функцию

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
program zadanie_7;
uses crt, graphABC;
var x,y,a,b,c:integer;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
a:=100;
b:=100;
c:=200;
lockdrawing;
repeat
while (b>-100)and not keypressed do
 begin
  clearwindow;
  textout(x-50,20,'завершение любая клавиша');
  setpencolor(clBlue);
  setbrushstyle(bsClear);
  line(x,y+a,x,y-a);
  line(x,y-a,x+b,y-a);
  line(x+b,y-a,x+c,y+a);
  line(x+c,y+a,x,y+a);
  sleep(50);
  b:=b-2;
  c:=c-4;
  redraw;
 end;
while (b<100)and not keypressed  do
 begin
  clearwindow;
  textout(x-50,20,'завершение любая клавиша');
  setpencolor(clBlue);
  setbrushstyle(bsClear);
  line(x,y+a,x,y-a);
  line(x,y-a,x+b,y-a);
  line(x+b,y-a,x+c,y+a);
  line(x+c,y+a,x,y+a);
  sleep(50);
  b:=b+2;
  c:=c+4;
  redraw;
 end;
until keypressed;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 12:24
Ответы с готовыми решениями:

Нужно добавить функцию в программу
program dj; var i,j:byte; summa:real; mat: array of real; ...

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

Нужно добавить подпрограмму
Помогите переделать так, чтоб здесь присутствовала подпрограмма: program...

Массив. Что нужно добавить?
TYPE MAS=ARRAY OF REAL; VAR A,X:MAS; VAR RA:INTEGER; PROCEDURE...

Подскажите как в массив добавить функцию
Рабочий код есть, но не могу переделать с функцией Условие задачи: В...

1
Puporev
Модератор
54583 / 42089 / 29061
Регистрация: 18.05.2008
Сообщений: 99,264
24.12.2015, 14:50 2
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
uses crt, graphABC;
procedure trap(x,y,a,b,c:integer);
begin
textout(x-50,20,'завершение любая клавиша');
setpencolor(clBlue);
setbrushstyle(bsClear);
line(x,y+a,x,y-a);
line(x,y-a,x+b,y-a);
line(x+b,y-a,x+c,y+a);
line(x+c,y+a,x,y+a);
end;
var x,y,a,b,c:integer;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
a:=100;
b:=100;
c:=200;
lockdrawing;
repeat
while (b>-100)and not keypressed do
 begin
  clearwindow;
  trap(x,y,a,b,c);
  sleep(50);
  b:=b-2;
  c:=c-4;
  redraw;
 end;
while (b<100)and not keypressed  do
 begin
  clearwindow;
  trap(x,y,a,b,c);
  sleep(50);
  b:=b+2;
  c:=c+4;
  redraw;
 end;
until keypressed;
end.
Добавлено через 4 минуты
Если нужно именно с функцией, то можно так.
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
program zadanie_7;
uses crt, graphABC;
function trap(x,y,a,b,c:integer):integer;
begin
textout(x-50,20,'завершение любая клавиша');
setpencolor(clBlue);
setbrushstyle(bsClear);
line(x,y+a,x,y-a);
line(x,y-a,x+b,y-a);
line(x+b,y-a,x+c,y+a);
line(x+c,y+a,x,y+a);
trap:=0;
end;
var x,y,a,b,c,t:integer;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
a:=100;
b:=100;
c:=200;
lockdrawing;
repeat
while (b>-100)and not keypressed do
 begin
  clearwindow;
  t:=trap(x,y,a,b,c);
  sleep(50);
  b:=b-2;
  c:=c-4;
  redraw;
 end;
while (b<100)and not keypressed  do
 begin
  clearwindow;
  t:=trap(x,y,a,b,c);
  sleep(50);
  b:=b+2;
  c:=c+4;
  redraw;
 end;
until keypressed;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 14:50

Добавить в программу функцию или процедуру
Добавьте сюда функцию или процедуру uses crt; var n,i:integer; b: array of...

Нужно протабулировать функцию
Нужно:Протабулировать заданную функцию y=b(x) в интервале a b с шагом h...

нужно вычислить функцию
Помогите написать код. Вот задание: Вычислить значение функции. \gamma...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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