<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<title>Время суток</title>
<style>
h5 {
width: fit-content;
}
h5:hover::after {
content: "<KEK";
}
</style>
<link rel="stylesheet" href="style.css" />
<script src="script.js"></script>
</head>
<body>
<header>
<h1>Приложение "Времена года"</h1>
</header>
<hr />
<main>
<label for="vre">Какой месяц года проверить?</label>
<input type="text" id="vre" />
<button id="b1">Обработать информацию</button>
<div id="image_box">
<img id="image" src="hello.png" />
</div>
</main>
<hr />
<footer>
<h5>Copyright: © Teacher - Kyiv, 2019</h5>
</footer>
<script>
"use strict";
(function() {
const b1 = document.getElementById("b1");
b1.onclick = function() {
const vre = document.getElementById("vre");
const image = document.getElementById("image");
if (vre.value.match(/(декаб|янва)рь|февраль/gi)) {
alert("Зима");
image.src = "winter.png";
} else if (vre.value.match(/март|апрель|май/gi)) {
alert("Весна");
image.src = "spring.png";
} else if (vre.value.match(/ию(л|н)ь|август/gi)) {
alert("Лето");
image.src = "summer.png";
} else if (vre.value.match(/(сент|окт|но)ябрь/gi)) {
alert("Осень");
image.src = "autumn.png";
} else {
alert("Вы ввели неверный месяц");
}
};
})();
</script>
</body>
</html>
// Внимание! Если программа не работает, обновите версию!
type
CheckBalls=class
private
ad:array of real; // диаметры шариков
ap:array of real; // веса шариков
etD:=24.0; // эталонный диаметр
derD:=2.0; // эталонное предельное отклонение
etP:=74.0; // эталонный вес
derP:=3.0; // эталонное предельное отклонение
procedure CheckBall(m:integer);
// проверка шарика с указанным номером
begin
Write('Шарик № ',m,': диаметр - ');
if Abs(aD[m-1]-etD)<=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Abs(aP[m-1]-etP)<=derP then Writeln('норма')
else Writeln('брак')
end;
public
constructor(ma,mp:array of real);
begin
ad:=Copy(ma);
ap:=Copy(mp);
end;
procedure CheckAllBalls;
begin
for var i:=1 to ad.Length do CheckBall(i)
end;
end;
begin
var n:=120; // число шариков
var a:=SeqRandom(n,200,280).Select(t->t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t->t/10).ToArray;
Writeln('Параметры шариков (диаметр,вес):');
a.Zip(b,(p,q)->(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.