Главная · Карта сайта · Поиск · Статьи · Компьютерные курсы · Обучающие программы · Открытые проекты · Веб-программирование · Создание интернет-сайта · Полезные ссылки · Глоссарий · Контакты · Декабрь 09 2016 20:22:37
Последнее опубликованное

Что такое Model-View-Controller
Pattern Model-View-Controller

Как создать свой веб-сайт
Как создать свой сайт в интернете

Разное
Статистика

Основные конструкции языка программирования: примеры подпрограмм


Ниже представлены примеры программ на C#, Pascal/Delphi и Visual Basic/VB.NET, которые вычисляют последовательность простых чисел от 2 до заданного значения MaxValue. Этот исходный код демонстрирует простейший вариант применения функций в процедурном программировании. Варианты программ на C/C++ и Java отдельно не приводятся, поскольку мало чем отличаются от варианта программы на языке C#. В отдельную функцию IsPrime() вынесен код определения, является ли конкретное число простым или нет:

C#
public class Application
{
      public static void Main()
      {
            Console.Write("Формируем последовательность простых чисел не более N = ");

            int _MaxValue = 0;

            try
            {
                _MaxValue = System.Convert.ToInt32(Console.ReadLine());
            }
            catch (Exception ex)
            {
                Console.WriteLine("Произошла ошибка ввода: "+ex.Message); 
		Console.WriteLine("Нажмите любую кнопку для выхода...");
		Console.ReadKey();		
		return;
            }

	    //Перебираем все числа от 2, до _MaxValue			
            for (int i = 2; i <= _MaxValue; i++)
            {
                if (i == 2 || IsPrime(i))
                {
                    if (i > 2)
                        Console.Write(",");  

                    Console.Write(i.ToString());
                }
            }

            Console.WriteLine();
            Console.WriteLine("Нажмите любую кнопку для выхода...");
            Console.ReadKey();
      }

      //Определение, является ли число d простым?
      static bool IsPrime(int d)
      {
            int _sqrt_int = (int)Math.Sqrt(d); //Целая часть от квадратного корня из d

            for (int i = 2; i <= _sqrt_int; i++)
                if ((d % i) == 0) //Проверка: остаток от деления d/i==0?
                    return false;

            return true;
      }
}

Pascal/Delphi
program PrimeNumbers;
uses 
    crt;
var 
    MaxValue,i : Integer;

function IsPrime(d:Integer):boolean
 var sqrt_int,i : Integer;

 begin
  sqrt_int:=round(sqrt(d));

  for i:= 2 to sqrt_int do
   if (d mod i = 0) then
       begin 
        IsPrime:=false;
        Exit;  
       end;

  IsPrime:=true;
 end;

begin
 Write('N = ');
 Readln(MaxValue);

 for 2:=1 to MaxValue do 
   if IsPrime(i) then writeln(i);

 ReadLn;
end.

Visual Basic/VB.NET
Public Class Application
  public Shared Sub Main()
        Dim _MaxValue As Integer = 0

        Try
            _MaxValue = System.Convert.ToInt32(InputBox("Формируем последовательность простых чисел не более N = "))
        Catch ex As Exception
            MsgBox(ex.Message, Microsoft.VisualBasic.MsgBoxStyle.Critical, "Ошибка ввод")
	    return
        End Try

        Dim _Result As String = String.Empty

        For i As Integer = 2 To _MaxValue
            If (i = 2 Or IsPrime(i)) Then
                If (i > 2) Then
                    _Result = _Result + ","
                End If

                _Result = _Result + i.ToString()
            End If
        Next

        MsgBox(_Result, Microsoft.VisualBasic.MsgBoxStyle.Information, "Результат")
  End Sub

  Shared Function IsPrime(ByVal d As Integer) As Boolean
        Dim _sqrt_int As Integer = CType(Math.Sqrt(d), Integer)

        For i As Integer = 2 To _sqrt_int
            If (d Mod i) = 0 Then
                Return False
            End If
        Next

        Return True
  End Function
End Class
Компьютерные курсы и курсы программирования
Основы программирования

Курс для начинающих программистов на C# и VB.NET.

SQL 25™

Построение SQL запросов и работа с базой данных.

C# Quick Guide™

Программирование на C#. Краткое руководство.

RegEx

Применение регулярных выражений.

Plug-in архитектура

Примеры программной Plug-in архитектуры.

XML и его расширения

Язык разметки XML и его расширения с примерами.

HTML и разметка гипертекста

Языки HTML, XHTML и CSS с примерами разметки.

Основы веб-дизайна

Основы веб-дизайна: решения типовых задач верстки.

Программирование на PHP

Руководство по программированию на PHP для начинающих.

Справочные материалы

Шаблоны проектирования
Каталог шаблонов проектирования программных компонентов.

Рефакторинг кода
Каталог приемов рефакторинга программного кода.

Гость
Имя

Пароль



Забыли пароль?
Запросите новый здесь
.
Coding Craft. Все права защищены © 2011. Проект Инициативного Народного Фронта Образования - ИНФО-проект.