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

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на 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 написал 10 окт. 2009 10:37
дано натуральное число 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)




for i:=1 to 9 do begin
s:=0;k:=0;

   for j:=1 to n do
     if (j mod 2=0) then begin
       s:=s+c[i,j];
       k:=k+1;
     end;
   Sar:=s/k;
   writeln("Столбец ",i, " среднее арифметическое - ",Sar:5:2);

end;{for i}

Число i четное, если i mod 2=0


(Сообщение отредактировал Dale 12 окт. 2009 15:58)

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 12 окт. 2009 15:39 | IP
Dale



Участник


Цитата: MaJlbBuHa написал 12 окт. 2009 0:28
помогите пожалуйста еще с одной задачей

сформировать массив случайными числами из промежутка[-9;18] удалить первый отрицательный элемент

Отрицательный элемент понятно как искать (<0) а как удалить только первый отрицательный элемент?
Заранее спасибо


Наверное, нужно порсто сдвинуть эллементы.

т.е. например, у нас массив mas[1..n]

Вы нашли индекс отр. эллемента, пусть он равен k
Тогда:

for i:=k to n-1 do mas[ i ]:=mas[i+1]


(Сообщение отредактировал Dale 12 окт. 2009 15:49)

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 12 окт. 2009 15:48 | IP
Dale



Участник


Цитата: Defenishion написал 10 окт. 2009 10:15
всё правильно толька заместь х i


Тогда попробуйте написать общую формулу энного члена ряда
У меня не получилось.
Исходя из первых двух, последний должен быть 1/(x^2+n).


(Сообщение отредактировал Dale 12 окт. 2009 16:46)

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 12 окт. 2009 16:41 | IP
Adrammelech



Новичок


Цитата: MaJlbBuHa написал 12 окт. 2009 0:28
помогите пожалуйста еще с одной задачей

сформировать массив случайными числами из промежутка[-9;18] удалить первый отрицательный элемент

Отрицательный элемент понятно как искать (<0) а как удалить только первый отрицательный элемент?
Заранее спасибо



uses crt;
var
n,i,j:integer;
a:array[ 1..100 ] of integer;
begin
clrscr;
randomize;
write('Введите размерность массива: ');
readln(n);
for i:=1 to n do a[ i ]:=random(27)-9;
for i:=1 to n do write(a[ i ]:3,';');
for i:=1 to n do
if a[ i ]<0 then begin
for j:=i to n-1 do a[ j ]:=a[ j+1 ];
n:=n-1;
break;
end;
writeln;
for i:=1 to n do write(a[ i ]:3,';');
readkey;
end.

-----
Чем меньше знаете вы, тем больше зарабатываю Я!

Всего сообщений: 21 | Присоединился: сентябрь 2009 | Отправлено: 12 окт. 2009 16:47 | IP
MaJlbBuHa



Новичок

спасибо за помощь

Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 12 окт. 2009 17:20 | IP
Adrammelech



Новичок


Цитата: SleepLess написал 11 окт. 2009 18:27
люди помогите пожалуста с задачями :

Вычислить сумму 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.





uses crt;
var
i,n,x:integer;
x1:longint;
s:real;
begin
clrscr;
n:=19;
write('Введите значение x: ');
readln(x);
s:=1+x;
x1:=x;
for i:=2 to n do begin
x1:=x1*x;
s:=s+x1/i;
end;
writeln(s:15:3);
readkey;
end.


На счет второй задачи: последовательности заполняются рандомно неповторяющимися чилами, а потом требуется проверить есть ли все члены последовательности А в последовательности В, так или я непрвильно понял?

На счет последней: что значит утроеные нечетные?


(Сообщение отредактировал Adrammelech 12 окт. 2009 17:42)

-----
Чем меньше знаете вы, тем больше зарабатываю Я!

Всего сообщений: 21 | Присоединился: сентябрь 2009 | Отправлено: 12 окт. 2009 17:41 | IP
ilya



Новичок

Помогите пожалуйста написать задачу:
Цыкл с переадресацией

Компоненты действительного вектора Х (х1,х2...х20), начиная с шестой по десятую включительно, а также все, начиная с пятнадцатой, заменить их квадратами

(Сообщение отредактировал ilya 12 окт. 2009 19:33)

Всего сообщений: 5 | Присоединился: октябрь 2009 | Отправлено: 12 окт. 2009 19:22 | IP
Dale



Участник

ilya  
Можно так:
var X:array[1..20] of integer;
....

i:=6;
while i<=20 do begin
if i=11 then i:=15;
X[ i ]:=sqr(x[ i ]);
i:=i+1;
end;

Еще можно так:

for i:=1 to 20 do
if (((i>=6) and (i<=10)) or (i>=15)) then
x[ i ]:=sqr(x[ i ]);

Ну и наконец, можно двумя циклами:

for i:=6 to 10 do x[ i ]:=sqr(x[ i ]);
for i:=15 to 20 do x[ i ]:=sqr(x[ i ]);


(Сообщение отредактировал Dale 13 окт. 2009 17:19)

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 13 окт. 2009 12:46 | 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