Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
<em>Достоинства:</em>
<em> </em>
<em>- Проста в использовании</em>
<em>-Легкая деформация</em>
<em>-При создании изображения, в общем виде оно выглядит достаточно реалистично.</em>
<em> </em>
<em>Недостатки:</em>
<em> </em>
<em>-Плохая трансформация </em><em />
<em>-Нельзя рассмотреть детали изображения(так как оно состоит из точек(пикселы) то при увилечении изображения, все точки , также увеличиваются)</em>
<em>-При создании подобного изображения нужно сразу вводить его данные(размер, глубина света и т.д) и, например, если надо передать фотографию на печать, и уменьшить ее размер и глубину цвета, изображение искажается.</em>
Перевод информации с машинного языка в формы доступные для человеческого восприятия.
Задание 3
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
y := 3 / (x - 5);
WriteLn ('y = ' + FloatToStr (y));
end.
// ----------------------------------------------
Задание 4
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
if x < -1 then
y := 2 * x + 4
else if x > 3 then
Sqrt (x + 7)
else
y := 3 * x * x - x + 1;
WriteLn ('y = ' + FloatToStr (y));
end.