Сумма цілих додатніх чисел

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

Вхідні дані: додатнє число.

Кінцеві результати: сума додатнiх чисел.

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

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

Ці формули

s = ∑n

Крім того, одержані дані бажано округлити до сотих.

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

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

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

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

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

program f;

Uses CRT;

var i,n,s: integer;

begin

writeln ('Сума додатнiх чисел');

TextColor (06);

write( 'Введiть максимальне число, потiм натиснiть Enter - ');

readln(n);

S := 0;

FOR i := 0 TO n do

S := S + I;

TextColor (03);

writeln ('Сума додатнiх чисел - ', s);

readln;

end.

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

PRINT "‘г¬ ¤®¤ вiе зЁбҐ«"

'Сума додатніх чисел

INPUT "Њ ЄбЁ¬ «мҐ зЁб«® = ", n

'Максимальне число

S = 0

FOR I = 1 TO n

S = S + I

'Сума додатніх чисел

INPUT z

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

TextWindow.WriteLine("Сума додатнiх чисел")

TextWindow.Write( "Максимальне число = ")

n=TextWindow.ReadNumber()

S = 0

FOR I = 1 TO n

S = S + I

endfor

TextWindow.Write("Сума додатнiх чисел = ")

TextWindow.Write(S)

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

<title>Сума додатнiх чисел</title>

<b>Сума додатнiх чисел</b>

Максимальне число = <input name="sum_n" type="text" value=" " size="4">

</form>

Опрацювання: <span id="sum_sol">Введіть число і нажміть "Порахувати"</span>

</div>

function sum() {

var n = document.sum.sum_n.value;

var S = 0;

var sol = document.getElementById("sum_sol");

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

S = S + i;

}

string = S;

sol.innerHTML = string;

}

</script>

</body>

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

#include <stdio.h>

int main(void)

{

float S,n,i;

printf ("‘г¬ ¤®¤ вiе зЁбҐ«\n");

printf ( "Њ ЄбЁ¬ «мҐ зЁб«® = ");

scanf("%f", &n);

S = 0;

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

S = S + i; }

printf ("\n‘г¬ ¤®¤ вiе зЁбҐ« = %f",S);

scanf("\n");

return 0;

}

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

using System;

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Сума додатнiх чисел");

Console.Write("Максимальне число = ");

double n = Convert.ToDouble(Console.ReadLine());

double S = 0;

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

S = S + i; }

Console.WriteLine(" ");

Console.WriteLine("Сума додатнiх чисел = "+S);

Console.ReadKey();

}

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

#include <conio.h>

#include <iostream>

int main(void)

{

double n,S;

int i;

setlocale(LC_ALL, "");

std::cout << "Сума додатнiх чисел\n \n";

std::cout << "Максимальне число = ";

std::cin >> n;

S = 0;

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

S = S + i; }

std::cout << "\nСума додатнiх чисел = "<< S << std::endl;

getch();

return 0;

}

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

Class Program

Shared Sub Main()

Console.WriteLine("Сума додатнiх чисел")

Console.Write("Максимальне число = ")

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

Dim S As Double = 0

For i As Integer = 1 To n

S = S + i

Console.Write ("Сума додатнiх чисел = {0}",S)

Console.ReadKey()

End Sub

End Class

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

print('Сума додатнiх чисел')

n=int(input('Mаксимальне число = '))

print('')

sum = 0

for i in range(2, n+1):

sum += i

print ('Сума додатнiх чисел = ',sum)

input()

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

Розв’язування задачі в VB-6

Код

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 1 'Fixed Single

Caption = "Сума додатніх чисел"

ClientHeight = 3915

ClientLeft = 45

ClientTop = 390

ClientWidth = 3105

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3915

ScaleWidth = 3105

StartUpPosition = 2 'CenterScreen

Begin VB.TextBox Text1

Height = 300

Index = 1

Left = 1560

TabIndex = 4

Top = 1440

Width = 975

End

Begin VB.TextBox Text1

Height = 300

Index = 0

Left = 1560

TabIndex = 3

Top = 960

Width = 975

End

Begin VB.CommandButton Command3

Caption = "ВИХІД"

Height = 375

Left = 240

TabIndex = 2

Top = 3240

Width = 2415

End

Begin VB.CommandButton Command2

Caption = "Очистка"

Height = 375

Left = 240

TabIndex = 1

Top = 2640

Width = 2415

End

Begin VB.CommandButton Command1

Caption = "СТАРТ"

Height = 375

Left = 240

TabIndex = 0

Top = 2040

Width = 2415

End

Begin VB.Label Label2

Caption = "Сума додатніх чисел"

Height = 375

Left = 480

TabIndex = 7

Top = 240

Width = 1935

End

Begin VB.Label Label1

Caption = "Сума ="

Height = 255

Index = 1

Left = 120

TabIndex = 6

Top = 1440

Width = 1095

End

Begin VB.Label Label1

Caption = "Максимальне число ="

Height = 495

Index = 0

Left = 120

TabIndex = 5

Top = 840

Width = 1215

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

S = 0

For i = 1 To n

S = S + i

Next i

Text1(1).Text = S

End Sub

Private Sub Command2_Click()

Text1(0).Text = ""

Text1(1).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:='';

end;

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

var i,n,s: integer;

begin

n:=StrToInt(TextBox1.Text);

S := 0;

FOR i := 0 TO n do

S := S + I;

TextBox2.Text:=IntToStr(s);

end;

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

Код

Public Class Form1

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 S As Double = 0

Dim i As Double

For i = 1 To n

S = S + i

Next i

TextBox2.Text = Convert.ToString(S)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = ""

TextBox2.Text = ""

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 = "";

}

private void button1_Click(object sender, EventArgs e)

{

double n = Convert.ToDouble(textBox1.Text);

double S = 0;

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

{

S = S + i;

}

textBox2.Text = Convert.ToString(S);

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

Код

from tkinter import *

def click ():

n = int (entry1.get())

sum = 0

for i in range(2, n+1):

sum += i

entry2.insert (0,sum)

def click1 ():

entry1.delete(0, END)

entry2.delete(0, END)

root=Tk()

root.title('Сума додатнiх чисел')

root.geometry('250x250')

label = Label (text = 'Сума додатнiх чисел')

label.pack(pady = 10)

labe2 = Label (text = 'Mаксимальне число')

labe2.pack(pady = 1)

entry1 = Entry ()

entry1.pack (pady = 1)

button = Button (text='Старт', command=click)

button.pack (pady = 10)

button = Button (text='Очистка', command=click1)

button.pack (pady = 10)

labe3 = Label (text = 'Сума додатнiх чисел')

labe3.pack(pady = 1)

entry2 = Entry ()

entry2.pack (pady = 1)

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

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

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