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

Понедельник, 29.04.2024, 23:12
Приветствую Вас Гость | RSS

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

Меню сайта

Форма входа

Поиск

Статистика

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

Гостей: 1

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

Welcome to the international level

Арифметикалык прогрессияга маселе.

http://interneturok.ru сайтынын интернет баракчасына конул бурабыз. "3. Решение задач на применение формулы суммы первых n членов арифметической прогрессии" деген болугунун биринчи маселеси. Толук дареги http://interneturok.ru/ru/school/algebra/9-klass/progressii/formula-summy-chlenov-konechnoy-arifmeticheskoy-progressii

Fpc. arifmetic_progess_gauss функциясы маселени Гаусстун ыкмасы боюнча чыгарат, озунун формуласы боюнча. arifmetic_progess_easy функциясы формуланы колдонбой маселени чечет, ал маселени адамга чечуу учун коп убакытты талап кылат, ал эми компьтер тез эсептейт. 1 баскычы 2 жоопту чыгарып берет.
________________________________________
//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 arifmetic_progess_gauss(a1,d,n:real):real;
var
sn,an:real;
res:real;
begin
    an:=n;
    sn:=((a1+an)/2)*n;
    result:=sn;
end;

function arifmetic_progess_easy(a1,d,n:integer):integer;
var
sn,an:integer;
res:integer;
begin
    an:=n;
    sn:=0;
    for a1:=a1 to n do
    begin
      sn:=sn+a1;
    end;
    result:=sn;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage('Metod_Gaussa='+FloatToStr(arifmetic_progess_gauss(1,1,100)));
   ShowMessage('Metod_easy='+FloatToStr(arifmetic_progess_easy(1,1,100)));
end;

end.

________________________________________

________________________________________
(*Component Pascal(Black Box)*)

________________________________________

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

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

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