លំហាត់​គណិតវិទ្យា​ប្រលង​សិស្ស​ពូកែ​ទូទាំង​ប្រទេស ២០០១ – Cambodian Mathematics Olympiad 2001

លំហាត់ទី ២ ថ្ងៃទី ១៖
E; F; G; H ជាចំណុចកណ្ដាលរៀងនៃ [AB]; [BC]; [CD] និង [AD] ដែលជាជ្រុងការេមានរង្វាស់ a ។ គណនាក្រលាផ្ទៃផ្នែកឆូត។ (១០ ពិន្ទុ)

ទាញយកចម្លើយទីនេះ

Evian Roller Babies Dance

Watch and have fun!

Pseudocode for Binary Search Method in Sorting List (for VB2008)

Declare search_value As String
Declare n As Integer

Input n
Declare list(1 to n) As String
Input search_value

Declare i As Integer
For i=0 to n-1 Increased by 1
     Input list(i)
End For

Declare start_index As Integer
Declare end_index As Integer
Declare mid_index As Integer
Declare found_index As Integer
Set start_index=1
Set end_index=n
Set found_index = -1

Do
     mid_index = (Round Down) (start_index+end_index)/2
     If end_index<=start_index Then
          If search_value = list(mid_index) Then
               found_index = mid_index
          End If
          Exit Do
      Else
          If search_value = list(mid_index) Then
               found_index = mid_index
               Exit Do
           Else If search_value < list(mid_index) Then
                end_index = mid_index – 1
           Else
                start_index = mid_index + 1
           End If
     End If
End Do Loop

If found_index = -1 Then
     Display “Search not found!”
End If

Output found_index

(Reference: http://www.krookroo.com/programming-languages/ms-visual-basic-20052008/94-it-vb9-10.html)

Pseudocode for N-Variable System Linear Equation (for VB2008)

   

• Identify Output
  x1, x2, x3, ………, xn
   
• Determine Input
  b1, b2, b3, ………, bn
  a11, a12, a13, ………., a1n
  a21, a22, a23, ………., a2n
  ………………
  an1, an2, an3, ………., ann
   
• Determine Process
  Declare n as Integer
  Input value of n
  Declare a(1 to n,1 to n), b(1 to n), DetD, DetDx(1 to n), x(1 to n) As Double
  Declare temp(1 to n) As Double
  Declare i, j As Integer
   
  For i=1 to n increased by 1
     For j=1 to n increased by 1
        input value of a(i, j)
     End For
     input value of b(i)
  End for
   
  DetD = CalculateDet (n, a)
  …………………………………………………………………………………………..

អានលម្អិតខាងក្រោម
http://www.krookroo.com/programming-languages/ms-visual-basic-20052008/92-it-vb9-9.html

ចម្រៀង MP3 ស៊ីន ស៊ីសាមុត (១)

1. អូនគង់ដឹងខ្លួន
2. បុប្ផាឈៀងម៉ៃ
3. មួយម៉ឺនអាល័យ
4. ទ្រព្យគាប់ចិន្តា
5. វិលវិញមកអូន
6. ទោចភ្នំ
7. លាលុះអវសាន
8. ម្ចាស់ក្លិននៅឯណា
9. ទេពធីតាក្នុងសុបិន្ត
10. ព្រោះតែអូន

ស្តាប់ចម្រៀងទីនេះ
 http://www.krookroo.com/entertainments/mp3-song/93-mp3-kh-1.html

Export Data from VB 2008 to Excel

Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer

‘create object of excel

ExcelApp = CreateObject(“Excel.Application”)
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)

With ExcelSheet
    For i = 1 To Me.DataGridView1.RowCount
         .cells(i, 1) = Me.DataGridView1.Rows(i – 1).Cells(“id”).Value
         For j = 1 To DataGridView1.Columns.Count – 1
              .cells(i, j + 1) = DataGridView1.Rows(i – 1).Cells(j).Value
         Next
    Next
End With

Download Source Code and See More

ស្តាប់ចម្រៀងអង់គ្លេសពិរោះៗ

1. Fade Away
2. Happy New Year
3. The End of the World
4. My Heart Will Go On
5. Rain and Tears
6. I Never Told You
7. Donna Donna
8. Soleda
9. Yesterday Once More
10. You Are My Everything

ចុចខាងក្រោមនេះដើម្បីស្ដាប់ចម្រៀង
http://www.krookroo.com/entertainments/mp3-song/88-mp3-01.html

Draw Cambodian Map in Turbo C++

This map is not a real map, it uses for education only.

#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <string.h>
#include <graphics.h>
#include <stdlib.h>
#include <bios.h>
#include <ctype.h>
#include <dos.h>

union REGS in_regs , out_regs ;

អានលម្អិត សូមចុចភ្ជាប់ខាងក្រោម
http://www.krookroo.com/programming-languages/turbo-ccc/89-it-cpp-03.html

VB.Net 2008 OleDb Connect to MS-Access with Password

Dim con As New OleDb.OleDbConnection
con.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & _
                                 Application.StartupPath & “\dbstudent.mdb;” & _
                                 “Jet OLEDB:Database Password=12345″

con.Open()
‘———————-
Dim da As New OleDb.OleDbDataAdapter(“SELECT * FROM tblstudent”, con)
‘———-

con.Close()
con.Dispose()

http://www.krookroo.com/programming-languages/ms-visual-basic-20052008/87-it-vb9-8.html

VB6 Connect to MS-Access with Password

Dim db As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim recCount As Integer
db.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;” & _
                        “Data Source=MS Access Database;” & _
                        “Initial Catalog=” & App.Path & “\dbstudent.mdb; Password=12345“
db.Open
 
rec.Open “SELECT * FROM tblStudent ORDER BY [name]“, db, 3, 2
   
recCount = rec.RecordCount

……………………………………….

http://www.krookroo.com/programming-languages/ms-visual-basic-6/86-it-vb6-6.html