Надо перевести с турбопаскаль на ПаскальАBC или на Пайтон. Помгите , программа старая, но очень прикольная. program rabotanomer5;
uses crt,graph;
var fi,alfa:real;
x,y,gd,gm:integer;
vyhod:boolean;
simbol:char;
procedure road;
begin
setcolor(14);
line(400,100,100,400);
line(400,100,320,100);
line(320,100,20,400);
line(100,400,20,400);
setfillstyle(1,140);
floodfill(322,101,14);
readkey;
end;
procedure circ;
begin
x:=100;y:=200;
setcolor(8);
outtextxy(20,450,'click Enter');
setcolor(2);
circle(x,y,50);
readln;
while x<590 do begin
cleardevice;circle(x,y,50);
x:=x+1;
end;
setcolor(8);
outtextxy(20,450,'click Enter');
readkey;
end;
procedure cub;
var a:byte;
x0,y0,a1x,a1y,a2x,a2y,b1x,b1y,b2x,b2y,c1x,c1y,c2x,c2y,d1x,d1y,d2x,d2y:integer;
a1z,a2z,b1z,b2z,c1z,c2z,d1z,d2z:integer;
r1,r2,prsf,prsa,prcf,prca:real;
begin
a:=80;
x0:=320;y0:=240;
r1:=sqrt(2)a;r2:=a;
fi:=0;alfa:=0;
repeat
prsf:=sin(fi);prcf:=cos(fi);
prsa:=sin(alfa);prca:=cos(alfa);
a1x:=round(r1prsfprsa+r2prca)+x0;
a1y:=round(r1prsfprca+r2prsa)+y0;
a1z:=round(r1prcf)+x0;
a2x:=round(r1prsfprsa-r2prca)+x0;
a2y:=round(r1prsfprca-r2prsa)+y0;
a2z:=round(r1prcf)+x0;
b1x:=round(r1prcfprsa+r2prca)+x0;
b1y:=round(r1prcfprca+r2prsa)+y0;
b1z:=round(-prsfr1)+x0;
b2x:=round(r1prcfprsa-r2prca)+x0;
b2y:=round(r1prcfprca-r2prsa)+y0;
b2z:=round(-prsfr1)+x0;
c1x:=round(-r1prsfprsa+r2prca)+x0;
c1y:=round(-r1prsfprca+r2prsa)+y0;
c1z:=round(-r1prcf)+x0;
c2x:=round(-r1prsfprsa-r2prca)+x0;
c2y:=round(-r1prsfprca-r2prsa)+y0;
c2z:=round(-r1prcf)+x0;
d1x:=round(-r1prcfprsa+r2prca)+x0;
d1y:=round(-r1prcfprca+r2prsa)+y0;
d1z:=round(r1prsf)+x0;
d2x:=round(-r1prcfprsa-r2prca)+x0;
d2y:=round(-r1prcfprca-r2prsa)+y0;
d2z:=round(r1*prsf)+x0;
line(a1z,a1y,a2z,a2y);
line(b1z,b1y,b2z,b2y);
line(c1z,c1y,c2z,c2y);
line(d1z,d1y,d2z,d2y);
line(a1z,a1y,b1z,b1y);
line(a2z,a2y,b2z,b2y);
line(d2z,d2y,c2z,c2y);
line(d1z,d1y,c1z,c1y);
line(a1z,a1y,d1z,d1y);
line(b1z,b1y,c1z,c1y);
line(b2z,b2y,c2z,c2y);
line(a2z,a2y,d2z,d2y);

fi:=fi+0.005;alfa:=alfa+0.003;
cleardevice;
until alfa>10;
end;
begin
gd:=detect;
initgraph(gd,gm,'');
vyhod:=false;
repeat
cleardevice;
setcolor(6);
outtextxy(100,100,'1:yellow road');
outtextxy(100,120,'2:green circle');
outtextxy(100,140,'3:my picture');
outtextxy(100,160,'vyberite cifru ot 1 do 3: ');
simbol:=readkey;
cleardevice;
case simbol of
'1':road;
'2':circ;
'3':cub;
else vyhod:=true;
end;
until vyhod;
closegraph;
end.

Показать ответ

Ответ:

andreyrekvinov

01.06.2020 14:58

№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.

0,0(0 оценок)

Ответ:

uzil1565

19.03.2022 18:11

3. CREATE TABLE

нужны имя полей и тип их данных, например уникальный ID это id = PRIMARY KEY

текст = text , не пустой текст = TEXT NOT NULL ,

числа = REAL,INT время = DATE и т.д

6. SELECT, FROM, GROUP BY, WHERE, ORDER BY, HAVING

7. SELECT - указывает , что извлекать из таблицы, так же может содержать агрегирующие функции и функции времени такие как EXTRACT, DATE_TRUNC

8. FROM - указывает из какой таблицы извлекать, так же можно указать подзапрос

9. WHERE - указывает какие условия нужны для извлечения , которые указаны в SELECT, не может сравнивать агрегирующие функции , для этого есть HAVING, также может содержать подзапрос

10. GROUP BY - групирует по .., HAVING - то же самое , что WHERE , только для агрегирующих функций

11. ORDER BY - использует методы ASC(по возрастанию значений) пример - имя_поле ASC, или DESC(по убыванию значений) - имя_поля DESC

Объяснение:

Будут вопросы напиши в коменты(

0,0(0 оценок)

Популярные вопросы: Информатика