Страница 2 из 2
Re: Помогите решить задачу в ТР
Добавлено: 15 фев 2008, 18:05
Fakalka
Парни помогиете разобраться!
1) Дана натуральная матрица размера mxn. Определить числа b(1),..,b(n), равные соответсвенно значениям средних арифметических элементов строк.
Вот набросал что то:
for i:=1 to n do begin
b
:=1;
for j:=1 to m do
b:=(a[i,1]+a[i,n])/m;
Но получилось сделать так чтобы находилось среднее арифметическое(
2)Даны действительные числа х, у. Определить принадлежит ли точка с координатами следующей области: выше прямой у=1 при х<=-1, выше ломаной у=|x| при -1<x<=1, выше прямой у=1 при х>1.
Тут у меня вообще ничего не получилось( 
Re: Помогите решить задачу в ТР
Добавлено: 15 фев 2008, 20:48
drummer
1) вот
Код: Выделить всё
for i := 1 to m do
begin
b[i] := a[i,1];
for j := 2 to n do
b[i] := b[i]+a[i,j];
b[i]:=b[i]/n;
end;
2)
Код: Выделить всё
if ((x<=-1)and(y>1))or((-1<x)and(x<=1)and(y>abs(x)))or((x>1)and(y>1))
then writeln('YES!!!')
else writeln('NO');
Re: Помогите решить задачу в ТР
Добавлено: 16 фев 2008, 07:47
Fakalka
Еще один вопрос:
Дано натуральное числло n, символы S1...Sn. Подсчитать наибольшее количество идущих подряд пробелов.
Re: Помогите решить задачу в ТР
Добавлено: 16 фев 2008, 09:37
Serge_Bliznykov
ну, насколько я понимаю, описывайте массив символов:
переменные MахSpaceCount, curSpaceCount:
Код: Выделить всё
var MахSpaceCount, curSpaceCount : integer;
MахSpaceCount := 0;
curSpaceCount := 0;
for i:=1 to n do
if S[i] = ' ' then
Inc(curSpaceCount)
else begin
if curSpaceCount>MахSpaceCount then
MахSpaceCount := curSpaceCount;
curSpaceCount := 0;
end.
if curSpaceCount>MахSpaceCount then
MахSpaceCount := curSpaceCount;
writeln('Максимальное число пробелов подряд ',MахSpaceCount:1);
Re: Помогите решить задачу в ТР
Добавлено: 20 фев 2008, 15:07
Fakalka
Дано натуральные числа n1..n20, и действительные числа x1..x20.
Вычислить: (n1x1+...+n20x20)/(n1+...+n20).
Помогите плз!
Re: Помогите решить задачу в ТР
Добавлено: 20 фев 2008, 15:49
MOTOCoder
Вроде так:
[syntax='Delphi']
program p1;
const
N=20;
var
XX:array [1..N] of real;
NN:array [1..N] of integer;
i:integer;
sum1,sum2:real;
begin
writeln('Введите члены последовательности N1..N20');
for i:=1 to N do
readln(NN);
writeln('Введите члены последовательности X1..X20');
for i:=1 to N do
readln(XX);
sum1:=0;
sum2:=0;
for i:=1 to N do
begin
sum1:=sum1+NN*XX;
sum2:=sum2+NN;
end;
writeln('Результат = ',(sum1/sum2):0:5);
readln;
end.
[/syntax]