Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 10.05.2016
Сообщений: 2
1

В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями

10.05.2016, 08:12. Показов 2952. Ответов 2
Метки нет (Все метки)

даны натуральное число n, действительные числа a1, a2 ...an. в последовательности a1, a2 ...an все неотрицательные члены, не принадлежащие отрезку [1, 2] заменить нулями.
Задача построить блок-схему и записать на алгоритмическом языке.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2016, 08:12
Ответы с готовыми решениями:

Все неотрицательные элементы массива, не принадлежащие отрезку, заменить на единицу
Сижу на практике,осталась 1 задача. Вообще внепонятия как ее решить. Хелп. Дан массив A из...

В последовательности все отрицательные члены увеличить на 0,5, а все неотрицательные заменить на 0,1
Даны натуральные числа n,действительные числа А1,...Аn. В последовательности А1,....Аn все...

Все неотрицательные члены последовательности, не при- надлежащие отрезку [1, 2], заменить на единицу.
Даны натуральное число n, действительные числа а1,...,аn. В последовательности а1,..., аn все...

Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1
Дана натуральное число n, действительные числа а1....аn, в последовательности а1...аn все...

2
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
10.05.2016, 12:33 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
    ar: Array[Byte] Of Real;
    n, i: Word;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    Randomize();
    Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 198 - 99;
        Write(ar[i]:7:2);
        if ((ar[i] >= 0) And ((ar[i] < 1) Or (ar[i] > 2)))
        then
            ar[i] := 0;
    end;
    WriteLn; Write('Modified array:');
    for i := 0 to n - 1 do
        Write(ar[i]:7:2);
end.
Миниатюры
В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями  
0
0 / 0 / 0
Регистрация: 10.05.2016
Сообщений: 2
10.05.2016, 20:08  [ТС] 3
Спасибо!

Добавлено через 6 часов 58 минут
а есть программа для перевода "паскаль языка" в алгоритмически (его еще вроде называют "псевдо паскал")?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2016, 20:08

Заменить все элементы, меньшие двух, нулями и вычислить сумму членов, принадлежащих отрезку [3; 7]
Всем привет. Помогите пожалуйста написать код. Задача следующая: Даны натуральное число n и...

Заменить все отрицательные члены последовательности ее минимальным элементом, а все положительные - максимальным
Дано натуральное число n и последовательность действительных чисел a1,a2...an.Заменить все...

В последовательности все члены, следующие за наибольшим, заменить на 0.5
Даны действительные числа a1...an, b1...bm. В последовательности a1...an и в последовательности...

В последовательности чисел заменить все члены, следующие за наибольшим
Написать процедуру, которая в последовательности чисел a1...an заменяет все члены, следующие за...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru