Лабораторная работа №4
“Программирование алгоритмов разветвляющейся структуры”
Вариант – 0
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: SlavikS
Program lab_06_111;
{Vividit coobwenie o tom, prinadlegit li tochka graficy
Ubeditelnaya prosba xot` nemnogo menyat` isxodnii text programmi,
vsetaki prepoda odni i tege, mogut pridrat`sya :))
}
const
q=(' ');
var
y2,y1,x1,x,y :real;
begin
Writeln (q,'Vvedite X i Y');
writeln(q);
readln (x);
writeln(q);readln(y);
Writeln;Writeln;
Writeln('_______________________________________');
Writeln;
Writeln (q,'Pri znacheniyax');
Writeln;
Writeln (q,'X=',x:3:2,' i Y=',y:3:2);
writeln;
writeln (q,' dannaya tocka');
writeln;
y1:=-(sqrt(1-x*x)); y2:=-0.5*x+1;
if ((-1)<=x) and (x<=2) then
begin
if (x>(-1)) and (x<0) then
begin
if abs(y1) <=1 then
writeln (q,'Prinadlegit')
end
else
if (x>0) and (x<=2) then
begin
if (y<=y2) and (y>=0) then
writeln (q,'Prinadlegit')
else
writeln (q,'Ne prinadlegit')
end
else writeln (q,'Ne prinadligit');
end;
writeln;
writeln (q,' grafiku');
Writeln;
writeln (q,' _ _ _ ');
Writeln;
writeln('Nagmite [Enter] (c)_S');
readln;
end.
|
Главная
Каталог файлов
