Ли отчет 4

Лист

Изм

Лист

№ докум

Подпись

Дата

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

2.4 Постановка задачи № 4

Дано целое число N и набор из N вещественных чисел (Memo). Вывести сумму и произведение чисел из данного набора.

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

Таблица 1-Таблица идентификаторов

Переменная

Назначение

Тип

n

Ввод

Integer

i

Вывод

Byte

Sum,p,r

Вывод

Real

2.4.2 Блок схема

Sum:= 0

P:=1

n

Конец

R:(Random(90)*1:0.5)4,5

Sum , p

For i=o

To 1 do

n>0

Начало

Sum:=sum+n;

P:=p+r

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

procedure TForm1.Button1Click(Sender: TObject);

var

n:Integer;

i:Byte;

sum,p,r:Real;

begin

try

sum:=0;

p:=1;

n:=StrToInt(Edit1.Text);

if n>0 then

for i:=0 to n-1 do

begin

r:=(Random(90)*1.05)/4.5;

Memo1.Lines.Add(FloatToStrf(r,ffNumber,10,2));

sum:=sum+r;

p:=p*r;

end;

end

else

Label1.Caption:=FloatToStrf(sum,ffNumber,10,2);

Label2.Caption:=FloatToStrF(p,ffNumber, 10,2);

except

on EOverflow do

ShowMessage(‘Error1′);

on EIntError do

ShowMessage(‘Error2′);

end;

end;

end.

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





Внимание, только СЕГОДНЯ!

Предыдущий:

Следующий: