- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
Задача №3. Задача №4. procedure TForm1.Button1Click(Sender: TObject);. Задача №5. Задача №6
Задача №3
Дан один корень квадратного уравнения и коэффициент С. Известно, что коэффициент А равен 1. Найти второй корень и коэффициент В.
| procedure TForm4.Button1Click(Sender: TObject); Var X1,X2,B,C:extended; begin X1:=StrToFloat(Edit1.Text); C:= StrToFloat(Edit2.Text); X2:= (C/X1); Edit3.Text:=FloatToStr(X2); B:= -(X1+X2); Edit4.Text:=FloatToStr(B); end; procedure TForm1.Button2Click(Sender: ТObject); begin Edit1.Text:=''; Edit2.Text:=''; end; |
Задача №4
Дано количество секунд с начала суток. Вычислить текущее время в виде количества часов, минут и секунд.
| procedure TForm1.Button2Click(Sender: ТObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=IntToStr( StrToInt ( Edit1.Text) div 3600);
Edit3.Text:= IntToStr((StrToInt( Edit1.Text)-StrToInt(Edit2.Text) *3600) div 60);
Edit4.Text:= IntToStr(StrToInt(Edit1.Text)- StrToInt(Edit2.Text)*3600-StrToInt(Edit3.Text)*60);
end;
