Блог Манаса Анарова - Математикадык маселелерди программалоо. Арифметикалык кобойтунду(Арифметическое произведение) .

Вторник, 30.04.2024, 01:43
Приветствую Вас Гость | RSS

Главная | Математикадык маселелерди программалоо. Арифметикалык кобойтунду(Арифметическое произведение) . | Регистрация | Вход

Меню сайта

Форма входа

Поиск

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Welcome to the international level

Математикадык маселелерди программалоо. Арифметикалык кобойтунду(Арифметическое произведение) .

Маселе википедия сайтынан алынган http://ru.wikipedia.org/wiki/Таблица_математических_символов .
«Сумма нобора чисел» маселесинен кийинки маселе «Произведение»
________________________________________
//Fee Pascal(Lazarus)

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { private declarations }
public
    { public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function proizvednie_arifmetic(n,k:integer):integer;
var
z:integer;
begin
    z:=1;
    for k:=k to n do
    begin
      z:=z*(k+2);
      ShowMessage(IntToStr(z));
    end;
    result:=z;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   proizvednie_arifmetic(4,1);
end;

end.
________________________________________

________________________________________
(*Component Pascal(Black Box)*)

________________________________________

________________________________________
/*GCC(Code::Bloks)*/

________________________________________
Linux Mint 13 системасында текшерилген. Суроолор болсо жонотсонор болот, manas_anarovСОБАЧКАмейл.ру, почтанын дареги спамдан атайын бекитилген.
Негизги баракчага

Сделать бесплатный сайт с uCoz