Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
BBS-SEREGA
1 / 1 / 1
Регистрация: 28.06.2011
Сообщений: 42
1

блок схему

13.07.2011, 10:39. Просмотров 525. Ответов 2
Метки нет (Все метки)

program bbs;
uses crt,graphABC;
//процедура поворота точки относительно цетра вращенмя
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;

var x0,y0,d,ax,ay,bx,by,k:integer;
aa,ab:real;
begin
hidecursor;
d:=150;
x0:=windowwidth div 2;
y0:=windowheight div 2;
aa:=60;ab:=120;k:=2;
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
repeat
lockdrawing;
clearwindow;
textout(x0-80,10,'Выход - любая клавиша');
Setpencolor(clRed);
line(x0,y0,ax,ay);
line(ax,ay,bx,by);
line(x0,y0,bx,by);
redraw;
delay(50);
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
aa:=aa+k;ab:=ab+k;
until keypressed;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.07.2011, 10:39
Ответы с готовыми решениями:

Составить блок-схему
Составить блок-схему! Задача: Элементы равностороннего треугольника пронумерованы следующим...

Составить блок - схему
program pow; var x: real; n: integer; begin write('n = '); readln(n); if odd(n) then...

Проверить Блок-схему
Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте алгоритм вычисления времени,...

Составить блок схему
Составить блок схему необходимо. Помогите составить блок схему! пожалуйста! Проверить является ли...

Составить Блок-Схему
uses crt; var a,k,p:integer; begin k:=0; a:=2; p:=1; while p<=100 do begin p:=p*a; ...

2
Wertys
1 / 1 / 0
Регистрация: 29.06.2011
Сообщений: 94
13.07.2011, 11:29 2
Вот посмотри. Может прокатит sv.zip
0
BBS-SEREGA
1 / 1 / 1
Регистрация: 28.06.2011
Сообщений: 42
13.07.2011, 11:32  [ТС] 3
не мутная блок схема твоя !!!
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.07.2011, 11:32

Составить блок схему
{task string4} const RusBigLetters=; Spaces=; var s:string; res,k,i:byte; ...

Составить блок схему
помогите составить блок схему. не понимаю их. Определить максимальный и минимальный элементы среди...

Составить блок схему
uses crt; var i,t,s,d,e,k: integer; begin for i:=1000 to 9999 do begin t:=i div 1000;...


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

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

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