Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторная 3 / Лабораторная работа №3
..pas Program q;
uses crt;
var x,y,dx:real;
begin
clrscr;
x:=0;
y:=0;
dx:=0.001;
while (((x+6)*(x+6))/1089+((y+5)*(y+5))/484<=1)
do
begin
x:=x+dx;
end;
writeln('point1:',x:6:4,' ',y:6:4,' ','point1:',27,' ',0);
x:=0; y:=0;
while (((x+6)*(x+6))/1089+((y+5)*(y+5))/484<=1)
do
begin
y:=y+dx;
end;
writeln('point2:',x:6:4,' ',y:6:4,' ','point2:',0,' ',17);
x:=0; y:=0;
while (y<=13.5-0.5*x)
do
begin
y:=y+dx;
end;
writeln('point3:',x:6:4,' ',y:6:4,' ','point3:',0,' ',13);
end.
uses crt;
var x,y,dx:real;
begin
clrscr;
x:=0;
y:=0;
dx:=0.001;
while (((x+6)*(x+6))/1089+((y+5)*(y+5))/484<=1)
do
begin
x:=x+dx;
end;
writeln('point1:',x:6:4,' ',y:6:4,' ','point1:',27,' ',0);
x:=0; y:=0;
while (((x+6)*(x+6))/1089+((y+5)*(y+5))/484<=1)
do
begin
y:=y+dx;
end;
writeln('point2:',x:6:4,' ',y:6:4,' ','point2:',0,' ',17);
x:=0; y:=0;
while (y<=13.5-0.5*x)
do
begin
y:=y+dx;
end;
writeln('point3:',x:6:4,' ',y:6:4,' ','point3:',0,' ',13);
end.
Соседние файлы в папке Лабораторная 3