М | не надо использовать тэги кода для обычного текста. Можешь использовать quote |
Зачем нужно было встревать в другую тему, мешать там, а потом создавать свою?
Показывай, что сам сделал, и говори, с чем затруднения.
uses crt;
function Prov(x,y:real):boolean;
begin
Prov:=(x>0)and(y>0);
end;
function Tg(x,y:real):real;
begin
Tg:=y/x;
end;
Procedure Sort(ax,ay,bx,by,cx,cy:real; var x1,y1,x2,y2,x3,y3:real);
var i:byte;
mx,mn,sr:real;
begin
mn:=Tg(ax,ay);x1:=ax;y1:=ay;
if Tg(bx,by)<mn then
begin
x1:=bx;y1:=by;
end;
if Tg(cx,cy)<mn then
begin
x1:=cx;y1:=cy;
end;
mx:=Tg(ax,ay);x3:=ax;y3:=ay;
if Tg(bx,by)>mx then
begin
x3:=bx;y3:=by;
end;
if Tg(cx,cy)>mx then
begin
x3:=cx;y3:=cy;
end;
x2:=ax+bx+cx-x1-x3;
y2:=ay+by+cy-y1-y3;
writeln(x1:0:2,' ',y1:0:2);
writeln(x2:0:2,' ',y2:0:2);
writeln(x3:0:2,' ',y3:0:2);
end;
var x1,x2,y1,y2,z1,z2:real;
k1,k2,k3,k4,k5,k6:real;
begin
clrscr;
writeln('Введите координаты трех точек в первом квадранте:');
repeat
writeln(' точка Х:');
readln(x1,x2);
until Prov(x1,x2);
repeat
writeln(' точка Y:');
readln(y1,y2);
until Prov(y1,y2);
repeat
writeln(' точка Z:');
readln(z1,z2);
until Prov(z1,z2);
writeln('Координаты по возрастанию угла луча с осью Х:');
Sort(x1,x2,y1,y2,z1,z2,k1,k2,k3,k4,k5,k6);
readln
end.
М | а вот код как раз нужно заключать в тэги кода.. Ты не отличаешь что ли? |
эту я не делал ваабще....он тяжёлая для меня.
Сам я щас во над другой занимаюсь:
Программирование операций обработки строковых переменных
uses crt;
var i, count:0..40;
str:string [40];
begin
clrscr:
writeln ('vvedite stroku i simvolbI(!)');
real ln (str);
faind:= false;
count:=0;
i:=1;
write not faind do
begin
if str[i]=' 'then inc (count);
if str[i]=' 'then faind:=true;
inc(i);
end;
writeln (count:=',count);
end.
Одна тема - одна задача. Ты определись, что ты хочешь, а то Фигаро тут...
я ж, говорю это другая... эт 8 лабораторная .... а та была 9ая, сёдня в 11:00 здавать для зачёта помогите студенту
Asterli
real ln (str);
...
readln(s);
for i:=1 to length(s) do
if s[i]='!' then
begin
n:=i;
break;
end;
writeln(n);