В Delphi создать программу вычисления гипотенузы по двум катетам

Дата добавления: 2014-11-27; просмотров: 1924; Нарушение авторских прав

1. Магда Ю.С. UNIX для студента [Текст] / Ю.С. Магда; Санкт-Петербург, 2007.- 480 с.

2. Белломо М. UNIX. Наглядний курс освоения операционных систем [Текст] / М. Белломо; М; С.П.; К., 2001.- 336 с.

3. Карпов В.Е. Основы операционных систем. Лекции и семинары [Текст] / В.Е. Карпов, К.А. Коньяков; М.: Intel, 2005.- 536 с.

4. Керниган Б.В., Пайк Р. UNIX – универсальная середа программирования [Текст] / Б.В.М. Керниган, Р. Пайк; М.: Финансы и статистика, 1992.- 304 с.

5. Олифер Н.А., Олифер В.Г. Сетевые операционные системы: [Электронный курс].- режим доступу http://www.citmgu.ru/.

6. Робачевский А.М. Операционная система UNIX [Текст] / А.М. Робачевский; Спб: Санкт-Петербург, 1999.- 528 с.

7. Карпов В.Е. Основы операционных систем. Курс лекций. Учебное пособие [Текст] / В.Е. Карпов, К.А. Коньяков; Интернет-университет информационных технологий, 2005.- 632 c.

8. Холмагоров А.М. Тонкая настройка Windows XP. [Текст] / А.М. Холмагоров; СПб: Санкт-Петербург, 2006.- 288 с.: ил.

9. Бруй В.В. LINUX-сервер: пошаговые инструкции инсталляции и настройки. [Текст] / В.В. Бруй, С.В. Карлов; М.: Изд-во СИП РИА, 2003.- 572 с.

10. Сивер Э., Спейнауэр С., Фиггинс С., Хекман Д. Linux. Справочник.: Пер. с англ. [Текст] / Э.Сивер; СПб: Символ-Плюс, 2001.- 912 с.: ил.

11. Уильям Р. Станек. Microsoft Windows Server 2003. Справочник администратора: Пер. с англ. [Текст] / Р.С. Уильям; М.: Издательско-торговый дом «Русская Редакция», 2003.- 640 с.: ил.

12. Эбен М. Free BSD. Администрирование: искусство достижения равновесия. Энциклопедия пользователя [Текст] / М. Эбен, Б. Таймэн; ДиаСофтЮП, 2003.- 768 с.

В Delphi создать программу вычисления гипотенузы по двум катетам

(Должны быть использованы кнопки (3), окна редактирования (2) и метки (5))

Процедура для кнопки «ВЫЧИСЛИТЬ»: procedure TForm1.Button2Click(Sender: TObject); var a,b,c: real; begin a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); c := Sqrt(a*a + b*b); Label5.Caption := FloatToStrF(c,ffFixed,4,2) end; Процедура для кнопки «ОЧИСТИТЬ»: procedure TForm1.Button1Click(Sender: TObject); begin Label5.Caption := ''; Edit1.Text := ''; Edit2.Text := ''; end;

1а

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

end;

<== предыдущая лекция	\|	следующая лекция ==>
Використана література	\|	В Delphi создать программу вычисления площади поверхности нагрева, имеющей форму прямоугольного треугольника по двум катетам