Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 22.11.2009, 17:52   #1 (permalink)
Sergei47
Member
 
Аватар для Sergei47
 
Регистрация: 05.10.2009
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Нужно позарез решить лабу... а голова уже трескается пополам (( . Помогите плизз...

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

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

Старый 22.11.2009, 17:52
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме есть ранее созданные темы, в которых можно поискать решение

Нужно решить формулу по информатике
Ооочень нужно, помогите пожалуйста
Помогите пожалуйста, очень нужно!!
Голова с гвоздями
Очень срочно нужно решить задачки по электротехнике. Скоро экзамен, а решать не умею.

Старый 22.11.2009, 18:07   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от 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?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 22.11.2009, 18:14   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,940
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

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

Хотя, судя по стилю топикстартера, не исключен и такой вариант: abs(a[1])<sqr(a[i]).
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 22.11.2009, 18:22   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от AlexZir Посмотреть сообщение
Владимир, скорее всего это abs(а[i])<sqr(i). Хотя формулировка задачи весьма и весьма странная.
Алекс, да я понимаю. Просто воспитывать пытаюсь. Знаете, бесит иногда, что человек вываливает на форум задачки, даже не потрудившись лишний раз проверить формулировки - абы как скинул, и "ну вы тут давайте, а я пошел!". И ведь действительно слинял. Вот пока не ответит, не будет ему решения этих сверхдетских задачек. Опять же если (что скорее всего) имеется в виду Паскаль.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 22.11.2009, 19:51   #5 (permalink)
Sergei47
Member
 
Аватар для Sergei47
 
Регистрация: 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)
просто у меня уже мозги кипят..((еще сессия..
Sergei47 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 22.11.2009, 20:22   #6 (permalink)
MoNeTa
Member
 
Аватар для MoNeTa
 
Регистрация: 01.02.2008
Сообщений: 297
Сказал(а) спасибо: 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
MoNeTa вне форума   Ответить с цитированием
Старый 22.11.2009, 21:02   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 22.11.2009, 21:28   #8 (permalink)
MoNeTa
Member
 
Аватар для MoNeTa
 
Регистрация: 01.02.2008
Сообщений: 297
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Репутация: 252
По умолчанию

2 Vladimir: Я абсолютно не понимаю паскаль, но почему в бейсике SQR находит корень а в паскале наоборот возводит в квадрат?
MoNeTa вне форума   Ответить с цитированием
Старый 22.11.2009, 21:33   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,858
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от MoNeTa Посмотреть сообщение
2 Vladimir: Я абсолютно не понимаю паскаль, но почему в бейсике SQR находит корень а в паскале наоборот возводит в квадрат?
Да уж так оно принято. В Паскале SQR - возведение в квадрат, а SQRT - извлечение квадратного корня.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 22.11.2009, 21:55   #10 (permalink)
Sergei47
Member
 
Аватар для Sergei47
 
Регистрация: 05.10.2009
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спс огромное...вы меня спасли..!!
Sergei47 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:04.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.