понеділок, 15 жовтня 2018 р.

9 клас. Алгоритмт опрацювання табличних величин.

Вправа 2. Середнє значення (с.123).

procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
   s:real;
   a:array[1..10] of real;
begin
     Randomize;
     StringGrid1.Cells[0,1]:='a';
     s:=0;
     for i:=0 to 9 do
         begin
           a[i+1]:=random +9.0;
           StringGrid1.Cells[i+1,0]:=IntToStr(i+1);
           StringGrid1.Cells[i+1,1]:=FloatToStrF(a[i+1],ffFixed,3,2 );
           s:=s+a[i+1];
         end;
     s:=s/10;
     Edit1.Text:=FloatToStrF(a[i+1],ffFixed,3,2 ) ;
end;     
     
Завдання:
1. Внесіть зміни у програму, щоб у таблиці числа відображалися з трьома цифрами після коми, а результат - з однією.
2. Доповніть програму, щоб у вікні відображалася, крім середнього значення, ще й :
     а) сума чисел.
     б) кількість чисел, менших за 9.5

Немає коментарів:

Дописати коментар