Dale
Участник
|
      
Defenishion
Все же уточните условие
f= 1 / ( [ i ]^2+1)+ 1/( [ i ]^2+2)+……+1/( [ i ]^2+[ i ]+1)
Это что значит? Типа так:
внешняя ссылка удалена ??? По-моему бред какой-то...
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 10 окт. 2009 10:08 | IP
|
|
Defenishion
Новичок
|
всё правильно толька заместь х i
|
Всего сообщений: 6 | Присоединился: октябрь 2009 | Отправлено: 10 окт. 2009 10:15 | IP
|
|
Defenishion
Новичок
|
дано натуральное число n,действительная матрица размера n x 9. Найти среднее арифметическое каждого из столбцов,имеющих чётные номера.
Program xz;
const n=9;
Var
i,j,k:integer;
C:array[1..n,1..9] of integer;
s,s1,Sar:real;
begin
s:=1;k:=0;
for i:=1 to 9 do
begin
for j:=1 to n do
s1:=s+C[i,j];
k:=k+1;
Sar:=s1/k;
writeln ('Sar=',sar:5:2);
end;
end.
Где надо сделать что бы считалось с.ар только чётных столбцов
(Сообщение отредактировал Defenishion 10 окт. 2009 20:02)
(Сообщение отредактировал Defenishion 10 окт. 2009 20:02)
|
Всего сообщений: 6 | Присоединился: октябрь 2009 | Отправлено: 10 окт. 2009 10:37 | IP
|
|
Adrammelech
Новичок
|
Цитата: MaJlbBuHa написал 9 окт. 2009 18:24
Всем доброго время суток. Проверьте пожалуйста у меня следующие задачи:
1) Сформировать массив случайными числами из промежутка [5*a-11,3*b^2],a и b считываются с клавиатуры
Мое решение:
uses crt;
var c:array[1..10] of integer;
i,a,b,h,o:integer;
begin
clrscr;
randomize;
writeln('vvedite a , b');
readln(a,b);
o:=5*a-11;
h:=3*sqr(b);
For i:=1 to 10 do begin
a:=random(h)+o;
write(a:3);
end;
writeln;
readln;
end.
...
a:=random(h-o)+o;
Если бы вам надо было взять из интервала от 20 д 100 то:
a:=random(100-20)+20;
рандом берется от 0 до 80, а потом прибавляем 20 и получим от 20 до 100.
|
Всего сообщений: 21 | Присоединился: сентябрь 2009 | Отправлено: 10 окт. 2009 15:48 | IP
|
|
MaJlbBuHa
Новичок
|
Adrammelech спасибо.
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 10 окт. 2009 19:10 | IP
|
|
Kurvochka
Новичок
|
Цитата: Dale написал 9 окт. 2009 10:10
Kurvochka
uses crt,graph; {Подключаем модли crt(для работы keypressed и delay ) и модуль graph для работы с графикой}
{Объявляем константы в пикселах}
const r_z=10;{paduyc 3emJIu}
r_s=100;{paduyc coJIHU,a}
rasst=200;{paccto9IHue oT 3em do C.}
var driver,mode:integer; {Для инициализации граф. режима}
x_z,y_z:integer; {текущие координаты Земли}
yrol:real; {Текущий угол, на который отклонена земля, в радианах}
{Процедура, рисующая Землю в заднных координатах x , y}
procedure write_zem(x,y:integer);
begin
circle(x,y,r_z); {рисуем окружность в точке x,y радиуса r_z}
end;
begin
{Инициализируем графический режим}
driver:=detect;
initgraph(driver,mode,'');
{Начальные значения}
x_z:=0;y_z:=0;yrol:=0;
{Пока не будет нажата клавиша}
while not keypressed do begin
cleardevice; {Очищаем экран}
circle(640 div 2,480 div 2, r_s); {рисуем в центре экрана солнце
div - это целочисленное деление}
{Вычисляем координаты Земли}
{round - округление}
{Параметрическое уравнение окружности см. http://ru.wikipedia.org/wiki/%D0%9E%D0%BA%D1%80%D1%83%D0%B6%D0%BD%D0%BE%D1%81%D1%82%D1%8C
внешняя ссылка удалена }
x_z:=round(cos(yrol)*rasst)+640 div 2;
y_z:=round(sin(yrol)*rasst)+480 div 2;
{Выводим землю в текущих координатах}
write_zem(x_z,y_z);
{Увеличиваем угол на pi/100 радиан}
yrol:=yrol+pi/100;
{Делаем паузу в программе}
delay(5000);
end;{Конец цикла}
end.{конец программы}
2)см. SetFillStyle , Setcolor
в какую строку программы нужно вставить SetFillStyle что б солнце и землю закрасить? с Setcolor я разобралась.
(Сообщение отредактировал Dale 9 окт. 2009 10:16)
|
Всего сообщений: 7 | Присоединился: октябрь 2009 | Отправлено: 11 окт. 2009 12:03 | IP
|
|
SleepLess
Новичок
|
люди помогите пожалуста с задачями :
Вычислить сумму 20 первых элементов ряда
19
f=1+x+x^2/2+...+x^19/19=1+ S x^i/i.
i=1
Для определения x^i использовать прием накопления произведения,
т.е. x^i=x^(i-1)x.
Даны натуральное число n, целые числа a[1],...,a[25],
b[1],...,b[n]. Среди a[1],...,a[25] нет повторяющихся чисел, нет
их и среди b[1],...,b[n]. Верно ли, что все члены последователь-
ности a[1],...,a[25] входят в последовательность b[1],...,b[n]?
Дано натуральное число n. Получить сумму тех чисел вида
i^3-3in^2+n (i=1,2,...,n), которые являются утроенными нечетными.
|
Всего сообщений: 4 | Присоединился: октябрь 2009 | Отправлено: 11 окт. 2009 18:27 | IP
|
|
MaJlbBuHa
Новичок
|
Dale спасибо за помощь)))
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 11 окт. 2009 23:39 | IP
|
|
MaJlbBuHa
Новичок
|
помогите пожалуйста еще с одной задачей
сформировать массив случайными числами из промежутка[-9;18] удалить первый отрицательный элемент
Отрицательный элемент понятно как искать (<0) а как удалить только первый отрицательный элемент?
Заранее спасибо
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 12 окт. 2009 0:28 | IP
|
|
Dale
Участник
|
Kurvochka
Ну да, кружки же не закрашиваются.
Земля:
procedure write_zem(x,y:integer);
const color_z=blue;
begin
setcolor(color_z);
setfillstyle(1,color_z);
fillellipse(x,y,r_z,r_z );
end;
Солнце:
setcolor(yellow);
setfillstyle(1,yellow);
fillellipse( 640 div 2,480 div 2,100,100);
Чтобы моргало поменьше, нужно увеличить угол и паузу.
(Сообщение отредактировал Dale 12 окт. 2009 15:31)
|
Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 12 окт. 2009 15:30 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
