Піднесення до степеня елементів двомірнрго масиву

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

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

Кінцеві результати: степiнь числа .

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

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

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

s = n^x

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

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

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

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

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

program masl;

Uses Crt;

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

n, m, i, j: integer;

x:real;

begin

writeln ('Степенi чисел');

TextColor (06);

write('Введiть степiнь пiднесення - ');

readln (x);

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;

for i:=1 to n do

for j:=1 to m do

a[i, j]:=power(a[i, j],x);

TextColor (03);

writeln('Виведення змiненої таблицi');

for i:=1 to n do

begin

for j:=1 to m do

begin write(a[i, j]:2:2);write(' '); end;

writeln(' ');

end;

readln;

end.

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

PRINT "‘вҐЇҐi зЁбҐ« "

'Степенi чисел

INPUT "‚ўҐ¤iвм cвҐЇiм Їi¤ҐбҐп Ґ«Ґ¬Ґвг ¬ бЁўг - ", x

'Степ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

FOR I = 1 TO N

FOR J = 1 TO M

A(I, J) = A(I, J) ^ x

NEXT J

NEXT I

FOR I = 1 TO N

FOR J = 1 TO M

PRINT A(I, J);

NEXT J

NEXT I

INPUT z

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

PRINT "‘вҐЇҐi зЁбҐ« "

'Степенi чисел

INPUT "‚ўҐ¤iвм cвҐЇiм Їi¤ҐбҐп Ґ«Ґ¬Ґвг ¬ бЁўг - ", x

'Степ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

FOR I = 1 TO N

FOR J = 1 TO M

A(I, J) = A(I, J) ^ x

NEXT J

NEXT I

FOR I = 1 TO N

FOR J = 1 TO M

PRINT A(I, J);

NEXT J

NEXT I

INPUT z

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

TextWindow.WriteLine("Степенi чисел")

TextWindow.Write("Степiнь пiднесення = ")

x=TextWindow.ReadNumber()

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

TextWindow.WriteLine(" ")

For i=1 To n

For j = 1 To m

a[i][j] =Math.power(a[i][j],x)

EndFor

TextWindow.WriteLine(" ")

For i=1 To n

For j = 1 To m

TextWindow.Write(a[i][j] + " ")

EndFor

TextWindow.WriteLine("")

EndFor

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

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

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

Page updated

Google Sites

Report abuse