Xreferat.com » Рефераты по информатике и программированию » Лабораторная работа по информатике ( Задачи )

Лабораторная работа по информатике ( Задачи )

‹ Ў®а в®а­ п а Ў®в  1

‘?‘’…Њ› ‘—?‘‹…Ќ?џ
ЏђЂ‚?‹Ђ Џ…ђ…‚Ћ„Ђ —?‘…‹ ?‡ Ћ„ЌЋ‰ ‘?‘’…Њ› ‘—?‘‹…Ќ?џ ‚ „ђ“ѓ“ћ

– Ґ « м а   Ў ® в л . ?§г祭ЁҐ бЁб⥬ бзЁб«Ґ­Ёп, ЁбЇ®«м§гҐ-
¬ле ў ўлзЁб«ЁвҐ«м­®© вҐе­ЁЄҐ Ё Їа ўЁ« ЇҐаҐў®¤  зЁбҐ« Ё§ ®¤­®©
бЁб⥬л бзЁб«Ґ­Ёп ў ¤агЈго.

ЏаЁ ЁбЇ®«м§®ў ­ЁЁ ќ‚Њ бгйҐб⢥­­л¬ пў«пҐвбп §­ ­ЁҐ бЁб⥬
бзЁб«Ґ­Ёп. ‘Ёб⥬л бзЁб«Ґ­Ёп, Є®в®ал¬Ё ¬л Ї®«м§гҐ¬бп ў ­ бв®п饥
ўаҐ¬п, ®б­®ў ­л ­  ¬Ґв®¤Ґ, ®вЄал⮬ Ё­¤гббЄЁ¬Ё ¬ вҐ¬ вЁЄ ¬Ё ®Є®-
«® 400 Ј. ­.н. Ђа Ўл бв «Ё Ї®«м§®ў вмбп Ї®¤®Ў­®© бЁб⥬®©, Ё§-
ўҐбв­®© Є Є  а ЎбЄ п бЁб⥬  бзЁб«Ґ­Ёп ®Є®«® 800 Ј.­.н.,   ЇаЁ-
¬Ґа­® ў 1200 Ј.­.н. ҐҐ ­ з «Ё ЇаЁ¬Ґ­пвм ў …ўа®ЇҐ Ё ­ §лў ов ¤Ґ-
бпвЁз­®© бЁб⥬®© бзЁб«Ґ­Ёп.
?§ўҐбв­л ¤агЈЁҐ бЁб⥬л бзЁб«Ґ­Ёп, ®б­®ў ­­лҐ ­  вҐе ¦Ґ
ЇаЁ­жЁЇ е, зв® Ё ¤ҐбпвЁз­ п,- ¤ў®Ёз­ п, ў®б쬥аЁз­ п Ё иҐбв­ ¤-
ж вЁаЁз­ п. Ћ­Ё ®Ўлз­® ЁбЇ®«м§говбп ў ќ‚Њ, Ї®бЄ®«мЄг ўлзЁб«Ё-
⥫м­лҐ ¬ иЁ­л Ї®бв஥­л ­  б奬 е б ¤ўг¬п гбв®©зЁўл¬Ё б®бв®п­Ё-
п¬Ё. ‚ ­ бв®п饩 « Ў®а в®а­®© а Ў®вҐ ЇаҐ¤« Ј Ґвбп Ё§гзЁвм гЄ -
§ ­­лҐ бЁб⥬л бзЁб«Ґ­Ёп,   в Є¦Ґ ¬Ґв®¤л ЇаҐ®Ўа §®ў ­Ёп зЁбҐ« Ё§
®¤­®© бЁб⥬л бзЁб«Ґ­Ёп ў ¤агЈго.

Ћ Ї Ё б   ­ Ё Ґ «   Ў ® а   в ® а ­ ® © а   Ў ® в л

‹ Ў®а в®а­ п а Ў®в  ЇаҐ¤бв ў«Ґ­  ®Ўгз о饩 Їа®Ја ¬¬®©, а -
Ў®в  б Є®в®а®© ®бгйҐбвў«пҐвбп ў Ё­вҐа ЄвЁў­®¬ ०Ё¬Ґ. (Џа®Ја ¬¬ 
а §а Ў®в ­  Ї®¤ агЄ®ў®¤бвў®¬ ¤®жҐ­в  Є дҐ¤ал “?’ќ‘ ‚.Њ. „ҐапЎЁ­ )
‡ ЇгбЄ Їа®Ја ¬¬л ®бгйҐбвў«пҐвбп Ё§ ¤ЁаҐЄв®аЁЁ PEREVOD1,
Ё­ЁжЁЁа®ў ­ЁҐ¬ д ©«  maindm.exe
‚ᥠ¤Ґ©бвўЁп, Є®в®алҐ ­Ґ®Ўе®¤Ё¬® ўлЇ®«­Ёвм ў 室Ґ а Ў®вл
®ва ¦ овбп ­ҐЇ®б।б⢥­­® ­  нЄа ­Ґ, «ЁЎ® Ёе ®ЇЁб ­Ёп ¬®Јгв
Ўлвм Ї®«гзҐ­л Ё­ЁжЁЁа®ў ­ЁҐ¬ ¬Ґ­о "Help".

