IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> ПОЗИТИВНЫЕ ЧИСЛА, ПРОГРАММА
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


помогите,пожалуйста!!!!!срочно надо программа до пяницы!!!!не успеваю все,тк многое не понимаю!!!!
№1
Написать массив с 10 положительными и негативными числами, которые выводят с помощью клавиатуры.
Упорядочить только положиттельные числа в порядке уменьшения!!!!!!!
№2
Написать массив с 25 элементами и заполнить случайными числами. Значение элементов находится в интервале от -20 до 20ю На экране показываются числа,у которых последняя цифра 0,1....9

ОЧЕНЬ ПРОШУ НАПИШИТЕ ПРОГРАММЫ!!!!!!!!!!!!! Я ТОНУ,СПАСАЙТЕ!!!!!!!!!!!!!!!


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Задача №1:
Банальный "пузырек", с добавлением двух дополнительных условий (оба сравниваемых элемента > 0)
const
n = 10;
type
arrType = array[1 .. n] of integer;

Var
arr: arrType;
i, j, T: integer;

begin
{
... ввод массива Arr с клавиатуры. Сама сделаешь ?
}
for i := 1 to n do
for j := n downto i+1 do

If ((arr[i] > 0) and (arr[j] > 0))
and
(arr[i] < arr[j]) then
begin
T := arr[i]; arr[i] := arr[j]; arr[j] := T
end;

for i := 1 to n do
write(arr[i]:4);
writeln;
end.


А вот тут:
Цитата
Написать массив с 25 элементами и заполнить случайными числами. Значение элементов находится в интервале от -20 до 20. На экране показываются числа,у которых последняя цифра 0,1....9
blink.gif blink.gif Вообще-то у ЛЮБОГО числа последняя цифра 0 .. 9

Или тебе надо для каждой цифры по отдельности?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


give_rose.gif smile.gif give_rose.gif give_rose.gif Сделаю!!!!!!!Я даже не знаю как благодарить!!!!! smile.gif smile.gif smile.gif


Я тоже это и не поняла!!!в чем здесь прикол!!!!!!получается это все числа вывезти на экран!!!!но задания я переписала правельно


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






А может, так:
const
n = 25;
type
arrType = array[1 .. n] of integer;

var
arr: arrType;
i, j, T: integer;

begin

for i := 1 to n do
arr[i] := integer(random(41) - 20);

writeln('array:');
for i := 1 to n do
write(arr[i]:4);
writeln;

writeln('result:');
for i := 0 to 9 do begin
write('#', i, ': ');
for j := 1 to n do
if (abs(arr[j]) mod 10) = i then write(arr[j]:4);
writeln;
end;
writeln;
end.

?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


Попробую!!!!!!!завтра к лектору подойду,выясню,что он имел в виду этим вопросом!!!!!НО ВСЁ РАВНО О give_rose.gif Г give_rose.gif Р give_rose.gif О give_rose.gif М give_rose.gif Н give_rose.gif О give_rose.gif Е give_rose.gif СПССИБО!!!!!!!


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 92
Пол: Мужской
Реальное имя: Stanislav

Репутация: -  0  +


Хмм а скажите почему во второй программе вроде случайные числа стоят, а выводятся при запуске постоянно одни и те же?


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Randomize в начало программы добавь, и будет тебе счастье... smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Пионер
**

Группа: Пользователи
Сообщений: 92
Пол: Мужской
Реальное имя: Stanislav

Репутация: -  0  +


volvo Я тоже одновременно с Тобой до этого дошла. blum.gif
Спасибки


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 16.12.2017 8:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"