Середнє арифметичне елементів двомірнрго масиву

I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів

Вхідні дані: числa.

Кінцеві результати: середнє арифметичне чисел.

II етап. Побудова інформаційної моделі

Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо середнє арифметичне чисел.

Ці формули виглядатимуть так:

s = (∑а_іj )/n

III етап. Вибір програмних засобів для розв’язування задачі

Прикладним програмним засобом, який можна використати для розв’язування задачі, може бути, наприклад, програма-калькулятор або табличний процесор. Або можна скласти спеціальну програму для розв’язування саме цієї задачі, використовуючи одну з мов програмування.

IV етап. Складання алгоритму розв’язування задачі

V етап. Отримання комп’ютерної моделі

Розв’язування задачі в Pascal ABC.NET

program MASSIW6;

Uses CRT;

var a: array[1..2000, 1..2000] of real;

n, m, i, j: integer;

sa, s: real;

begin

writeln('Середнє арифметичне масиву');

TextColor (06);

write('Введiть кiлькiсть рядкiв таблицi (<2000)- ');

readln(n);

write('Введiть кiлькiсть стовпчикiв таблицi -(2000)- ');

readln(m);

writeln('Введiть значення елементiв таблицi порядково ');

writeln('В кiнцi кожного елемента натиснiть Enter ');

for i:=1 to n do

begin

for j:=1 to m do

readln(a[i, j]);

writeln;

end;

s := 0;

for i:= 1 to n do

for j:=1 to m do

begin

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

end;

sa:=s/(n*j);

TextColor (03);

writeln ('');

writeln ('Середнє арифметичне = ',sa);

readln;

end.

Розв’язування задачі в C

#include <stdio.h>

int main(void)

{

int i,j,n,m;

float sa,s,a[100][100];

printf ("CҐаҐ¤мҐ аЁд¬ҐвЁзҐ Ґ«Ґ¬Ґвiў ¬ бЁўг \n");

printf ( "‚ўҐ¤iвм Єi«мЄiбвм ап¤Єiў ¬ бЁўг (<100) - ");

scanf("%d", &n);

printf ( "‚ўҐ¤iвм Єi«мЄiбвм бв®ўЇжiў ¬ бЁўг (<100) - ");

scanf("%d", &m);

for (i = 1; i <= n; i++)

{

for (j = 1; j <= m; j++)

{

printf("…«Ґ¬Ґв [%d] [%d] = ",i,j);

scanf("%f", &a[i][j-1]);

}}

s = 0;

for (i = 1; i <= n; i++)

{

for (j = 1; j <= m; j++)

{

s = s + a[i][j-1]; } }

sa=s/(m*n);

printf("\nCҐаҐ¤мҐ аЁд¬ҐвЁзҐ Ґ«Ґ¬Ґвiў ¬ бЁўг = %f ",sa);

scanf("\n");

return 0;

}

Розв’язування задачі в C#

using System;

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Середнє арифметичне масиву");

Console.Write("Kiлькiсть рядкiв таблицi = ");

int n1 = Convert.ToInt32(Console.ReadLine());

Console.Write("Kiлькiсть стовпцiв таблицi = ");

int n2 = Convert.ToInt32(Console.ReadLine());

Console.WriteLine(" ");

int s =0;

int[,] num = new int[n1,n2];

for (int i = 0; i < n1; i++)

{

for (int j = 0; j < n2; j++)

{

Console.Write(i+1+" рядок "+(j+1)+" стрiчка: ");

num[i,j] = Int32.Parse(Console.ReadLine());

}

Console.WriteLine();

}

for (int i = 0; i < n1; i++)

{

for (int j = 0; j < n2; j++)

{

num[i,j] = s=s+num[i,j];

}

double sa=s/n1/n2;

Console.WriteLine(" ");

Console.WriteLine("Середнє арифметичне = "+ sa);

Console.ReadKey();

}

Розв’язування задачі в Qbasic

PRINT "‘ҐаҐ¤мҐ аЁд¬ҐвЁзҐ Ґ«Ґ¬Ґвiў ¬ бЁўг "

'Середнє арифметичне елементiв масиву

INPUT "‚ўҐ¤iвм Єi«мЄiбвм ап¤Єiў - ", N

'Кiлькiсть чисел рядка

INPUT "‚ўҐ¤iвм Єi«мЄiбвм бв®ўжiў - ", M

'Кiлькiсть чисел стовпця

DIM A(N, M)

FOR I = 1 TO N

FOR J = 1 TO M

PRINT "‚ўҐ¤iвм Ґ«Ґ¬Ґв ("; I; J; ")=";

'Число

INPUT A(I, J)

NEXT J

NEXT I

s = 0

FOR I = 1 TO N

FOR J = 1 TO M

s =s +A(I, J)

NEXT J

NEXT I

sa = s / i

PRINT " "

PRINT "‘ҐаҐ¤мҐ аЁд¬ҐвЁзҐ Ґ«Ґ¬Ґвiў = "; sa

'Середнє арифметичне елементiв

INPUT z

Розв’язування задачі в SMALLBASIK

TextWindow.WriteLine("Середнє арифметичне масиву")

TextWindow.Write( "Кiлькiсть рядкiв масиву = ")

n=TextWindow.ReadNumber()

TextWindow.Write( "Кiлькiсть стовпцiв масиву = ")

m=TextWindow.ReadNumber()

For i = 1 To n

For j = 1 To m

TextWindow.Write("Елемент[" + i + "]["+ j + "] буде - ")

a[i][j] = TextWindow.ReadNumber()

EndFor

s = 0

TextWindow.WriteLine(" ")

For i=1 To n

For j = 1 To m

s = s +(a[i][j])

EndFor

a=(i-1)*(j-1)

sa=s/a

TextWindow.WriteLine(" ")

TextWindow.Write("Середнє арифметичне масиву = ")

TextWindow.Write (sa)

VI етап. Дослідження отриманих результатів на реальність і на відповідність умові

Після одержання підсумкової програми маємо проаналізувати її реальність.

Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки.

Page updated

Google Sites

Report abuse