Question

Програма в Lazarus
1.Обчислити кількість витраченого часу на тренування за тиждень.
2. Визначити середнє значення часу на тренування.
3.Дізнатися, у який день було найбільше витраченого часу, а у який найменше.
Якщо займалися лише в понеділок, вівторок, четвер по 2 години, а в суботу 3 години​

Answer 1

Ответ:

Ось простий код на мові програмування Pascal (Lazarus), який вирішує вашу задачу:

```pascal

program TrainingTime;

var

Monday, Tuesday, Thursday, Saturday: Integer;

TotalTime, AverageTime: Real;

MaxDay, MinDay: String;

MaxTime, MinTime: Integer;

begin

// Введення часу на тренування

Write('Час на тренування у понеділок (години): ');

Readln(Monday);

Write('Час на тренування у вівторок (години): ');

Readln(Tuesday);

Write('Час на тренування у четвер (години): ');

Readln(Thursday);

Write('Час на тренування у суботу (години): ');

Readln(Saturday);

// Обчислення загального часу

TotalTime := Monday + Tuesday + Thursday + Saturday;

// Обчислення середнього часу

AverageTime := TotalTime / 4;

// Визначення дня з найбільшим та найменшим часом тренування

MaxTime := Monday;

MinTime := Monday;

MaxDay := 'понеділок';

MinDay := 'понеділок';

if Tuesday > MaxTime then

begin

MaxTime := Tuesday;

MaxDay := 'вівторок';

end

else if Tuesday < MinTime then

begin

MinTime := Tuesday;

MinDay := 'вівторок';

end;

if Thursday > MaxTime then

begin

MaxTime := Thursday;

MaxDay := 'четвер';

end

else if Thursday < MinTime then

begin

MinTime := Thursday;

MinDay := 'четвер';

end;

if Saturday > MaxTime then

begin

MaxTime := Saturday;

MaxDay := 'субота';

end

else if Saturday < MinTime then

begin

MinTime := Saturday;

MinDay := 'субота';

end;

// Виведення результатів

Writeln('Загальний час тренувань за тиждень: ', TotalTime:0:2, ' годин');

Writeln('Середній час тренувань: ', AverageTime:0:2, ' годин');

Writeln('Найбільше витрачено часу у ', MaxDay, ': ', MaxTime, ' годин');

Writeln('Найменше витрачено часу у ', MinDay, ': ', MinTime, ' годин');

Readln;

end.

```

Цей код зчитує кількість годин тренувань у понеділок, вівторок, четвер та суботу, обчислює загальний та середній час тренувань за тиждень і визначає день з найбільшим та найменшим часом тренувань.