Піднесення до степеня
Піднесення до степеня
Embedded Files
I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів
Вхідні дані: додатнє число.
Кінцеві результати: степінь числа.
II етап. Побудова інформаційної моделі
Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо степінь числа.
Ці формули
s = n^x
Крім того, одержані дані бажано округлити до сотих.
III етап. Вибір програмних засобів для розв’язування задачі виглядатимуть так:
Прикладним програмним засобом, який можна використати для розв’язування задачі, може бути, наприклад, програма-калькулятор або табличний процесор. Або можна скласти спеціальну програму для розв’язування саме цієї задачі, використовуючи одну з мов програмування.
IV етап. Складання алгоритму розв'язування задачі.
V етап. Отримання комп'ютерної моделі.
ЗАУВАЖЕННЯ: ЦИКЛ FOR ВИКОРИСТОВУЄТЬСЯ ЛИШЕ В - QBASIK , В ІНШИХ ВИПАДКАХ - СИСТЕМНІ ФУНКЦІЇ
Розв’язування задачі в Pascal ABC.NET
Розв’язування задачі в Pascal ABC.NET
program f;
Uses CRT;
var m,n,x:real;
begin
writeln ('Степенi чисел');
TextColor (06);
write( 'Введiть число, потiм натиснiть Enter - ');
readln(n);
write( 'Введiть степiнь пiднесення, потiм натиснiть Enter - ');
readln(x);
m:= power(n,x);
TextColor (03);
writeln ('Число ',n ,' в степенi ',x,' буде - ',m);
readln;
end.
Розв’язування задачі в QBASIK
Розв’язування задачі в QBASIK
PRINT "C⥯Ґi зЁбҐ«"
'Степені чисел
INPUT "Њ ЄбЁ¬ «мҐ зЁб«® = ", n
'Максимальне число
INPUT "‘⥯iм Їi¤ҐбҐп = ", x
'Степінь піднесення
INPUT "Ља®Є = ", p
'Крок
FOR I = 1 TO n STEP p
PRINT "‘⥯iм зЁб« "; I; " аiўЁ©"; I ^ x
'Степінь числа 'рівний
NEXT
INPUT z
Розв’язування задачі в SMALLBASIK
Розв’язування задачі в SMALLBASIK
TextWindow.WriteLine("Степенi чисел")
TextWindow.Write( "Число = ")
n=TextWindow.ReadNumber()
TextWindow.Write("Степiнь пiднесення = ")
x=TextWindow.ReadNumber()
c=Math.power(n,x)
TextWindow.Write("Число ")
TextWindow.Write(n)
TextWindow.Write(" в степенi ")
TextWindow.Write(x)
TextWindow.Write(" буде - ")
TextWindow.Write(c)
Розв’язування задачі в C
Розв’язування задачі в C
#include <stdio.h>
#include <math.h>
int main(void)
{
float x,n;
printf ("C⥯Ґi зЁбҐ«\n");
printf ( "—Ёб«® = ");
scanf("%f", &n);
printf ( "C⥯iм Їi¤ҐбҐп = ");
scanf("%f", &x);
printf ("\n‚i¤Ї®ўi¤м - %f",pow(n, x));
scanf("\n");
return 0;
}
Розв’язування задачі в C#
Розв’язування задачі в C#
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Степенi чисел");
Console.Write("Число = ");
double n = Convert.ToDouble(Console.ReadLine());
Console.Write("Степiнь пiднесення = ");
double x = Convert.ToDouble(Console.ReadLine());
Console.WriteLine(" ");
Console.WriteLine("Число "+n+" в степенi "+x+" = "+Math.Pow(n, x));
Console.ReadKey();
}
}
Розв’язування задачі в dev-c++
Розв’язування задачі в dev-c++
#include <conio.h>
#include <iostream>
#include <cmath>
int main(void)
{
double x,n;
setlocale(LC_ALL, "");
std::cout << "Степенi чисел\n \n";
std::cout << "Число = ";
std::cin >> n;
std::cout << "Степiнь пiднесення = ";
std::cin >> x;
std::cout << "\nЧисло "<< n << " в степенi " << x << " = "<< pow(n,x) << std::endl;
getch();
return 0;
}
Розв’язування задачі в VB.NET
Розв’язування задачі в VB.NET
Class Program
Shared Sub Main()
Console.WriteLine("Степенi чисел")
Console.Write("Число = ")
Dim n As Double = Convert.ToDouble(Console.ReadLine())
Console.Write("Степiнь пiднесення = ")
Dim x As Double = Convert.ToDouble(Console.ReadLine())
Console.WriteLine (" ")
Console.Write ("Число {0} в степенi {1} = {2}",n,x,n^x)
Console.ReadKey()
End Sub
End Class
Розв’язування задачі в Python
Розв’язування задачі в Python
print('Степенi чисел')
n=int(input('Число = '))
x=int(input('Степiнь пiднесення ='))
print (' ')
print ('Число ',n,' в степенi ',x,' = ',n**x)
input()
Графічні програми
Графічні програми
Розв’язування задачі в VB-6
Код
Код
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Степені чисел"
ClientHeight = 4200
ClientLeft = 45
ClientTop = 390
ClientWidth = 3105
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 3105
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 1800
TabIndex = 8
Top = 1920
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 1800
TabIndex = 4
Top = 1440
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 0
Left = 1800
TabIndex = 3
Top = 960
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "ВИХІД"
Height = 375
Left = 360
TabIndex = 2
Top = 3600
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "Очистка"
Height = 375
Left = 360
TabIndex = 1
Top = 3000
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "СТАРТ"
Height = 375
Left = 360
TabIndex = 0
Top = 2400
Width = 2415
End
Begin VB.Label Label1
Caption = "Відповідь ="
Height = 255
Index = 2
Left = 840
TabIndex = 9
Top = 1920
Width = 975
End
Begin VB.Label Label2
Caption = "Степені чисел"
Height = 255
Left = 840
TabIndex = 7
Top = 240
Width = 1215
End
Begin VB.Label Label1
Caption = "Степінь піднесення ="
Height = 255
Index = 1
Left = 120
TabIndex = 6
Top = 1440
Width = 1815
End
Begin VB.Label Label1
Caption = "Число піднесення ="
Height = 255
Index = 0
Left = 240
TabIndex = 5
Top = 960
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
n = Text1(0).Text
x = Text1(1).Text
c = n ^ x
Text1(2).Text = c
End Sub
Private Sub Command2_Click()
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Розв’язування задачі в Pascal ABC.NET
Частина коду
Частина коду
procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
Close;
end;
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
TextBox1.Text:='';
TextBox2.Text:='';
TextBox6.Text:='';
end;
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var m,n,x:real;
begin
n:=StrToFloat(TextBox1.Text);
x:=StrToFloat(TextBox2.Text);
m:= power(n,x);
TextBox6.Text:=FloatToStr(m);
end;
Розв’язування задачі в VB.NET
Код
Код
Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim n As Double = Convert.ToDouble(TextBox1.Text)
Dim x As Double = Convert.ToDouble(TextBox2.Text)
Dim c As Double = n ^ x
TextBox3.Text = Convert.ToString(c)
End Sub
End Class
Розв’язування задачі в C#
Частина коду
Частина коду
private void button3_Click(object sender, EventArgs e)
{
System.Environment.Exit(0);
}
private void button2_Click(object sender, EventArgs e)
{
textBox1.Text = "";
textBox2.Text = "";
textBox3.Text = "";
}
private void button1_Click(object sender, EventArgs e)
{
double n = Convert.ToDouble(textBox1.Text);
double x = Convert.ToDouble(textBox2.Text);
double c = Math.Pow(n, x);
textBox3.Text = Convert.ToString(c);
}
Розв’язування задачі в Python
Код
Код
from tkinter import *
def click ():
n = float (entry1.get())
x = float (entry2.get())
entry3.insert (0,n**x)
def click1 ():
entry1.delete(0, END)
entry2.delete(0, END)
entry3.delete(0, END)
root=Tk()
root.title('Степенi чисел')
root.geometry('300x300')
label = Label (text = 'Степенi чисел')
label.pack(pady = 10)
labe2 = Label (text = 'Число')
labe2.pack(pady = 1)
entry1 = Entry ()
entry1.pack (pady = 1)
labe3 = Label (text = 'Степiнь пiднесення')
labe3.pack(pady = 1)
entry2 = Entry ()
entry2.pack (pady = 1)
button = Button (text='Старт', command=click)
button.pack (pady = 10)
button = Button (text='Очистка', command=click1)
button.pack (pady = 10)
labe4 = Label (text = 'Відповідь')
labe4.pack(pady = 1)
entry3 = Entry ()
entry3.pack (pady = 1)
VI етап. Дослідження отриманих результатів на реальність і на відповідність умові
Після одержання підсумкової програми маємо проаналізувати її реальність.
Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки.
Page updated
Google Sites
Report abuse