Программа.

procedure TForm1.Button1Click(Sender: TObject);

const n=3;m=4;

var a:array[1..n,1..m]of integer;

i,j,s:integer;

begin

for i:=1 to n do

for j:=1 to m do

a[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);

s:=0;

for i:=1 to n do

for j:=1 to m do begin

if a[i,j]>0 then

s:=s+a[i,j] end;

Label2.Caption:=IntToStr(s)

end;

end.

Задание. Составить блок-схему алгоритма и программу определения значений указанных ниже параметров массива размерностью N×M. Выполнить программу для N=3, M=4.

1. Количество нулей среди элементов массива.

2. Количество отрицательных чисел в массиве.

3. Количество положительных чисел в массиве.

4. Произведение четных элементов массива.

5. Произведение квадратов четных элементов массива.

6. Произведение нечетных элементов массива.

7. Произведение квадратов нечетных элементов массива.

8. Произведение отрицательных элементов массива.

9. Произведение квадратов положительных элементов массива.

10. Произведение квадратов отрицательных элементов массива.

11. Произведение абсолютных значений (модулей) отрицательных элементов массива.

12. Сумма четных элементов массива.

13. Сумма квадратов четных элементов массива.

14. Сумма нечетных элементов массива.

15. Сумма квадратов нечетных элементов массива.

Вопросы

1. Описание двумерных массивов?

2. Описание матриц с использованием описателя раздела type?

3. Операция обращения по индексу?

4. Указать какой оператор цикла чаще всего используется при обработке матриц.

5. Организация ввода двумерного массива (2 способа).

6. Организация вывода двумерного массива.

7. Блок-схема ввода/вывода двумерного массива.

8. Раскрыть на примере структуру программы с массивами.

9. Привести фрагмент программы вычисления (для двумерного массива):

   1. суммы положительных элементов массива;

   2. количества положительных элементов массива;

   3. произведения положительных элементов массива;

   4. максимального элемента массива;

   5. минимального элемента массива;

Лабораторная работа №6 Программирование пользовательских процедур и функций

Задание. Составить блок-схему алгоритма и программу вычисления значений функции, учесть ситуацию, когда выражение не будет иметь решения:

1. для вычисления использовать:

1. подпрограмму процедуру;

2. подпрограмму функцию.

Внешний вид формы:

а) procedure TForm1.Button1Click(Sender: TObject);

var x,y,y1,y2,y3,y4:real;

procedure p(var c:real; a,b:real);

begin

c:=exp(b*ln(a))

end;

begin

x:=StrToFloat(Edit1.Text);

p(y1,x,2);

p(y2,x,1/3);

p(y3,x,1/5);

p(y4,x,3);

y:=(y1+y2)/(pi+y3)-y4;

Label3.Caption:=FloatToStr(y)

end;

end.

b) procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

function st(a,b:real):real;

begin

st:=exp(b*ln(a))

end;

begin

x:=StrToFloat(Edit1.Text);

y:=(st(x,2)+st(x,1/3))/(pi+st(x,1/5))-st(x,3);

Label3.Caption:=FloatToStr(y)

end;

end.

Задание :

Составить программу вычисления значений функции, учесть ситуацию, когда выражение не будет иметь решения.

Варианты заданий

1. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

2. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

3. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

4. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

5. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

6. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

7. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

8. для вычисленияax³+bx²+cx+dиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

9. для вычисленияиспользовать:

   1. подпрограмму процедуру;

   2. подпрограмму функцию.

10. для вычисленияиспользовать:

    1. подпрограмму процедуру;

    2. подпрограмму функцию.

11. для вычисленияиспользовать:

    1. подпрограмму процедуру;

    2. подпрограмму функцию.

12. для вычисленияиспользовать:

    1. подпрограмму процедуру;

    2. подпрограмму функцию.

13. для вычисленияиспользовать:

    1. подпрограмму процедуру;

    2. подпрограмму функцию.

14. для вычисленияиспользовать:

    1. подпрограмму процедуру;

    2. подпрограмму функцию.