Составить программу, которая выполняет чертеж одной деталей и вычислить ее площадь

@Tachi_ · Регистрация: 24.01.2011

Author24 — интернет-сервис помощи студентам

Помогите с решением первой (а) и второй задачи (б).

@Puporev · 25.01.2011, 16:25

а)

Pascal

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,yc+20,'S='+st);
end.

@Tachi_ · 26.01.2011, 18:18 **[ТС]**

Спасибо!

@Tachi_ 0 / 0 / 0 Регистрация: 24.01.2011 Сообщений: 5
		1
	Составить программу, которая выполняет чертеж одной деталей и вычислить ее площадь 24.01.2011, 21:09. Показов 35304. Ответов 2 Метки нет (Все метки) Помогите с решением первой (а) и второй задачи (б). Миниатюры 0

@Tachi_ 0 / 0 / 0 Регистрация: 24.01.2011 Сообщений: 5
	26.01.2011, 18:18 [ТС]	3
	Спасибо! 0

Составить программу, которая выполняет чертеж одной деталей и вычислить ее площадь

Решение