Коло
Коло
Embedded Files
I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів
Вхідні дані: радіус кола.
Кінцеві результати: довжина та площа кола.
II етап. Побудова інформаційної моделі
Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо довжину та площу кола .
Ці формули
l =2* pi*r
S = pi*r2
Крім того, одержані дані бажано округлити до сотих.
III етап. Вибір програмних засобів для розв’язування задачі виглядатимуть так:
Прикладним програмним засобом, який можна використати для розв’язування задачі, може бути, наприклад, програма-калькулятор або табличний процесор. Або можна скласти спеціальну програму для розв’язування саме цієї задачі, використовуючи одну з мов програмування.
IV етап. Складання алгоритму розв'язування задачі.
V етап. Отримання комп'ютерної моделі.
Розв’язування задачі в табличному процесорі Excel
Розв’язування задачі в табличному процесорі Excel
Довжина - 2*PI()*A2
Площа - A2*PI()*A2
Розв’язування задачі в Pascal ABC.NET
Розв’язування задачі в Pascal ABC.NET
program kol;
Uses CRT;
var s,r,l: real;
begin
writeln('Маємо коло.' );
writeln('Вiдомий радiус . ' );
writeln('Знайти довжину та площу кола. ' );
TextColor (06);
write('Введiть радiус кола , потiм натиснiть Enter - ' );
readln(r);
s :=pi*r*r;
l:= 2*pi*r;
TextColor(03);
writeln('Довжина кола - ', l:3:3);
writeln('Площа кола - ', s:3:3);
readln;
end.
Розв’язування задачі в QBASIK
Розв’язування задачі в QBASIK
PRINT "Њ ©Ґ¬® Є®«®. ‚i¤®¬Ё© а ¤iгб. ‡ ©вЁ ¤®ў¦Ёг в Ї«®йг Є®« ."
'Маємо коло. Вiдомий радiус.Знайти довжину та площу кола.
INPUT "‚ўҐ¤iвм а ¤iгб Є®« , в вЁбiвм Enter - ", r
'Введiть радiус кола , потiм натиснiть Enter
s = 3.14 * r * r
l = 2 * 3.14 * r
PRINT "„®ў¦Ё Є®« - "; l
'Довжина кола
PRINT "Џ«®й Є®« - "; s
'Площа кола
INPUT z
Розв’язування задачі в SMALLBASIK
Розв’язування задачі в SMALLBASIK
TextWindow.WriteLine("Маємо коло.Вiдомий радiус.")
TextWindow.WriteLine("Знайти довжину та площу кола.")
TextWindow.Write("Радiус = ")
r=TextWindow.ReadNumber()
s=3.14*r*r
l= 2*3.14*r
TextWindow.Write("Довжина L = ")
TextWindow.WriteLine(l)
TextWindow.Write("Площа S = ")
TextWindow.WriteLine(s)
Розв’язування задачі в JAVA
Розв’язування задачі в JAVA
<title>Коло</title>
<body><div align="center">
<b>Маємо коло.Вiдомий радiус.Знайти довжину та площу кола. </b>
<br>
<br>
<form name="kol" action="javascript:kol()" id="1419313176">
Радіус R = <input name="R" type="text" value=" " size="4"></b>
<br>
<br>
<input type="submit" value="Порахувати">
<input type="reset" value="Reset">
</form>
Відповідь: <br> <span id="kol">Введіть данні і нажміть "Порахувати"</span>
</div>
<script language="javascript">
function kol() {
var R = document.kol.R.value;
var sol = document.getElementById("kol");
var L = 2*3.14*R;
var s = 3.14*R*R;
string = "Довжина L ="+L+"<br>"+"Площа S="+s;
sol.innerHTML = string;
}
</script>
Розв’язування задачі в HTML
Розв’язування задачі в HTML
<title>Коло</title>
<form name="kol" >
Маємо коло.Вiдомий радiус.Знайти довжину та площу кола.
<br>
<br>
Радіус R = <input type="textfield" name="R" value="">
<br>
<br>
<input type="button" value="L" onClick="document.kol.L.value=2*3.14*eval(document.kol.R.value)">
Довжина L = <input type="textfield" name="L" value="">
<br>
<br>
<input type="button" value="S" onClick="document.kol.S.value=eval(document.kol.R.value)*3.14*eval(document.kol.R.value)">
Площа S = <input type="textfield" name="S" value="">
<br>
<br>
<input type="reset" value="Reset">
</form>
Розв’язування задачі в C
Розв’язування задачі в C
#include <stdio.h>
int main(void)
{
float r,l,s;
printf ("Њ ©Ґ¬® Є®«®. ‚i¤®¬Ё© а ¤iгб. ‡ ©вЁ ¤®ў¦Ёг в Ї«®йг Є®« .\n \n");
printf ( "‚ўҐ¤iвм а ¤iгб Є®« , в вЁбiвм Enter - ");
scanf("%f", &r);
s = 3.14 * r * r;
l = 2 * 3.14 * r;
printf ("\n„®ў¦Ё Є®« - %f", l);
printf ("\nЏ«®й Є®« - %f", s);
scanf("\n");
return 0;
}
Розв’язування задачі в C#
Розв’язування задачі в C#
using System;
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Маємо коло.Вiдомий радiус.");
Console.WriteLine("Знайти довжину та площу кола.");
Console.Write("Радiус = ");
double r = Convert.ToDouble(Console.ReadLine());
double s = 3.14 * r * r;
double l = 2 * 3.14 * r;
Console.WriteLine(" ");
Console.WriteLine("Довжина L = "+l);
Console.WriteLine("Площа S = "+s);
Console.ReadKey();
}
}
Розв’язування задачі в VB.NET
Розв’язування задачі в VB.NET
Class Program
Shared Sub Main()
Console.WriteLine("Маємо коло.Вiдомий радiус.")
Console.WriteLine("Знайти довжину та площу кола.")
Console.Write("Радiус = ")
Dim r As Double = Convert.ToDouble(Console.ReadLine())
Dim s As Double = 3.14*r*r
Dim l As Double = 2*3.14*r
Console.WriteLine (" ")
Console.WriteLine ("Довжина L = {0}",l)
Console.WriteLine ("Площа S = {0}",s)
Console.ReadKey()
End Sub
End Class
Розв’язування задачі в dev-c++
Розв’язування задачі в dev-c++
#include <conio.h>
#include <iostream>
int main(void)
{
double r,S,l;
setlocale(LC_ALL, "");
std::cout << "Маємо коло.Вiдомий радiус.\n";
std::cout << "Знайти довжину та площу кола.\n";
std::cout << "Радiус = ";
std::cin >> r;
l = 2 * 3.14 * r;
S = 3.14 * r * r;
std::cout <<
"\nДовжина L = " << l <<
"\nПлоща S = " << S <<
std::endl;
getch();
return 0;
}
Розв’язування задачі в Python
Розв’язування задачі в Python
print ('Маємо коло.Вiдомий радiус.')
print ('Знайти довжину та площу кола.')
r=float(input('Радiус a = '))
print ('')
s = 3.14*r*r
l = 2*3.14*r
print ('Довжина L =',l)
print ('Площа S =',s)
input()
Графічні програми
Графічні програми
Розв’язування задачі в Visual BASIK 6
Код
Код
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Коло"
ClientHeight = 4605
ClientLeft = 45
ClientTop = 390
ClientWidth = 3960
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4605
ScaleWidth = 3960
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 840
TabIndex = 5
Top = 2160
Width = 2295
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 840
TabIndex = 4
Top = 1680
Width = 2295
End
Begin VB.TextBox Text1
Height = 300
Index = 0
Left = 840
TabIndex = 3
Top = 1200
Width = 2295
End
Begin VB.CommandButton Command3
Caption = "ВИХІД"
Height = 375
Left = 360
TabIndex = 2
Top = 3960
Width = 3135
End
Begin VB.CommandButton Command2
Caption = "Очистка"
Height = 375
Left = 360
TabIndex = 1
Top = 3360
Width = 3135
End
Begin VB.CommandButton Command1
Caption = "СТАРТ"
Height = 375
Left = 360
TabIndex = 0
Top = 2760
Width = 3135
End
Begin VB.Label Label2
Caption = "Маємо коло. Відомий його радіус. Знайти площу та довжину кола"
Height = 495
Left = 240
TabIndex = 9
Top = 360
Width = 3495
End
Begin VB.Label Label1
Caption = "S ="
Height = 255
Index = 2
Left = 240
TabIndex = 8
Top = 2160
Width = 855
End
Begin VB.Label Label1
Caption = "L ="
Height = 255
Index = 1
Left = 240
TabIndex = 7
Top = 1680
Width = 855
End
Begin VB.Label Label1
Caption = "R ="
Height = 255
Index = 0
Left = 240
TabIndex = 6
Top = 1200
Width = 735
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()
r = Text1(0).Text
s = 3.14 * r * r
l = 2 * 3.14 * r
Text1(1).Text = l
Text1(2).Text = s
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:='';
TextBox3.Text:='';
end;
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var s,r,l: real;
begin
r:=StrToFloat(TextBox1.Text);
s :=round(pi*r*r*100)/100;
l:= round(2*pi*r*100)/100;
TextBox2.Text:=FloatToStr(l);
TextBox3.Text:=FloatToStr(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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim r As Double = Convert.ToDouble(TextBox1.Text)
Dim s As Double = 3.14 * r * r
Dim l As Double = 2 * 3.14 * r
TextBox2.Text = Convert.ToString(l)
TextBox3.Text = Convert.ToString(s)
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 r = Convert.ToDouble(textBox1.Text);
double s = 3.14 * r * r;
double l = 2 * 3.14 * r;
textBox2.Text = Convert.ToString(l);
textBox3.Text = Convert.ToString(s);
}
Розв’язування задачі в Python
Код
Код
from tkinter import *
def click ():
r = float (entry1.get())
s = 3.14*r*r
l = 2*3.14*r
entry2.insert(0, l)
entry3.insert(0, s)
def click1 ():
entry1.delete(0, END)
entry2.delete(0, END)
entry3.delete(0, END)
root=Tk()
root.title('Kоло')
root.geometry('230x280')
label = Label (text = 'Маємо коло.Вiдомий радiус.\n Знайти довжину та площу кола.')
label.pack(pady = 10)
labe2 = Label (text = 'Радiус r')
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 = 1)
labe3 = Label (text = 'Довжина L ')
labe3.pack(pady = 1)
entry2 = Entry ()
entry2.pack (pady = 1)
labe4 = Label (text = 'Площа S ')
labe4.pack(pady = 1)
entry3 = Entry ()
entry3.pack (pady = 1)
Розв’язування задачі в Scratch
VI етап. Дослідження отриманих результатів на реальність і на відповідність умові
Після одержання підсумкової програми маємо проаналізувати її реальність.
Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки
Реалізація в HTML
Реалізація в HTML
Page updated
Google Sites
Report abuse