Середнє арифметичне максимального і мінімального елементів двомірнрго масиву
Середнє арифметичне максимального і мінімального елементів двомірнрго масиву
Embedded Files
I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів
Вхідні дані: числa.
Кінцеві результати: середнє арифметичне чисел (max&min).
II етап. Побудова інформаційної моделі
Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо середнє арифметичне чисел (max&min).
Ці формули виглядатимуть так:
s = (аmax +аmin)/n
III етап. Вибір програмних засобів для розв’язування задачі
Прикладним програмним засобом, який можна використати для розв’язування задачі, може бути, наприклад, програма-калькулятор або табличний процесор. Або можна скласти спеціальну програму для розв’язування саме цієї задачі, використовуючи одну з мов програмування.
IV етап. Складання алгоритму розв’язування задачі
V етап. Отримання комп’ютерної моделі
Розв’язування задачі в Pascal ABC.NET
Розв’язування задачі в Pascal ABC.NET
program mas6;
Uses CRT;
var a: array[1..2000, 1..2000] of real;
n, m, i, j: integer;
min, max, s: real;
begin
writeln('Середнє арифметичне максимуму i мiнiмуму масиву ');
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;
min:= a [ 1,1];
max:= a [ 1,1 ];
for i:= 1 to n do
for j:=1 to m do
begin
if a[i, j] < min then min:= a[i, j];
if a[i, j] > max then max:= a[i, j];
end;
s:= (min + max) / 2;
TextColor (03);
writeln('Середнє арифметичне максимуму i мiнiмуму масиву = ',s:3:3);
readln;
end.
Розв’язування задачі в C
Розв’язування задачі в C
#include <stdio.h>
int main(void)
{
int i,j,n,m;
float min,max,s,a[100][100];
printf ("CҐаҐ¤мҐ аЁд¬ҐвЁзҐ ¬ ЄбЁ¬ «м®Ј® i ¬ii¬ «м®Ј® Ґ«Ґ¬Ґвг ¬ бЁўг \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;
min = a[1][0];
max = a[1][0];
for (i = 1; i <= n; i++)
{
for (j = 1; j <= m; j++)
{
if (a[i][j-1] > max) max = a[i][j-1];
if (a[i][j-1] < min) min = a[i][j-1]; }}
s = (min + max) / 2;
printf("\n‘ҐаҐ¤мҐ аЁд¬ҐвЁзҐ ¬ ЄбЁ¬ «м®Ј® i ¬ii¬ «м®Ј® Ґ«Ґ¬Ґвг ¬ бЁўг = %f ",s);
scanf("\n");
return 0;
}
Розв’язування задачі в C#
Розв’язування задачі в C#
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Середнє арифметичне максимуму i мiнiмуму масиву");
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[,] 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();
}
double ma = num[1,1];
for (int i = 0; i < n1; i++)
{
for (int j = 0; j < n2; j++)
{
if (num[i,j] > ma) {
ma = num[i,j];
}
}}
double mi = num[1,1];
for (int i = 0; i < n1; i++)
{
for (int j = 0; j < n2; j++)
{
if (num[i,j] < mi) {
mi = num[i,j];
}
}}
double sa=(ma+mi)/2;
Console.WriteLine(" ");
Console.WriteLine("Середнє арифметичне = "+ sa);
Console.ReadKey();
}
}
Розв’язування задачі в Qbasic
Розв’язування задачі в Qbasic
PRINT "‘ҐаҐ¤мҐ аЁд¬ҐвЁзҐ ¬ ЄбЁ¬ «м®Ј® i ¬ii¬ «м®Ј® Ґ«Ґ¬Ґвг ¬ бЁўг "
'Середнє арифметичне максимуму i м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
min = a(1, 1)
max = a(1, 1)
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) < min THEN min = a(i, j)
IF a(i, j) > max THEN max = a(i, j)
NEXT j
NEXT i
s = (min + max) / 2
PRINT " "
PRINT "‘ҐаҐ¤мҐ аЁд¬ҐвЁзҐ ¬ ЄбЁ¬ «м®Ј® i ¬ii¬ «м®Ј® Ґ«Ґ¬Ґвг ¬ бЁўг = "; s
'Середнє арифметичне максимуму i мiнiмуму масиву
INPUT z
VI етап. Дослідження отриманих результатів на реальність і на відповідність умові
Після одержання підсумкової програми маємо проаналізувати її реальність.
Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки.
Page updated
Google Sites
Report abuse