Нужно позарез решить лабу... а голова уже трескается пополам (( . Помогите плизз...

[Sergei47]

Нужно позарез решить лабу... а голова уже трескается пополам (( . Помогите плизз...

1. Даны числа а1, а2,...а50. Получить сумму тех чисел которые |а1|<(i*i)

2.Дано натуральное число . Выяснить сколько положительных элементов матрицы [aij]ij=i...n ., если aij=sin(i+j/2)

 

[Vladimir_S]

1. Даны числа а1, а2,...а50. Получить сумму тех чисел которые |а1|<(i*i)

2.Дано натуральное число . Выяснить сколько положительных элементов матрицы [aij]ij=i...n ., если aij=sin(i+j/2)

Язык какой?

И потом - что значит |а1|<(i*i)?

И еще - Вы уверены, что аргумент синуса i+j/2, а не (i+j)/2 ?

Ну и в довесок [aij]ij=i...n. Совсем непонятно. Может быть, [aij], ij=1..n?

 

[AlexZir]

Владимир, скорее всего это abs(а)<sqr(i). Хотя формулировка задачи весьма и весьма странная.

Хотя, судя по стилю топикстартера, не исключен и такой вариант: abs(a[1])<sqr(a).

 

[Vladimir_S]

Владимир, скорее всего это abs(а)<sqr(i). Хотя формулировка задачи весьма и весьма странная.

Алекс, да я понимаю. Просто воспитывать пытаюсь. Знаете, бесит иногда, что человек вываливает на форум задачки, даже не потрудившись лишний раз проверить формулировки - абы как скинул, и "ну вы тут давайте, а я пошел!". И ведь действительно слинял. Вот пока не ответит, не будет ему решения этих сверхдетских задачек. Опять же если (что скорее всего) имеется в виду Паскаль.

 

[Sergei47]

Язык Паскаль,..
1.Даны числа а1, а2,...а50. Получить сумму тех чисел которые abs(a[1])<sqr(a).
2.Дано натуральное число . Выяснить сколько положительных элементов матрицы [aij],ij=i...n ., если aij=sin((i+j)/2)
просто у меня уже мозги кипят..((еще сессия..

 

[MoNeTa]

xD, Я кажется могу решить 1ю задачу. Вот только на QБэсике ))). Со школы помню.

Вот если правильно задачу понял. алгоритм должет быть одинаковый наверное с паскалем.

DIM a(50)
FOR I = 1 TO 50
INPUT a(I)
NEXT
s = 0
FOR x = 1 TO 50
IF ABS(a(1)) < SQR(a(x)) THEN s = s + a(x)
NEXT
PRINT "summa 4isel="; s

Если понятно и вторую кажется могу ))

 

[Vladimir_S]

Язык Паскаль,..
1.Даны числа а1, а2,...а50. Получить сумму тех чисел которые abs(a[1])<sqr(a).
2.Дано натуральное число . Выяснить сколько положительных элементов матрицы [aij],ij=i...n ., если aij=sin((i+j)/2)
просто у меня уже мозги кипят..((еще сессия..

Всё равно не уверен в правильности этого: abs(a[1])<sqr(a). А тут опять переписана какая-то чушь: ij=i...n . Ну как знаете. Программы пишу как понимаю условия, уж не взыщите.

VAR
 A:ARRAY[1..50] of INTEGER;
 i,SUM:INTEGER;
BEGIN
 SUM:=0;
 Randomize;
 FOR i:=1 TO 50 DO 
  BEGIN
    A[i]:=RANDOM(100)-50;
    IF Abs(A[1])<SQR(A[i]) THEN SUM:=SUM+A[1];
  END;
 WriteLn('SUM= ',SUM);
 ReadLn;
END.

CONST
 N=10;
VAR
 i,j,Number:INTEGER;
BEGIN
 Number:=0;
 FOR i:=1 TO N DO
  FOR j:=1 TO N DO
    IF Sin(1.0*(i+j)/2)>0 THEN INC(Number);
 WriteLn('Number of positive matrix elements is ',Number);
 ReadLn;
END.

 

[MoNeTa]

2 Vladimir: Я абсолютно не понимаю паскаль, но почему в бейсике SQR находит корень а в паскале наоборот возводит в квадрат?

 

[Vladimir_S]

2 Vladimir: Я абсолютно не понимаю паскаль, но почему в бейсике SQR находит корень а в паскале наоборот возводит в квадрат?

Да уж так оно принято. В Паскале SQR - возведение в квадрат, а SQRT - извлечение квадратного корня.

 

[Sergei47]

Спс огромное...вы меня спасли..!!