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.

Answer 2

Ось програма на мові програмування Lazarus, яка дозволить вам обчислити середній бал трьох тестів:

pascalCopy code
program Середній_бал;
uses crt;

var
  бал1, бал2, бал3: Integer;
  середній_бал: Real;

begin
  // Введення балів з кожного предмета
  writeln('Введіть бали з першого предмета: ');
  readln(бал1);

  writeln('Введіть бали з другого предмета: ');
  readln(бал2);

  writeln('Введіть бали з третього предмета: ');
  readln(бал3);

  // Обчислення середнього балу
  середній_бал := (бал1 + бал2 + бал3) / 3;

  // Виведення середнього балу
  writeln('Середній бал: ', середній_бал:0:2);

  readln;
end.

Щодо кнопок, їх можна не використовувати у цій конкретній програмі, оскільки вона просто зчитує дані з клавіатури та виводить результат на екран консолі. Програма буде запускатися без будь-якого графічного інтерфейсу користувача.