Помогите решить задачу на паскале
Комментарии: 3
сначала
по количеству реакций
Тема закрыта. Публикация новых комментариев отключена.
Вот, нашел таки свою старую прогу. Для твоего случая идеально подходит:
var
i,m,c:integer;
begin
for i:=1 to 15 do
m:=m+i;
for i:=0 to 2 do
begin
if i=0 then c:=m div 100;
if i=1 then c:=(m div 10)mod 10;
if i=2 then c:=m mod 10;
if c=-1 then write('w');
if c=0 then write('u');
if c=1 then write('x');
if c=2 then write('y');
if c=3 then write('z');
if c>3 then write('error');
end;
readln;
end.
Оригинальность так и прет, умный наверно слишком...
умный наверно слишком...
Спасибо за комплимент.
Помогите решить. Необходимо найти окружность с наибольшим радиусом и вывести координаты ее центра, если таковых несколько, то всех центров. Координаты и радиус задаются в разных последовательностях(массив, матрица). Все необходимо сделать с помощью процедур и функций. А точнее:
1. Надо найти в массиве радиусов элемент с максимальным значением.
2. Пройти снова по этому массиву проверяя каждый элемент на равенство максимальному, и при этом равенстве, выводить координаты центра, как элементы массивов с текущим индексом.