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