Основы программирования

СОДЕРЖАНИЕ

 

 

Задание 1…………………………………………………………………………………...3

Задание 2…………………………………………………………………………….……..6

Задание 3………………………………………………………………………………….11

 

Задание 1

Постановка  задачи

В равнобедренном прямоугольном  треугольнике известна высота h, опущенная на гипотенузу. Найти стороны треугольника.

Распечатка  текста программы

unit Unit1;

interface

uses

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

  Dialogs, ExtCtrls, StdCtrls, Buttons;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Image1: TImage;

    Label2: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    BitBtn1: TBitBtn;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

var h, a, gip : real;  a1,gip1: string;

procedure TForm1.Button1Click(Sender: TObject);  // Щелчок по командной кнопке

begin  //Начать работу

 

     h := StrToFloat(Form1.Edit1.Text); //Высоту h берем из текстового  поля и переводим в вещественный  тип

     a := h*sqrt(2); //Вычисляем  длину катета

     gip:= 2*h; // вычисляем  длину гипотенузы

     a1:=FloatToStr(a); // Переводим вещественные величины  в строковые

     gip1:=FloatToStr(gip); // Переводим вещественные величины  в строковые

     Form1.Label5.Caption := a1; //Выводим результат на форму

     Form1.Label6.Caption := gip1 //Выводим результат на форму

end;

 

end.

Фотографии  с экрана

 

 

 

 

Задание 2

Постановка  задачи

 

Владелец автомобиля приобрел новый  карбюратор, который экономит 50% топлива, новую систему зажигания, которая  экономит 30 % топлива, и поршневые кольца, экономищие 20% топлива. Верно ли, что его автомобиль теперь сможет обходится совсем без топлива? Найти фактическую экономию для произвольно заданых сэкономленых процентов.

Распечатка  текста программы

         unit Unit1;

interface

uses

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

  Dialogs, Buttons, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    Label6: TLabel;

    BitBtn1: TBitBtn;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

  var Karb, Zazhig, Kolca,x4: string;   x,x1,x2,x3, x0 : Real;

procedure TForm1.Button1Click(Sender: TObject);

begin

    ShowMessage('Конечно  же, автомобиль не может ездить без топлива!');   //Выводим сообщение

    // Вычисляем  результат по условию задачи

    x0:=50;

    x:= (50*30)/100;

    x1:= 50-x  ;

    x2:= 35*20/100  ;

    x3:=x0+x+x2  ;

    x4:=  FloatToStr(x3);

    // Выводим результат  на форму

      Form1.Label7.Caption:='50'+'%';

   Form1.Label8.Caption :='30'+'%';

   Form1.Label9.Caption := '20'+'%';

    Form1.Label6.Visible:= true;

    Form1.Label3.Visible:= true;

    Form1.Label10.Visible:= true;

    Form1.Label10.Caption := x4

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

    // Вводим произвольные  проценты

   Karb:=inputbox('Ввод', 'Введите  процент экономии за счет нового  карбюратора', '');

   Zazhig:=InputBox('Ввод','Введите  процент экономии за счет новой  системы зажигания','');

   Kolca:=InputBox('Ввод','Введите  процент экономии за счет новых поршневых колец','');

   //Записываем их  на форму

   Form1.Label7.Caption:=karb+'%';

   Form1.Label8.Caption :=Zazhig+'%';

   Form1.Label9.Caption := Kolca+'%';

   // Делаем расчеты

   x0:=StrToFloat(karb);

   x:=((100-strToFloat(karb))*StrToFloat(zazhig))/100;

   x1:=100-StrToFloat(karb)-x;

   x2:=(x1*StrToFloat(kolca))/100;

   x3:=x0+x+x2;

   //Выводим результат  на форму

    Form1.Label6.Visible:= true;

    Form1.Label3.Visible:= true;

    Form1.Label10.Visible:= true;

   Form1.Label10.Caption := FloatToStr(x3);

end;

 

end.

 

Фотографии с экрана

 

 

 

 

 

 

 

 

 

Задание 3

Постановка  задачи

Заданы уравнения двух пересекающихся прямых на плоскости: y=k1*x+b1; y=k2*x+b2. Найти угол между ними

Распечатка  текста программы

         unit Unit1;

interface

uses

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

  Dialogs, Buttons, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Button1: TButton;

    BitBtn1: TBitBtn;

    Label7: TLabel;

    Label8: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

  var k1,k2,b1,b2, rez: real;  rez1: string;

procedure TForm1.Button1Click(Sender: TObject);

begin

    //Переводим  необходимые для расчета величины  в вещественный тип

    k1:=StrToFloat(Form1.Edit1.Text);

    k2:=StrToFloat(Form1.Edit3.Text);

    //расчет

    rez:= ((k2-k1)/(1+k1*k2));

    rez:= Arctan(rez);

    //переводим  результат в градусы

    rez:=57*rez;

    //Переводим  необходимые величины в строковый тип

    rez1:=floatToStr(rez);

     //выводим  результат на форму

         Form1.Label7.Visible:=true;

    Form1.Label7.Caption := rez1

end;

end.

Фотографии  с экрана