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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

Цитата:

Сообщение от Sergei47 (Сообщение 263552)

Язык какой?

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

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

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

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

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

Цитата:

Сообщение от AlexZir (Сообщение 263561)

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

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

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

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

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

Цитата:

Сообщение от Sergei47 (Сообщение 263618)

Всё равно не уверен в правильности этого: abs(a[1])<sqr(a[i]). А тут опять переписана какая-то чушь: 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.

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

Цитата:

Сообщение от MoNeTa (Сообщение 263657)

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

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