Korvet
Новичок
|
       
Сам считай. Площадь квадрата 20, зн. сторона квадрата 4,47
Если R=2, к=1 то диаметр окружности 4, расстояние 0,47 <k
Если к=2 R=1 -- все можно.
Если проход возле каждой стены должен быть, то перепиши
if sqrt(s)>=2*r+k then writeln('Mogho')
if sqrt(s)>=2*r+2*k then writeln('Mogho'), а то я первый раз не обратил внимание на это. Тогда и во втором случае не влезет
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 22:05 | IP
|
|
sambuka
Новичок
|
в том-то и дело,что проход должен быть от 2-ух сторон...вот так....типа отсека.т эти 2 прохода от квадрата 2 полоски и получается маленький квадрат,вот туда мы и вписываем окружность....
ты уж извини,что так сложно всё...я и сама просто думала.....а информатик все испортил...(
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 22:14 | IP
|
|
Korvet
Новичок
|
Если что, пиши лучше сразу мне на аську или на e-mail
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 22:22 | IP
|
|
sambuka
Новичок
|
в смысле,если что?
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 22:23 | IP
|
|
Korvet
Новичок
|
Если что с задачами
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 22:31 | IP
|
|
sambuka
Новичок
|
зайди в аську
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 22:35 | IP
|
|
mrwadewilson
Новичок
|
Найти среднее арифметическое положительных элементов каждого столбца матрицы Х при условии, что в каждом столбце есть хотя бы один положительный элемент, N 30. Результаты запомнить.
помогите плиз
(Сообщение отредактировал mrwadewilson 28 дек. 2009 22:36)
|
Всего сообщений: 8 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 22:35 | IP
|
|
Korvet
Новичок
|
mrwadewilson а на 10 странице что не правильно?
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 23:07 | IP
|
|
mrwadewilson
Новичок
|
Korvet
writeln('dlj stolbza ',i,#9,Trunc(avg),' ');немного непонятна строчка
|
Всего сообщений: 8 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 23:12 | IP
|
|
mrwadewilson
Новичок
|
чутка не так
ща напишу начало
var s:array[0..10,0..10]of integer: sum:array[0..10] of integer:
m,n,i,j,e:integer;
k:real;
begin
writeln('vvedite m,n');
readln(m);
readln(n);
for i:=1 to m do begin
for j:=1 to n do readln(s[i,j];
end;
for i:=1 to n do begin
sum:=0; e:=0;
for j:=1 to m do begin
if s[i,j]>0 then begin sum:=sum +s[i,j]; e:=e+1; end;
end;
writeln;
writeln('summa',i,' stolbca');
writeln(sum);
k:=sum/e
writeln('k=',k:2:2);
end;
readln;
end.
я сделал но одно условие не выполняется
e должно быть количеством положительных в стобце
а у меня сумма всех положительных чисел
|
Всего сообщений: 8 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 23:21 | IP
|
|
Форум
Решение задач на Pascal. Форум 3.
