Форум Кургана и Курганской области и наших друзей

Зима. Форум Кургана и Курганской области и наших друзей
20 Октябрь 2019, 06:38:32 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Пожалуйста прмогите написать прогу на турбо паскаль!  (Прочитано 1597 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Umbrella
Коллежский регистратор


Карма: 0
Offline Offline

Сообщений: 2


Награды
« : 06 Июнь 2010, 22:55:49 »

Одномерный массив. Задание:
Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны.
Заранее спасибо!
Записан
ysv45
Гость
« Ответ #1 : 06 Июнь 2010, 23:20:56 »

Типа этого - переделать в Паскаль легко

Dim arr(1 To 20), i As Integer, iSum As Integer, sStr As String
For i = 1 To 20
    arr(i) = Int(Rnd * 100 - 50)
    sStr = sStr & arr(i) & ", "
    If (arr(i) And 1) And (arr(i) < 0) Then iSum = iSum + arr(i)
Next
sStr = sStr & vbNewLine & "___" & vbNewLine & iSum
Записан
Umbrella
Коллежский регистратор


Карма: 0
Offline Offline

Сообщений: 2


Награды
« Ответ #2 : 06 Июнь 2010, 23:34:23 »

о,Гуру!это не так уж и просто Плачущийя в этом деле не больно
Записан
BlaZed
Титулярный советник
*****

Карма: 84
Offline Offline

Пол: Мужской
Сообщений: 986


Мы сделаны из мяса


WWW Награды
« Ответ #3 : 07 Июнь 2010, 09:38:08 »

Небольшая поправка

Вместо
    If (arr(i) And 1) And (arr(i) < 0) Then iSum = iSum + arr(i)
надо
    If (arr(i) Mod 2) And (arr(i) < 0) Then iSum = iSum + arr(i)
иначе будет просто сумма всех отрицательных
Записан

"Лишь утратив все до конца мы обретаем свободу" (c) Бойцовский клуб
XapoH
Титулярный советник
*****

Карма: 133
Offline Offline

Сообщений: 707


УВЧ! СР!


Награды
« Ответ #4 : 18 Июнь 2010, 01:01:17 »

arr(i) and 1 должно работать эквивалентно arr(i) mod 2, только последнее медленнее.
Впрочем на бэйсике оба выражения медленнее Улыбка
Записан
ysv45
Гость
« Ответ #5 : 18 Июнь 2010, 01:10:56 »

arr(i) and 1 должно работать эквивалентно arr(i) mod 2, только последнее медленнее.
Впрочем на бэйсике оба выражения медленнее Улыбка

Смотря с чем сравнивать и смотря на каком бейсике...
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC
rss | wap
Valid XHTML 1.0! Valid CSS!