Кому порешать задачи - пишите сюда

[Пух]

Народ пожалусто обьясните как эта задача виполняетса?
Код програмы нашол а как виполняетса я хз

узнаю свое художество.
учебник в руки и вперед. Мало того, что полностью написаная прога(правда есть недостатки), так ещё и полностью рассказать нужно как она выполняется. ужсбла...
а ты случайно не в 9й школе учишься?

 

[Cris]

узнаю свое художество.
учебник в руки и вперед. Мало того, что полностью написаная прога(правда есть недостатки), так ещё и полностью рассказать нужно как она выполняется. ужсбла...
а ты случайно не в 9й школе учишься?

да походу)) надо в этом разделе уже содержани еделать - где какая задача) и лично для 9-й школы)

 

[Пух]

да походу)) надо в этом разделе уже содержани еделать - где какая задача) и лично для 9-й школы)

дык нашел свой пост, откуда он эту задачу скопировал. Условие 1в1. Там же и циклическая перестановка(а я с нуля писал недавно :Р)

You must be registered for see links

ровно год назад.

п.с. 10й класс сложней, терпеть будете, а 11 вообще Турбо Пролог гг..

 

[everest]

Подскажите пожалуйста, как выразить arcsin в Турбо Паскале.

 

[Пух]

Подскажите пожалуйста, как выразить arcsin в Турбо Паскале.

You must be registered for see links

arcsin(x)=arctg(x/sqrt(1-x^2)), то есть arctan(x/sqrt(1-x^2));

arccos(x) = (pi/2) - arcsin(x);

Кроме того, арксинус можно посчитать как сумму ряда

arcsin(x) = x+1/2 *x^3/3 + 1/2*3/4*x^5/5 + .

Ну и для полного счастья, пара функций.

function ArcCos ( X : Real ): Real;
var
tmpArcCos : Real;
begin
if X = 0.0 then { чтобы не было деления на 0 }
tmpArcCos := Pi / 2.0
else
tmpArcCos := ArcTan ( Sqrt ( 1 - X * X ) / X );

if X < 0.0 then
tmpArcCos := Pi - tmpArcCos;

ArcCos := tmpArcCos;
end;

function ArcSin ( X : Real ): Real;
begin
if X = 1.0 then { чтобы не было деления на 0 }
ArcSin := Pi / 2.0
else
ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) );
end;

 

[everest]

:thankyou:

 

[Ronan]

Решите пожалуйста 2 задачи (нужен весь програмный код начиная "program..." и заканчивая "end.")

Задача1.
В двовимірному масиві A[1..5,1..5] знайти найменший елемент побічної діагоналі.
Задача2.
В двовимірному масиві A[1..4,1..5] знайти номер стовпчиків, і в яких є середнє арифметичне його елементів менше, ніж середнє арифметичне елементів всього масиву.

Зарание спасибо!

 

[Cris]

Решите пожалуйста 2 задачи (нужен весь програмный код начиная "program..." и заканчивая "end.")

Задача1.
В двовимірному масиві A[1..5,1..5] знайти найменший елемент побічної діагоналі.
Задача2.
В двовимірному масиві A[1..4,1..5] знайти номер стовпчиків, і в яких є середнє арифметичне його елементів менше, ніж середнє арифметичне елементів всього масиву.

Зарание спасибо!

№1

program gg;
var a:array[1..5,1..5] of integer;
i,j,min:integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10);
min:=maxint;
for i:=1 to 5 do
if min>a[i,i] min:=a[i,i]; {если нужна другая диагональ то вместо a[i,i] поставь a[i,5-j+1]}
writeln(min);
end.

 

[Пух]

Решите пожалуйста 2 задачи (нужен весь програмный код начиная "program..." и заканчивая "end.")

Задача1.
В двовимірному масиві A[1..5,1..5] знайти найменший елемент побічної діагоналі.
Зарание спасибо!

Уже решали. Вы кнопочку поиск видите?

 

[Freestyler]

Pascal

помогите плз.

задача №1 "Обробка двомірних масивів даних"

Знайти суму і кількість додатних елементів таблиці A[1..5, 1..5], які знаходяться над головною діагоналлю.

Задача №2 "Розгалужений обчислювальний процес."

You must be registered for see images

Задача №3 "Циклічний обчислювальний процесс."

You must be registered for see images