Указания к работе: Открыть ресурс Янdex kart
В строку поиска ввести Ваш город.
Изменяя масштаб, найти свой дом (или выбрать любой объект в Вашем городе, относительно которого будет выполняться задание). ( )
Найти географические координаты дома (объекта). ( )
Проложить маршрут до ближайшего магазина. ( )
Найти поликлинику, стадион, музыкальную школу. Проложить маршрут от Вашего дома (выбранного объекта) до поликлиники, стадиона и музыкальной школы. ( )
Отчет сдать в доступном текстовом редакторе (Скриншоты к каждому пункту задания). При работе использовать клавишу PrintScreen.
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10;
c:=a*b*100;
writeln(c);
readln;
end.
вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:
program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize;
b:=random(35)+10;
for i := 1 to b do
begin
randomize;
a:=random(3)+2;
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c);
readln;
end.
Label1.BackColor=QBColor(3) - свойству Backcolor (цвет фона надписи) объекта Label1 присваивается значение, полученное из набора QBColor под индексом 3
Form1.Caption="Пока!" - Название формы Form1 присваивается надпись в шапке "Пока!"
Form1.Left=10000 - форме Form1 присваивается положение, отчитываемое слева в пикселях, относительно экрана, оно равно 1000
End Sub.- конец обработчика-функции