Implementation
{$R *.dfm}
procedure TForm2.RadioButton1Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if radiobutton1.Checked=true then begin label1.Caption:='+'
end;
c:=a+b;
edit3.Text:=floattostr(c);
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if radiobutton2.Checked=true then begin label1.Caption:='-'
end;
c:=a-b;
edit3.Text:=floattostr(c);
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if radiobutton3.Checked=true then begin label1.Caption:='*'
end;
c:=a*b;
edit3.Text:=floattostr(c);
end;
procedure TForm2.RadioButton4Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
if radiobutton4.Checked=true then begin label1.Caption:='/'
end;
if b=0 then
edit3.Text:=('на 0 делить нельзя!!!’) else
begin
c:=a/b;
edit3.Text:=floattostr(c);
end;
end;
end.
Заключение!
В ходе прохождения учебной практики по десциплине «Основы алгоритмизации и программирования»
Были рассмотрены и решены задачи по следующим темам
Ввод и вывод данных, оператор присваивания
|
Целые числа
|
Логические выражения
|
Условный оператор
|
Оператор выбора
|
Цикл с параметром
|
Цикл с условием
|
Цикл с условием
|
Последовательности
|
Вложенные циклы
|
Процедуры с числовыми параметрами
|
Процедуры с числовыми параметрами
|
Дополнительные задания на процедуры и функции
|
Минимумы и максимумы
|
Формирование массива и вывод его элементов
|
Изменение элементов массива
|
Сортировка массива |
Посимвольный анализ и преобразование строк. Строки и числа |
Калькулятор |
Вычислитель Формирование массива и вывод его элементов. А так же разработаны приложени ‘вычислитель и калькулятор’ в которых реализованны основные орифметические операции. Все задачи реализованны в интрегриванной среде разработки программ rad studio2010 ,borland delphi7.
|