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

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

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

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

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

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

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

s = n^x

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

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

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

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

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

program MASSIW1;

Uses CRT;

var a:array[1..1000]of real;

n,i: integer;

x:real;

begin

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

TextColor (06);

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

readln (x);

write('Введiть кiлькiсть чисел(<1000) - ');

readln (n);

for i:=1 to n do

begin

write ('Число [', i, '] = ');

readln(a[i]) ;

end;

for i:=1 to n do

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

TextColor (03);

writeln ('');

for i:=1 to n do

begin

writeln ('Елемент[',i,']в степенi ',x,' буде - ', a[i]:3:3);

end;

readln;

end.

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

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

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

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

'Степiнь пiднесення

INPUT "‚ўҐ¤iвм Єi«мЄiбвм Ґ«Ґ¬Ґвiў ¬ бЁўг - ", N

'Кiлькiсть чисел масиву

DIM A(N)

FOR I = 1 TO N

PRINT "—Ёб«® ("; I; ")= ",

'Число

INPUT A(I)

NEXT I

FOR I = 1 TO N

A(I) = A(I) ^ x

NEXT I

PRINT " "

FOR I = 1 TO N

PRINT "…«Ґ¬Ґв"; I; "ў бвҐЇҐi "; x; " Ўг¤Ґ - "; A(I)

'Елемент[" + i + "] в степенi "+ x + " буде -

NEXT I

INPUT z

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

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

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

x=TextWindow.ReadNumber()

TextWindow.Write( "Кiлькiсть чисел масиву = ")

n=TextWindow.ReadNumber()

For i = 1 To n

TextWindow.Write("Число[" + i +"]= ")

a[i] = TextWindow.ReadNumber()

EndFor

for i=1 to n

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

EndFor

TextWindow.WriteLine(" ")

For i=1 To n

TextWindow.WriteLine("Елемент[" + i + "] в степенi "+ x + " буде - " + Math.Round(a[i]*100)/100)

EndFor

Розв’язування задачі в dev-c++

#include <conio.h>

#include <iostream>

#include <cmath>

int main(void)

{

int i,n;

double x,a[1000];

setlocale(LC_ALL, "");

std::cout << "Степенi чисел\n";

std::cout << "Kiлькiсть чисел (<1000) = ";

std::cin >> n;

std::cout << "Степiнь пiднесення = ";

std::cin >> x;

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

std::cout <<i << "-е число: ";

std::cin >> a[i];

}

std::cout << "\nСтепенi чисел\n";

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

std::cout << pow(a[i],x) << std::endl;}

getch();

return 0;

}

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

#include <stdio.h>

#include <math.h>

int main(void)

{

int i,n;

float x,a[1000];

printf ("Џi¤ҐбҐп ¤® бвҐЇҐп \n");

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

scanf("%d", &n);

printf ( "‚ўҐ¤iвм бвҐЇiм Їi¤ҐбҐп - ");

scanf("%f", &x);

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

{

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

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

}

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

{

printf("\n %f ",pow(a[i-1],x));

}

scanf("\n");

return 0;

}

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

Class Program

Shared Sub Main()

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

Console.Write("Kiлькiсть чисел = ")

Dim n As Integer = Convert.ToInt32(Console.ReadLine())

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

Dim x As Double = Convert.ToDouble(Console.ReadLine())

Console.WriteLine(" ")

Dim nums(n) As Integer

For i As Integer = 1 To nums.Length - 1

Console.Write("{0}-е число: ", i)

nums(i) = Double.Parse(Console.ReadLine())

For i As Integer = 1 To nums.Length - 1

nums(i) = nums(i)^x

Console.WriteLine(" ")

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

For i As Integer = 1 To nums.Length - 1

Console.Write("{0} ", nums(i))

Console.ReadKey()

End Sub

End Class

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

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

N = int(input('Kiлькiсть чисел = '))

x = int(input('Степiнь пiднесення = '))

a= [float (input('Введіть елемент массиву - ')) for i in range(N) ]

print(' ')

for i in range (len(a)):

print('Елемент[',i+1,']в степенi ',x,' буде - ', a[i]**x)

input()

Графічні програми

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

Частина коду

procedure Form1.button2_Click(sender: Object; e: EventArgs);

begin

Close;

end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

var x:real;

i:integer;

a:array[1..5]of real;

begin

x:=StrToFloat(TextBox1.Text);

for i:=1 to 5 do

begin

a[i]:=StrTofloat(richTextBox1.Lines[i-1]);

end;

for i:=1 to 5 do

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

for i:=1 to 5 do

Label4.Text:= FloatTostr(round (a[1]*100)/100)+ (' ')

+ FloatTostr(round (a[2]*100)/100)+ (' ')

+ FloatTostr(round (a[3]*100)/100)+ (' ')

+ FloatTostr(round (a[4]*100)/100)+ (' ')

+ FloatTostr(round (a[5]*100)/100)+ (' ');

end;

procedure Form1.button3_Click(sender: Object; e: EventArgs);

begin

Label4.Text:= (' ');

TextBox1.Text:= (' ');

richTextBox1.Text:= (' ');

end;

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

Частина коду

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.FormWindowStateChange(Sender: TObject);

begin

WindowState := wsNormal;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:=('');

Memo1.Text:=('');

Memo2.Text:=('');

end;

procedure TForm1.Button1Click(Sender: TObject);

var x:real;

i:integer;

a:array[1..5]of real;

begin

x:=StrToFloat(Edit1.Text);

for i:=1 to 5 do

a[i]:=StrToFloat(Memo1.Lines[i-1]);

for i:=1 to 5 do

Memo2.Lines.Append(FloatToStr(power(a[i],x)));

end;

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

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

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

Page updated

Google Sites

Report abuse