Содержание
- 2. Для решения примеров необходимо использовать функции IntToStr ( ) (перевод числа из целого в строчный тип)
- 3. Сделать так, чтобы калькулятор работал и с вещественными числами
- 4. var ……………. a,b,c:real; …………… procedure TForm1.Button1Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a+b); end;
- 5. procedure TForm1.Button2Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a-b); end; procedure TForm1.Button3Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a*b); end;
- 6. Создать приложение для вычисления суммы трех любых чисел . Продумать графическое оформление (изменить фон формы)
- 7. var …………….. a,b,c:real; ………………. procedure TForm1.Button1Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); c:=strtofloat(Edit3.Text); Edit4.Text:=floattostr(a+b+c); end; procedure TForm1.Button2Click(Sender: TObject);
- 8. Написать программу, которая по введенному числу выводит его название. Продумать графическое оформление.
- 9. ………….. procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text='1' then Edit2.Text:='Один'; if Edit1.Text='2' then Edit2.Text:='Два'; if Edit1.Text='3' then
- 10. Переключатели и флажки
- 13. procedure TForm1.Button1Click(Sender: TObject); begin if radiobutton1.checked=true then label2.caption:='Молодец!' ; if radiobutton1.checked=false then label2.caption:='Жаль!' ; end;
- 14. Создайте чистую форму. На форме разместите и настройте компоненты: Label1 - название проекта; Label2, Label3 –
- 15. Выбор необходимых компонентов и разработка алгоритмов обработки компонентов
- 18. Скачать презентацию