Вопрос по информатике:
ДАЮ 40 БАЛЛОВ!!! Составьте программу, которая выполняет чертёж из деталей.
Пожаловаться
- 08.08.2018 17:40
- Информатика
- remove_red_eye 5059
- thumb_up 15
Ответы и объяснения 1
Uses graphABC;
var xc,yc,a,b,r:integer;
s:real;
st:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
a:=240;
b:=120;
r:=60;
setpenwidth(3);
arc(xc,yc-r,r,180,360);
line(xc-b,yc-r,xc-r,yc-r);
line(xc+b,yc-r,xc+r,yc-r);
line(xc-b,yc-r,xc-b,yc+r);
line(xc+b,yc-r,xc+b,yc+r);
line(xc-b,yc+r,xc+b,yc+r);
s:=a*b-pi*r*r/2;
str(s:0:2,st);
textout(xc-30,y+20,'S='+st);
end.
var xc,yc,a,b,r:integer;
s:real;
st:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
a:=240;
b:=120;
r:=60;
setpenwidth(3);
arc(xc,yc-r,r,180,360);
line(xc-b,yc-r,xc-r,yc-r);
line(xc+b,yc-r,xc+r,yc-r);
line(xc-b,yc-r,xc-b,yc+r);
line(xc+b,yc-r,xc+b,yc+r);
line(xc-b,yc+r,xc+b,yc+r);
s:=a*b-pi*r*r/2;
str(s:0:2,st);
textout(xc-30,y+20,'S='+st);
end.
Пожаловаться
- 09.08.2018 04:39
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы