рефераты конспекты курсовые дипломные лекции шпоры
- Раздел Программирование
- /
- Текст программы
Реферат Курсовая Конспект
Текст программы
Текст программы - раздел Программирование, Программирование на языке Паскаль Unit Main; Interface Uses Windows, Messages, Sysut...
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TMainForm = class(TForm)
Figure: TRadioGroup;
ra: TEdit;
rb: TEdit;
ta: TEdit;
tb: TEdit;
tc: TEdit;
cr: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
Image: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.Button1Click(Sender: TObject);
var
a,b,c,r,p,s,h:Real;
begin
with Image.Picture.Bitmap do
begin
Width:=0; { Для очистки изображения }
Height:=0;
Width:=Image.Width;
Height:=Image.Width;
end;
case Figure.ItemIndex of
0:begin
a:=StrToFloat(ra.Text);
b:=StrToFloat(rb.Text);
if (a<=0) or (b<=0) then
ShowMessage('Некорректный ввод')
else
begin
ShowMessage('Площадь прямоугольника равна '+
FloatToStr(a*b));
with Image.Picture.Bitmap.Canvas do
Rectangle(0,0,Round(a),Round(b));
end;
end;
1:begin
a:=StrToFloat(ta.Text);
b:=StrToFloat(tb.Text);
c:=StrToFloat(tc.Text);
if (a<=0) or (b<=0) or (c<=0) then
ShowMessage('Некорректный ввод')
else
if (a+b<=c) or (b+c<=a) or (a+c<=b) then
ShowMessage('Треугольник не существует')
else
begin
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
ShowMessage('Площадь треугольника равна '+
FloatToStr(s));
with Image.Picture.Bitmap.Canvas do
begin
MoveTo(0,0);
LineTo(Round(a),0);
h:=2*s/a;
LineTo(Round(Sqrt(Sqr(c)-Sqr(h))),
Round(h));
LineTo(0,0);
end;
end;
end;
2:begin
r:=StrToFloat(cr.Text);
if r<=0 then
ShowMessage('Некорректный ввод')
else
begin
ShowMessage('Площадь круга равна '+
FloatToStr(Pi*Sqr(r)));
with Image.Picture.Bitmap.Canvas do
Ellipse(0,0,Round(2*r),Round(2*r));
end;
end;
end;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
Close;
end;
end.
– Конец работы –
Эта тема принадлежит разделу:
Программирование на языке Паскаль
ГОУ Уральский государственный технический университет УПИ... Программирование на языке Паскаль Лабораторный практикум по...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Текст программы
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
| Твитнуть |
Хотите получать на электронную почту самые свежие новости?
Подпишитесь на Нашу рассылку
Реклама
Информация в виде рефератов, конспектов, лекций, курсовых и дипломных работ имеют своего автора, которому принадлежат права. Поэтому, прежде чем использовать какую либо информацию с этого сайта, убедитесь, что этим Вы не нарушаете чье либо право.
© copyright 1999 - 2024 allRefs.net. Все права защищены. Страница сгенерирована за: 0.019 сек.
Новости и инфо для студентов