Question

Мова програмування лазарус! Серед учнів школи проводилося тестування з трьох предметів, по кожному з яких учні отримали певну кількість балів (цілі числа). Напишіть програму, яку можуть використати учні для обчислення їхнього середнього балу трьох тестів і виведення середнього значення.срочно !!!!
И подскажите пожалуйста какие нужны кнопки !!!​

Answer 1

Відповідь:

Текст програми на мові Pascal у середовищі Lazarus(результат виконання програми та додаткові відомості на фото):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

btnCalculate: TButton;

edtScore1: TEdit;

edtScore2: TEdit;

edtScore3: TEdit;

lblScore1: TLabel;

lblScore2: TLabel;

lblScore3: TLabel;

lblAverage: TLabel;

procedure btnCalculateClick(Sender: TObject);

private

{private declaration}

public

{public declaretion}

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.btnCalculateClick(Sender: TObject);

var score1, score2, score3, averageScore:

Integer;

begin

score1 := StrToInt(edtScore1.Text);

score2 := StrToInt(edtScore2.Text);

score3 := StrToInt(edtScore3.Text);

averageScore := (score1 + score2 + score3) div 3;

lblAverage.Caption := 'Середній бал: ' + IntToStr(averageScore);

end;

end.