использование процедур и функций Опции

[VATO]

Три точки заданы координатами в первом квадранте: (X1,X2), (Y1,Y2), (Z1,Z2). Выдать на печать координаты этих точек по возрастанию угла между осью абсцисс и лучом, соединяющим начало координат с соответствующей точкой.

Может кто нить встречался с таким типом задачь как у меня? Надеюсь на вашу помощь.

М

не надо использовать тэги кода для обычного текста. Можешь использовать quote

[VATO]

эту я не делал ваабще....он тяжёлая для меня.
Сам я щас во над другой занимаюсь:
Программирование операций обработки строковых переменных

Определить количество пробелов в тексте, предшествующих первому появлению восклицательного знака.

во с этим я ошибся я расчёты делал пробелов а там оказывается с "!" знаками надо прописывать...вот мои наработки:

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.

препод сказал что я пропустил "!" как их прописать не знаю,вот.

Сообщение отредактировано: VATO - 26.12.2009 16:15