Стр. 130 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
130
(Length(Edit3.Text)=0) then
begin
ShowMessage('Введите данные во все поля!!!');
exit;
end;
if RadioButton1.Checked then
dohod:=summ*(pr/100)*(srok/360)
else
begin
buf:=summ;
for i:=1 to srok do
buf:=buf+buf*(pr/100);
dohod:=buf-summ;
end;
summ:=summ+dohod;
Label4.Caption:=’Доход: ‘+FloatToStrF(dohod,ffGeneral,9,2)+#13+
‘Сумма в конце срока вклада: ‘+FloatToStrF(summ,ffGeneral,9,2);
Edit1.SetFocus;
end;
end.
12. Сохраним проект в папке Доходы
Пример 8.2 (Выполнить самостоятельно)
Разработать приложение, которое вычисляет сопротивление электриче-
ской цепи, состоящей из двух сопротивлений. Сопротивления могут быть со-
единены последовательно (R=R1+R2) или параллельно (R=(R1*R2)/(R1+R2)).
Здесь R – полное сопротивление цепи. Приложение должно быть спроектиро-
вано таким образом, чтобы в полях R1 и R2 можно было ввести только вещест-
венные числа. Рекомендуемый вид формы приведен на рис. 8.4. Сохранить про-
ект в папке Сопротивление.
Рис. 8.4
Пример 8.3 (Выполнить самостоятельно)
Разработать приложение, которое переводит массу из килограмм в фунты
или наоборот (1 фунт=0.4095 кг и 1 кг=2.442 фунта). Программа должна быть