.....................................
R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>
Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До
обучающие программы часто создаются в технологии мультимедиа для того,чтоб ученик лучше понимал и запоминал учебный материал.
преимущества мультимедиа от традиционных:легкое понимание изучаемого материала,контакт ученика с новой областью знаний,экономия времени обучения,на более долгий срок остается в памяти полученные знания.