If OpenDialog1.Execute then

Задача №2

Определить приближенное, с точностью 0,1 значение корня уравнения x - arctg(x) = 0, изменяя значение х от 0.2 до 3 (изменение знака функции является признаком пересечения оси Х). Изобразите графически алгоритм и напишите программу для решения этой задачи.

Программа:

 

#include <iostream.h>

#include <conio.h>

#include <Math.h>

main()

{

double X,Y,K;

bool k1;

int z;

X = 0.2;

while (X <= 3)

{

Y = X - atan(X);

 

if (fabs(Y) < 0.00001) {

k1 = true;

K = X;

}

X = X + 0.1;

cout << "X = " << X << " x-arctg(x) = " << Y << endl;

 

}

 

if (k1 == true) {

cout << endl;

cout << endl;

 

cout << "Koren' uravneniya = " << K << endl;

}

else

{

cout << endl;

cout << endl;

 

cout << "Na dannom intervale korney net. " << endl;

}

getch();

}

 

 

Блок-схема:

 

 

 

Результат работы программы:

Задача №3

Допиши условия задачи

Программа:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils, Windows,

math;

type mas = array [1..40] of integer;

var

massiv: mas;

I, SredneArifmBIG, SredneArifmSmall: Integer;

SredneArifm : Double;

begin

Randomize;

SredneArifm := 0;

SredneArifmBIG:= 0;

SredneArifmSmall:= 0;

for I := 1 to 40 do

begin

massiv [I]:= 1 + Random (10);

SredneArifm := SredneArifm + massiv [I];

write (massiv [I], ' ');

writeln;

end;

SredneArifm:= SredneArifm / 40;

for I := 1 to 40 do

begin

if (massiv [I] > SredneArifm ) then

begin

SredneArifmBIG:= SredneArifmBIG + 1;

end;

if (massiv [I] < SredneArifm ) then

begin

SredneArifmSmall:= SredneArifmSmall + 1;

end;

end;

writeln;

writeln;

write ('Среднеарифмитическое всех элементов: ', SredneArifm );

writeln;

write ('Элементов больше среднеарифмитического: ', SredneArifmBIG);

writeln;

write ('Элементов меньше среднеарифмитического: ', SredneArifmSmall);

readln;

end.

 

Блок-схема:

Результат работы программы:

Задача №4

Допиши условия задачи

Программа:

unit Unit1;

Interface

Uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;

Type

TForm1 = class(TForm)

Memo1: TMemo;

OpenDialog1: TOpenDialog;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

SaveDialog1: TSaveDialog;

N2: TMenuItem;

MainMenu1: TMainMenu;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Memo1Change(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var

FName: string;

Begin

If OpenDialog1.Execute then

Begin

FName:= OpenDialog1.FileName;

Memo1.Lines.LoadFromFile(FName);

end;

end;

procedure TForm1.Memo1Change(Sender: TObject);

Begin

end;

procedure TForm1.N1Click(Sender: TObject);

Var

FName: string;

Begin

if OpenDialog1.Execute then

Begin

FName:= OpenDialog1.FileName;

Memo1.Lines.LoadFromFile(FName);

end;

end;

procedure TForm1.N2Click(Sender: TObject);

Begin