Программирование простых циклических алгоритмов

ОБОУ СПО «Курский Государственный Политехнический Колледж»

 

 

 

 

Отчет  № 2

ОАП

 

 

 

Тема: Программирование простых циклических алгоритмов

 

 

 

 

 

 

 

 

 

Выполнил:

 студент группы АСУ-33

Семенова А.С.

Проверил преподаватель  по ОАП 

Павлова Т.И.

Цель: Формирование умений и навыков программирования простых циклических алгоритмов

 

S:=s+(x³+8)^0.5

I:=1,10

S,X,DX

 

 

 

 

s

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,math;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var s,x,dx:real;

i:integer;

Begin

S:=0;

x:=2;

dx:=0.2;

for I :=  1 to 10 do

begin

s:= s+power ((x*x*x+8),0.5);

x:=x+dx ;

end;

edit1.Text:=floattostr(s) ;

End;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод: сформировала навыки и умения работы с расчетами.