Четверг, 09.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

помогите, пожалуйста, решить задачу
olsenДата: Четверг, 03.04.2008, 21:41 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
задача1
Имеется массив А из N произвольных чисел (A(N)), среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, вычисляющую количество чисел, квадрат которых меньше 10. Например, если А={2,4,-3,3,5,-2,1}, результат: 6 (это числа 2,-3,3,-2,1).

Задача 2
Составить программу вычисления и выдачи на печать суммы/произведения N элементов бесконечного числового ряда: y=-2+5-8+11-14+...

 
AlexanderДата: Пятница, 04.04.2008, 19:54 | Сообщение # 2
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
А вопрос-то в чём? Сомневаюсь, что вам кто-то будет писать решения типовых задач, слишком уж банально.

Скажем дружно- нафиг нужно!
 
PavelДата: Пятница, 04.04.2008, 22:54 | Сообщение # 3
Приближенный
Группа: Модераторы
Сообщений: 210
Репутация: 17
Замечания: 0%
Статус: Offline
Quote
бесконечного числового ряда: y=-2+5-8+11-14+...

Могу поспорить, ни у кого это не получится! biggrin
А вчем собственно проблема-то, olsen, как использовать циклы или что? вроде форум о языке программирования, а не о элементарных алгоритмах. Я всеми руками за посетителей и развитие проекта. Но мыслить стоит учиться. Допустим, как делаю Я:
1. Беру бумажку, карандаш.
2. пишу условия.
3. Читаю условия
4. Выделяю что надо получить и входные параметры
5. определяю, что делать (по какому алгоритму и т.д.).
В этой задаче все просто. Надо только проверить с некоторыми условиями. Напиши, что именно не понятно.
 
olsenДата: Понедельник, 07.04.2008, 19:23 | Сообщение # 4
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Со второй разобралась вроде. А в первой - не знаю как возвести элемент в степень
 
AlexanderДата: Понедельник, 07.04.2008, 20:01 | Сообщение # 5
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
????
Code
k:=0;
for i:=1 to n do
    if A[i]*A[i]<10 then
       Inc(k);


Скажем дружно- нафиг нужно!
 
olsenДата: Понедельник, 07.04.2008, 23:43 | Сообщение # 6
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Большое спасибо
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;