Korvet
Новичок
|
       
Выводит среднее для столбца i
только Trunc, наверное, здесь не совсем правильно
напиши лучше writeln('dlj stolbza ',i,#9,avg:1:2); чтоб с точностью два знака после запятой. В остальном вроде нормально
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 23:22 | IP
|
|
mrwadewilson
Новичок
|
все нашел решение не надо
есть другая задача
Вычислить для заданного n
|n(n-2)(n-1) если n<=9
|n^(29-n) если
N=|1 если n=29
|(n-9)! если n>29
не используя операции возведения в степень.
|
Всего сообщений: 8 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 23:35 | IP
|
|
hiperboloyd
Новичок
|
Спасибо большое Дружище щас разобраться попробую..просто и в школе учил паскаль и в колледже.. было 5, ниразу на экзамене подпрограммы не попадались))) выучить их не смог))))
|
Всего сообщений: 3 | Присоединился: декабрь 2009 | Отправлено: 29 дек. 2009 1:43 | IP
|
|
hiperboloyd
Новичок
|
задачка про высоты треугольников..ты программку не компилировал когда писал?
function perimetr:Real;
var
m:Real;
begin
m:=0;
for i:=1 to 3 do
begin
m:=m+sqrt(sqr(x-x[(i+1)mod 3])+sqr(y-y[(i+1)mod 3]));
end;
perimetr:=m;
end;
в строке
m:=m+sqrt(sqr(x-x[(i+1)mod 3])+sqr(y-y[(i+1)mod 3]));
на позиции после извлечения первого корня выдаёт ошибку Несоответствия типов.. пробывал указать более широкий диапазон чем real (extended, при этом компилятор переводил в режим 8087, ошибка такая же..) в связи со скудными знаниями и непониманием организации подпрограмм сам не могу исправить(((((( помоги если можешь
|
Всего сообщений: 3 | Присоединился: декабрь 2009 | Отправлено: 29 дек. 2009 15:11 | IP
|
|
Korvet
Новичок
|
Извини, забываю про квадратные скобки. Может из-за этого:
m:=m+sqrt(sqr(x[ i ]-x[(i+1)mod 3])+sqr(y[ i ]-y[(i+1)mod 3]));
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 30 дек. 2009 13:41 | IP
|
|
PrizraKKKKK
Новичок
|
помогите с решением: Задана действительная квадратная матрица. размером N*M. Вычислить сумму тех её элементов,
расположенных на главной.
диоганали и выше её, которые превосходят по величине все. элементы,
расположенные ниже главной диоганали.
|
Всего сообщений: 3 | Присоединился: январь 2010 | Отправлено: 3 янв. 2010 18:11 | IP
|
|
PrizraKKKKK
Новичок
|
помогите с решением: Задана действительная квадратная матрица. размером N*M. Вычислить сумму тех её элементов,
расположенных на главной.
диоганали и выше её, которые превосходят по величине все. элементы,
расположенные ниже главной диоганали.Если таких элементов нет, то ответом должен служить сообщением об этом.
|
Всего сообщений: 3 | Присоединился: январь 2010 | Отправлено: 3 янв. 2010 19:06 | IP
|
|
PrizraKKKKK
Новичок
|
помогите с решением:Даны натуральное n,действительные числа a1,...,an.Вычислить сумму тех элементов массива,индексы которых
являются степенями двойки (1,2,4,8,16...). первую решил
|
Всего сообщений: 3 | Присоединился: январь 2010 | Отправлено: 3 янв. 2010 20:55 | IP
|
|
mrwadewilson
Новичок
|
Вычислить для заданного n
|n(n-2)(n-1) если n<=9
|n^(29-n) если
N=|1 если n=29
|(n-9)! если n>29
не используя операции возведения в степень.
помогите плиз с факториалом не могу разобраться
|
Всего сообщений: 8 | Присоединился: декабрь 2009 | Отправлено: 3 янв. 2010 21:43 | IP
|
|
Mesher
Новичок
|
Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4 задачки.
1. Составить программу калькуляции товаров, имеющихся на складе. Файл должен иметь следующую структуру: название товара, название единицы измерения, стоимость единицы измерения, количество единиц измерения, суммарная стоимость товара, которая рассчитывается в программе. Используя сформулированный файл: а)вывести на печать название товара, имеющего наибольшую суммарную стоимость;
б)вычислить суммарную стоимость всех товаров. Предусмотреть поступление новых товаров на склад, отпуск товара.
2.Определить вероятности того, что среди пяти детей одной семьи нет ни одной девочки; одна девочка; две девочки; три девочки; четыре девочки; пять девочек. Выясните, вероятность скольких девочек будет максимальной. Вероятности рождения мальчика и девочки предполагаются одинаковыми. Выявление соответствующей вероятности оформить в виде подпрограммы. Поиск максимального элемента оформить в виде подпрограммы. Указание: Вероятность рождения девочки р=0,5, мальчика – q=1-p. Вероятность того, что в семье, имеющей n детей, будет m девочек, равна C m n pm qn-m. Необходимо составить подпрограмму вычисления приведённой формулы. Далее, найденные с помощью подпрограммы вероятности необходимо поместить в массив и составить подпрограмму поиска максимального элемента массива, причём, необходимо найти все максимальные элементы массива (если их несколько). В программе предусмотреть печать необходимой текстовой информации.
3.Заданы массивы А(5), В(4), С(7). Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. Подсчёт количества чисел попадающих в интервал от –1 до +1 оформить в виде подпрограммы.
4.Напечатать из заданного текста слово, содержащее большее число гласных букв. Слова в тексте разделены пробелами.
Очень буду РАД ВАШЕЙ помощи! С НОВЫМ ГОДОМ ВСЕХ И С НАСТУПАЮЩИМ РОЖДЕСТВОМ!!!
|
Всего сообщений: 1 | Присоединился: январь 2010 | Отправлено: 5 янв. 2010 18:06 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 3.