‘ ® ¤ Ґ а ¦   ­ Ё Ґ ® в з Ґ в  

1.Ља вЄ®Ґ ®ЇЁб ­ЁҐ ®б®ЎҐ­­®б⥩ Ё§г祭­ле бЁб⥬ бзЁб«Ґ­Ёп.
2.ђҐ§г«мв вл ЇаҐ®Ўа §®ў ­Ёп зЁбҐ« Ё§ ®¤­®© бЁб⥬л бзЁб«Ґ-
­Ёп ў ¤агЈго.

Љ ® ­ в а ® « м ­ л Ґ ў ® Ї а ® б л

1.—Ґ¬ ®в«Ёз овбп Ї®§ЁжЁ®­­лҐ бЁб⥬л бзЁб«Ґ­Ёп ®в ­ҐЇ®§ЁжЁ-
®­­ле?
2.Љ Є ¬®¦­® ®Ўкпб­Ёвм Їа ўЁ«  ЇаҐ®Ўа §®ў ­Ёп ¤ў®Ёз­®© бЁб-
⥬л бзЁб«Ґ­Ёп ў ў®б쬥аЁз­го, иҐбв­ ¤ж вЁаЁз­го, ¤ў®Ёз­®-¤Ґбп-
вЁз­го Ё ­ ®Ў®а®в?
3.‚ Є ЄЁе б«гз пе ЇаҐ®Ўа §®ў ­ЁҐ ¤ҐбпвЁз­®© ¤а®ЎЁ ў ¤ў®Ёз-
­го ¬®¦Ґв Ўлвм ўлЇ®«­Ґ­® §  Є®­Ґз­®Ґ зЁб«® и Ј®ў Ё Ї®зҐ¬г?
4.ЏҐаҐўҐ¤ЁвҐ:
101101.101я22я4 2я0 ў ¤ҐбпвЁз­го бЁб⥬г

47я4 10я7 )
0.14я4 10я0 я7 8я0 ў ¤ў®Ёз­го бЁб⥬г
24.31я4 10я7 0


5.ЏҐаҐўҐ¤ЁвҐ:
87.1я4 10я7 )
я78я0 ў ў®б쬥аЁз­го бЁб⥬г;
1011.102я4 2я7 0

124.6я4 8я7 )
я78я0 ў ¤ў®Ёз­го бЁб⥬г;
62.42я4 8я0 я70


6.ЏҐаҐўҐ¤ЁвҐ:
BAD.DAD я416я0 ў ¤ҐбпвЁз­го бЁб⥬г;

374.971я4 10я7 )
я78я0 ў иҐбв­ ¤ж вЁаЁз­го бЁб⥬г;
1011.101101я4 2я7 0

8AF.CB4 я416я0 ў ў®б쬥аЁз­го бЁб⥬г.


‹ Ё в Ґ а   в г а  
1.—Ґа­®ў ‚.ѓ. Њ вҐ¬ вЁзҐбЄЁҐ Ё «®ЈЁзҐбЄЁҐ ®б­®ўл ќ‚Њ. ЊҐв®-
¤ЁзҐбЄЁҐ гЄ § ­Ёп Є б ¬®бв®п⥫쭮© а Ў®вҐ бв㤥­в®ў.-‚Џ?,‚« ¤Ё-
¬Ёа 1992-47б.

Лабораторная работа №1.


Цель работы: Изучение методов визуального программирования в Delphi.


Текст программы:


unit Unit1;


interface


uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Buttons;


type

TForm1 = class(TForm)

ScrollBar1: TScrollBar;

ScrollBar2: TScrollBar;

Shape1: TShape;

ColorDialog1: TColorDialog;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation


{$R *.DFM}


procedure TForm1.Button2Click(Sender: TObject);

begin

if ColorDialog1.Execute then

Form1.Color:=ColorDialog1.Color;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

if colorDialog1.Execute then

Shape1.Brush.Color:=ColorDialog1.Color;

end;


procedure TForm1.ComboBox1Change(Sender: TObject);

begin

Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);

end;


procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Shape1.Width:=ScrollBar1.Position*3;

end;


procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Shape1.Height:=Scrollbar2.Position*2;

end;


procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Close;

end;


end.


Внешний вид программы:


Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: