Ли отчет 1


fgfg

Лист

Изм

Лист

№ докум

Подпись

Дата

2 СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Постановка задачи №1

Задача Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Выбрать действие (RadioGroup) и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат. 

2.1.1 Таблица Идентификаторов

Таблица компонентов задачи №1 представлена на таблице 1.

Таблица 1 – Таблица компонентов

переменная

Назначение

Тип



A,b

Ввод



Integer

с

Вывод

Real

Начало

2.1.2 Блок-схема алгоритма

C:= a+b

C:=a/b

C:=a*b

C:=a-b

C

If radio button4

If radio button3

If radio button2

Конец

If radio button1

A, B

2.1.3 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

c:real;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

begin

if RadioButton1.Checked then

c:=a+b;

if RadioButton2.Checked then

c:=a-b;;

if RadioButton3.Checked then

c:=a*b;

if RadioButton4.Checked then

c:=a/b;

end;

label1.caption:=floattostr(c);

end;

end.

2.1.4 Контрольный пример




Предыдущий:

Следующий: