Question

ПАСКАЛЬ


Создать программу "Вычисление стоимости овощей"
Размер формы: 420 px на 330 px;
размер шрифта у объектов – 10 pt кроме кнопок(им задать размер 12pt) и Label1(14pt), жирное и наклонное начертание в соответствии с примером;
размер обоих кнопок 110 px на 35px
остальные свойства определить визуально в соответствии с примером;
запретите редактирование текстового поля с указанием стоимости.



Помогите пожалуйста! Сегодня нужен готовый код на Паскале.​

Answer 1

program VegetableCostCalculator;

uses

crt, sysutils;

var

TotalCost: real;

Label1: TLabel;

Edit1: TEdit;

Button1, Button2: TButton;

begin

TotalCost := 0;

// Инициализация окна

InitWindow(420, 330, 'Вычисление стоимости овощей');

// Label1

Label1 := TLabel.Create(nil);

Label1.Caption := 'Стоимость овощей:';

Label1.Font.Size := 14;

Label1.Font.Style := [fsBold];

Label1.SetBounds(10, 10, 200, 25);

// Edit1

Edit1 := TEdit.Create(nil);

Edit1.Text := FloatToStr(TotalCost);

Edit1.SetBounds(10, 50, 200, 25);

Edit1.Enabled := False; // Запрет редактирования

// Button1

Button1 := TButton.Create(nil);

Button1.Caption := 'Добавить овощи';

Button1.Font.Size := 12;

Button1.SetBounds(10, 90, 110, 35);

Button1.OnClick := AddVegetablesClick; // Не забудьте создать эту процедуру

// Button2

Button2 := TButton.Create(nil);

Button2.Caption := 'Выход';

Button2.Font.Size := 12;

Button2.SetBounds(130, 90, 110, 35);

Button2.OnClick := ExitClick; // Не забудьте создать эту процедуру

// Основной цикл программы

while not WindowShouldClose() do

begin

BeginDrawing();

ClearBackground(RAYWHITE);

// Отрисовка объектов

Label1.Draw();

Edit1.Draw();

Button1.Draw();

Button2.Draw();

EndDrawing();

end;

// Завершение программы

CloseWindow();

end.