Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 2
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]
Модераторы: paradise, KMA
  

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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]

Форум работает на скрипте © Ikonboard.com