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

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;

i := 0;

while i < n do

begin

i :=i + 1;

S := S + I;

end;

TextColor (03);

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

readln;

end.

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

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

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

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

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

S = 0

i=0

While i < n

i =i+1

S = S + i

WEND

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

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

INPUT z

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

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

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

n=TextWindow.ReadNumber()

TextWindow.WriteLine(" ")

S=0

i=0

While i < n

i =i+1

S = S + i

EndWHILE

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

TextWindow.WriteLine(S)

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

<title>Розпад</title>

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

<br>

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

<br>

</form>

Відповідь: <span id="sum">Введіть данні і нажміть "Порахувати"</span>

</div>

function sum() {

var n = eval(document.sum.n.value);

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

var i = 0;

var S =0;

while (i < n) {

i += 1;

S = S + i;

}

string = "Сума додатнiх чисел = "+S;

sol.innerHTML = string;

}

</script>

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

#include <stdio.h>

int main(void)

{

float S,n,i;

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

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

scanf("%f", &n);

S = 0;

i = 0;

while (i < n) {

i += 1;

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;

double i = 0;

while (i < n) {

i += 1;

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;

i = 0;

S = 0;

while (i < n) {

i += 1;

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("Mаксимальне число = ")

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

Dim S As Double = 0

Dim i As Double = 0

while i < n:

i += 1

S = S + i

End While

Console.WriteLine (" ")

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

Console.ReadKey

End Sub

End Class

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

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

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

print('')

sum = 0

i = 0

while i < n:

i += 1

sum = sum + i

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

input()

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

Розв’язування задачі в 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;

i := 0;

while i < n do

begin

i :=i + 1;

s := s + i;

end;

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 = 0

While i < n

i += 1

S = S + i

End While

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;

double i = 0;

while (i < n)

{

i += 1;

S = S + i;

}

textBox2.Text = Convert.ToString(S);

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

Код

from tkinter import *

def click ():

n = float (entry1.get())

sum = 0

i = 0

while i < n:

i += 1

sum = 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 етап. Дослідження отриманих результатів на реальність і на відповідність умові

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

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

Page updated

Google Sites

Report abuse