2 Побудуйте математичну модель і створіть проект для знаходження най- меншого значення із чотирьох нерівних між собою чисел. Збережіть проект у папці з іменем Практична 11_2, створеній у вашій папці.
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
Норберт Винер — американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта. ... В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. ... В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации Термин “гипертекст” был придуман Тедом Нельсоном в 1962 году 1989 год Тим Бернерс-Ли Эйлер- ученый математик, он и придумал графические схемы(круги), обозначающие отношения между множествами.
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.