Мінімальний елемент двомірнрго масиву
Мінімальний елемент двомірнрго масиву
Embedded Files
I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів
Вхідні дані: числa.
Кінцеві результати: мінімальне число .
II етап. Побудова інформаційної моделі
Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо мінімальне число .
Ці формули виглядатимуть так:
A[1,1]=a[min]
If a[I, J]<a[1,1] then A[I, J]=a[min]
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: real;
begin
writeln('М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];
for i:= 1 to n do
for j:=1 to m do
begin
if a[i, j] < min then min:= a[i, j];
end;
TextColor (03);
writeln('Мiннiмальний елемент масиву = ',min:3:3);
readln;
end.
Розв’язування задачі в C
Розв’язування задачі в C
#include <stdio.h>
int main(void)
{
int i,j,n,m;
float min,a[100][100];
printf ("Њ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]);
}}
min = a[1][0];
for (i = 1; i <= n; i++)
{
for (j = 1; j <= m; j++)
{
if (a[i][j-1] < min) min = a[i][j-1]; }}
printf("\nЊii¬ «мЁ© Ґ«Ґ¬Ґв ¬ бЁўг = %f ",min);
scanf("\n");
return 0;
}
Розв’язування задачі в C#
Розв’язування задачі в C#
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("М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 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];
}
}}
Console.WriteLine(" ");
Console.WriteLine("Мiнiмальний елемент масиву = "+ mi);
Console.ReadKey();
}
}
Розв’язування задачі в Qbasic
Розв’язування задачі в Qbasic
PRINT "Њii¬ «мЁ© Ґ«Ґ¬Ґв ¬ бЁўг "
'Мінімум елемент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)
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) < min THEN min = a(i, j)
NEXT j
NEXT i
PRINT " "
PRINT "Њii¬ «мЁ© Ґ«Ґ¬Ґв ¬ бЁўг = "; min
'Мінімум елементiв масиву
INPUT z
VI етап. Дослідження отриманих результатів на реальність і на відповідність умові
Після одержання підсумкової програми маємо проаналізувати її реальність.
Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки.
Page updated
Google Sites
Report abuse