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

Sergei47 · 22.11.2009, 17:52

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

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

Vladimir_S · 22.11.2009, 18:07

Цитата:

Сообщение от Sergei47

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

2.Дано натуральное число (n). Выяснить сколько положительных элементов матрицы [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 · 22.11.2009, 18:14

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

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

Vladimir_S · 22.11.2009, 18:22

Цитата:

Сообщение от AlexZir

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

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

Sergei47 · 22.11.2009, 19:51

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

MoNeTa · 22.11.2009, 20:22

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 · 22.11.2009, 21:02

Цитата:

Сообщение от Sergei47

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

Всё равно не уверен в правильности этого: 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.

MoNeTa · 22.11.2009, 21:28

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

Vladimir_S · 22.11.2009, 21:33

Цитата:

Сообщение от MoNeTa

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

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

Sergei47 · 22.11.2009, 21:55

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

22.11.2009, 17:52	#1 (permalink)
Sergei47 Member Регистрация: 05.10.2009 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужно позарез решить лабу... а голова уже трескается пополам (( . Помогите плизз... 1. Даны числа а1, а2,...а50. Получить сумму тех чисел которые \|а1\|<(i*i) 2.Дано натуральное число (n). Выяснить сколько положительных элементов матрицы [aij]ij=i...n ., если aij=sin(i+j/2)

22.11.2009, 18:14	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Владимир, скорее всего это abs(а[i])<sqr(i). Хотя формулировка задачи весьма и весьма странная. Хотя, судя по стилю топикстартера, не исключен и такой вариант: abs(a[1])<sqr(a[i]). __________________ Убить всех человеков!

22.11.2009, 20:22	#6 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	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 Если понятно и вторую кажется могу )) Последний раз редактировалось MoNeTa; 22.11.2009 в 20:38

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

22.11.2009, 19:51	#5 (permalink)
Sergei47 Member Регистрация: 05.10.2009 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Язык Паскаль,.. 1.Даны числа а1, а2,...а50. Получить сумму тех чисел которые abs(a[1])<sqr(a[i]). 2.Дано натуральное число (n). Выяснить сколько положительных элементов матрицы [aij],ij=i...n ., если aij=sin((i+j)/2) просто у меня уже мозги кипят..((еще сессия..

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

22.11.2009, 21:28	#8 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	2 Vladimir: Я абсолютно не понимаю паскаль, но почему в бейсике SQR находит корень а в паскале наоборот возводит в квадрат?

22.11.2009, 21:55	#10 (permalink)
Sergei47 Member Регистрация: 05.10.2009 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спс огромное...вы меня спасли..!!