Отвлекитесь, эмбеддеры! Отвлеченные темы - обсудить проблемы тепловой смерти вселенной, или просто пиво. Этот раздел - для отдыха. |
19.06.2015, 19:25
|
|
Почётный гражданин KAZUS.RU
Регистрация: 01.01.2011
Сообщений: 2,471
Сказал спасибо: 1,353
Сказали Спасибо 1,989 раз(а) в 863 сообщении(ях)
|
Нужна помощь в Pascal
Уважаемые, не разу не обращался к вам за такой помощью, плакаться не буду, но у дочери скоро сессия. "Уроки" приходиться делать всей семьёй, жена -математика, я ...кое в чём, остальное - дочь(работает и времени почти нет).
Если есть возможность, помогите в таком вопросе:
2. Напишете программу на языке Pascal, которая в массиве из 25 элементов все отрицательные элементы делает положительными. Массив должен заполняться случайными значениями в интервале от -50 до 50
|
|
|
|
19.06.2015, 19:41
|
|
Почётный гражданин KAZUS.RU
Регистрация: 04.04.2014
Адрес: г.Батуми,Грузия
Сообщений: 656
Сказал спасибо: 1,366
Сказали Спасибо 1,243 раз(а) в 494 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Demo65, Я думал эта тема уже не актуальна
|
|
|
|
19.06.2015, 20:14
|
|
Почётный гражданин KAZUS.RU
Регистрация: 01.01.2011
Сообщений: 2,471
Сказал спасибо: 1,353
Сказали Спасибо 1,989 раз(а) в 863 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Сообщение от maxim1966
|
Demo65, Я думал эта тема уже не актуальна
|
В смысле? Объясните, я в программировании - как "лошадь у телефона"! Может дочь поймет!
|
|
|
|
19.06.2015, 20:29
|
|
Заблокирован
Регистрация: 21.01.2014
Сообщений: 589
Сказал спасибо: 7
Сказали Спасибо 267 раз(а) в 206 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Ну, вот так
PHP код:
|
program Demo65; var i:integer; arr:array[0..24] of integer; begin Randomize(); for i:=0 to 24 do arr[i]:=Round(50-Random(100));
for i:=0 to 24 do if(arr[i]‹0)then arr[i]:=-arr[i]; end.
|
|
|
|
Сказали "Спасибо" Yurkin2014
|
|
|
19.06.2015, 20:55
|
|
Почётный гражданин KAZUS.RU
Регистрация: 01.01.2011
Сообщений: 2,471
Сказал спасибо: 1,353
Сказали Спасибо 1,989 раз(а) в 863 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Вы не поймите неправильно, я противник всего этого, Но сейчас НАДО!
|
|
|
|
19.06.2015, 21:04
|
|
Почётный гражданин KAZUS.RU
Регистрация: 10.12.2007
Адрес: Екатеринбург
Сообщений: 2,728
Сказал спасибо: 2,432
Сказали Спасибо 893 раз(а) в 580 сообщении(ях)
|
Re: Нужна помощь в Pascal.
А сразу взять по модулю?
|
|
|
|
19.06.2015, 21:14
|
|
Почётный гражданин KAZUS.RU
Регистрация: 01.01.2011
Сообщений: 2,471
Сказал спасибо: 1,353
Сказали Спасибо 1,989 раз(а) в 863 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Сообщение от baiderin
|
А сразу взять по модулю?
|
может есть лучшее решение? Пожалуйста.
|
|
|
|
19.06.2015, 21:25
|
|
Почётный гражданин KAZUS.RU
Регистрация: 01.01.2011
Сообщений: 2,471
Сказал спасибо: 1,353
Сказали Спасибо 1,989 раз(а) в 863 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Когда то , когда купил свой первый комп(может кто помнит) Вектор-06, пытался в Бейсике программировать, получалось картинки рисовать, далее не пошло. Не учили нас этому. не было у нас такого. Да и школу я уже давно закончил. А жаль, так хочется иметь знание и понимание языка программирования. Хотя бы, Бейсика.
|
|
|
|
19.06.2015, 21:41
|
|
Гражданин KAZUS.RU
Регистрация: 27.04.2007
Адрес: Ленинск-Кузнецкий
Сообщений: 744
Сказал спасибо: 1,716
Сказали Спасибо 634 раз(а) в 270 сообщении(ях)
|
Re: Нужна помощь в Pascal.
Сообщение от Demo65
|
Если есть возможность, помогите в таком вопросе:
|
Да не вопрос, поможем. Turbo Pascal? Под DOS?
__________________
Каждый менеджер должен ежедневно себя спрашивать, не тварь ли он дрожащая.
И приходить к выводу, что тварь.
|
|
|
|
19.06.2015, 21:52
|
|
Гражданин KAZUS.RU
Регистрация: 27.04.2007
Адрес: Ленинск-Кузнецкий
Сообщений: 744
Сказал спасибо: 1,716
Сказали Спасибо 634 раз(а) в 270 сообщении(ях)
|
Re: Нужна помощь в Pascal.
А чем вас не устраивает решение от Yurkin2014? Или вывод на экран сделать?
__________________
Каждый менеджер должен ежедневно себя спрашивать, не тварь ли он дрожащая.
И приходить к выводу, что тварь.
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 21:46.
|
|